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Plus 

Zero in on Halley's Comet 

A Mouse-Based Database and More! 



HDS Floppy Drive Controller Boa 
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i Plated Edge Cards 
I Selectable ROM Sockets 
ipatlble with COCO I & II 
* 120 Day Warranty B 

' Double and Single De _ 
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Drive V v,. r ,v>v . 
Drive 1 Complete . 
Drive & 1 Dual Drive 




INGLE SIDE 
. . . $199. 
. . . $129. 
. . . $319. 



DOUBLE SIDED 
$219. 
$149. 
$359. 



Reduce your I/O errors with the Hard Drive Specialist 
Floppy Drive Controller for the Color Computer. Gold edge 
card connectors, advanced design, and the absence of 

«. ilAMAtArn mnl<A !* +fci.*\ K*-ir>t mint I -i Vila (~\i if nou/oeJ uor. 



[MWU ¥-M 



or (one 24 pin and one 28 pin ROM). Using this board 
with the standard Radio Shack ROM gives you 100% com- 
patibility with all Radio Shack software. 
Completed and Tested Board 

with Radio Shack ROM . . $99. 

(Includes Case, and DOS Instructions) 

Completed and Tested Board without ROM . . . S79. 

(Includes Case) 

Bare Board with Instruction manual S30. 

Parts Kit For Bare Board without ROM $30. 

Radio Shack ROM (current version) $20. 

Radio Shack ROM 1.0 $40. 



Ordering Informalinn 

Use our WATS line (o place your order via Visa, MasterCard, or Wiie Transfer. Or 
mail your payment directly to us. Any non • cerrilled funds will be held until proper 
clearance is made. COO orders are accepted as well as purchase orders from 
government agencies. Most Hems are shipped oil the shel! with the exception o' hard 
drive products that are custom built. UPS ground i6 our standard moans ot shipping 
unless otherwise specified. Shipping costs are available upon request 



ADOS ROM (24 or 28 pin PROM) 

ADOS Is a product of SpectroSystems of Miami Florida 
and is fully supported by the author. The HDS version of 



TKBUG Monitor and DOS 1.0 

on PROM (24 or 28) $40. 

New, unique CoCo software monitor in ROM designed 
for a minimum of key strokes and fully compatible with the 
1.0 version of disk basic. Features 33 single key com- 
mands, allowing the user to quickly display and screen 
edit RAM in either hex or ASCII format. Also allows the 
user to dump screen or memory to printer, set break points, 
alter baud rate, set 64K RAM mode, and more, TKBUG 
by TOMMY KEETON. 



HARD DRIVE SPECIALIST 



1-713-480-6000 
Order Line 1-800-231-6671 
16208 Hickory Knoll 
Houston, Texas 



From Computer Plus to YOU 
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Tandy 200 24KS649 
Tandy 600 32KS 1269 
ModeM00 24K$425 



Color Computer li 
W/64K Ext. Basic $165 




Tandy 1000 $685 
Tandy 1000HD $1539 
Tandy 1200HD $1599 








Color Computer Disk Drive 
Drive $239 Drivel $189 
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DMP-105$160 



BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 



COMPUTERS 

Tandy 1 000 1 Drive 1 28K 685.00 

Tandy 1000 HD 10 Meg. 256K 1539.00 

Tandy 3000 1 Drive 512K 1969,00 

Model IVD 64K with Deskmale 889.00 

PRINTERS 

Radio Shack DMP-1 05 160.00 

Radio Shack DMP-130 269.00 

Radio Shack DMP-430 660.00 
Radio Shack DWP-220 Daisy Wheel469.00 
Silver Reed EXP-500P Daisy Wheel 229.00 

SlarSG-10 245.00 

StarSG-15 410.00 

Panasonic P-1091 259.00 

Panasonic P-1092 339.00 

Toshiba 1340 439.00 

Okidata 192 375.00 

Epson LX-80 245.00 

Epson FX-85 369.00 

MODEMS 

Radio Shack DCM-3 Modem 
Radio Shack DCM-5 Modem 
Radio Shack DC Modem Pac 
Radio Shack DC Modem 2212 



CALL TOLL FREE 
1-800-343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 
SHOPPING CONVENIENCE 



COLOR COMPUTER MISC. 

Radio Shack Drive Controller 139.00 
Extended Basic Rom Kit 39.95 

64K Ram Upgrade Kit 39.00 

Radio Shack Deluxe Keyboard Kit 24.95 
HJL Keyboard Upgrade Kit 79.95 

COCO Max Y Cable 27.95 

Color Computer Mouse 44.00 

Multl Pack Interlace 89.00 

Botek Serial to Parallel Coriv. 69.95 

Radio Shack CCR-81 Recorder 52.00 
Radio Shack Deluxe Joystick 26.95 

Amdek Color 300 Monitor 265.00 

Amdek Video 300 Green Monitor 139.00 
Amdek Video 300 Amber Monitor 149.00 
Goldstar Amber Monitor 99.00 

Radio Shack VM-2 Green Monitor 129.00 
Mark Data Universal Video Driver 29.95 
COLOR COMPUTER SOFTWARE 







TAPE 


DISK 




Approach Control Simul. 


29.95 


34.95 


52.00 


Worlds 01 Flight 


29.95 


32.95 


99.00 


Mustang P-51 Flight Simul. 


29.95 


34.95 


79,00 


Spectral Typing Tutor 


19.95 


22.95 


315.00 


Dungeon Quest 


24.95 
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Major Islar 24.95 27.95 

Sam Slueth Private Eye 24.95 27.95 

Mark Data Graphic Adven. 24.95 27.95 

COCO Uti I by Mark Data 29.95 
COCO Max by Colorware 69.95 

COCO Max II by Colorware 79.95 

AutoTerm by PXE Computing39.95 49.95 

TelePatch by Spectrum 1 9.95 

Telewriter 64 49.95 59.95 

Deft Pascal Workbench 89.95 

Deft Extra 39.95 

Pro Color File Enhanced 2.0 59.95 

Max Edit by Derringer 19.95 

Elite Calc 69.95 69.95 

Elite Word 69.95 69.95 

Elite File (disk only) 74.50 

DynaCalc (disk only) 99.95 

Word Pack II by PBJ 134.95 

VIP Writer (tape & disk) 69.95 

VIP Integrated Library (disk) 149.95 

Order any 2 soltware pieces listed 
and take 10% ofl their listed price. 
All Radio Shack soltware 10% off list. 
Send lor complete list. 
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P.O. Box 1094 
480 King Street 
Littleton, MA 01460 



SINCE 1973 



IN MASSACHUSETTS CALL (617) 486-3193 



TRS-80 is a registered trademark of Tandy Corp. 
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FEATURES 



Our 20-Carat Gold Winners/ Jutta Kapfhammer & Philip Helm . 
ADVENTURE CONTEST REPORT The best of the best! 



f=1 The CoCo Zone/ Bruce K. Bell, O.D 

ADVENTURE CONTEST WINNER Enter into another dimension 



f=] The Maze of Moycullen/Trtomas E. Riley 

ADVENTURE CONTEST WINNER Solve the mystery of the maze 

[~1 Loop Until Done/Bruce W. Ronald. 




FINANCIAL PLANNING An IRA/Keogh Plan estimator 

[=] House Value/Harry W. Hallstrom 

REAL ESTATE Assessing the market value of your home 

[=] Zeroing in on Halley's Comet/Ronald Pettus 

ASTRONOMY Compute the comet's exact location for best viewing 

0=] College Expense Fund/Jerry R. Whittlesey 

BUDGETING How to save for your children 's higher education 

[=J Refund-A-File/Dona/d A. Turowski 

HOME ECONOMICS Make a thrifty habit even more satisfying 

R Nouveau Rock 'n' Roll/8/7/ Bernico 

MUSIC Putting your tunes on the "radio " 

n^] Electrical Cost Calculator/Denn/s Anderson 

BU DGETING Figure cost projections on your home utilities 
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p^| Happy Birthday Balloons/Gary Huffman 

"" ENTERTAINMENT Graphics and the traditional birthday music 

[=] Plantlog/La/ry E. Jones. 



HOME HELP The plants are always greener on the CoCo side 

[=] Bassmate/ Tommy Crouser 

RECREATION The lure of computerized bait selection 

[=] Doing the Disk-O-Step/Dave Trapasso. 



DISK UTILITY Not a dance, but a disk alignment aid 

[=] Julie "The Mouse'VS/ep/ien P. Clark 

DATABASE The convenience of using "point and press" 

[— ! Hire the CoCo-Handiman/Leonard Hyre 

HOME HELP Estimate materials and costs for home improvements 

Cover illustration copyright © 1986 @ The Computerized Shopping List/ Dennis H. Weide 

by Fred Crawford HOME HELP Let CoCo do the thinking on your next grocery trip 
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I — The small cassette tape 
L= , J symbols beside features 
and regular columns indicate that 
the program listings with those 
articles are on this month's rain- 
bow on tape, ready to CLOflD and 
run. For full details, check our 
rainbow ON TAPE ad on Page 1 83. 



NEXT MONTH: The smell of the ink ribbon, the roar of the printer! Our 
May issue will feature some "printer's devil" delights. We'll highlight printer 
capabilities with screen dump programs, crossword puzzle generators and 
much morel May will include our usual abundance of useful programs and 
games, hardware and software product reviews. 

Look to the rainbow for the printed word — the best source of information 
anywhere for the Color Computer. 



COLUMNS. 



IH1 BASIC Training/Joseph Kolar 



142 



Practicing the two-column format 

Building April's Rainbow/Juffa Kapfhammer _ 
A many-hued preview of this month's offerings 

Delphi Bureau/Cray Augsburg 



16 



116 



Presenting the "Delphi Advantage" 

[HI Education Notes/Steve Blyn 

Locating points on a graph 

Education Overview/M/cftae/ Plog, Ph.D. 
The demographics of education 

PRINT#-2,/ Lawrence C. Falk 

Editor's notes 

Turn of the Screw/ Tony DiStefano 



136 



139 
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104 



The makings of memory and how it works 
L=l Wishing Well/Fred e. Scerbo 



118 



Life Skills: Learning the value of numbers 



DEPARTMENTS 



Advertiser Index 

Back Issue Information 

CoCo Clubs 

CoCo Gallery 

Corrections 



Letters to Rainbow 
One-Liner Contest 
Information 



.256 
.197 
.173 
.114 
.103 
_6 



Received & Certified. 
Reviewing Reviews — 
Submitting Material 
to Rainbow 



Subscription Information 
These Fine Stores 



180 
182 

167 
207 
254 



.190 



RAINBOWTECH 



[HI Barden's Buffer/ William Barden, Jr. 
Pi to 10,000 digits 

Downloads/Dan Downard 



228 



224 



Answers to your technical questions 

KISSable OS-9/Da/e L. Puckett 

Featuring a trig library in C 

"Accessible Applications" will return next month. 

PRODUCT REVIEWS 



238 



Product Review Contents. 



179 
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CoCo Sherlock 
Misses the Color Clue 



Editor: 

I have been working on programs that use 
artificial color in PMODE 4 for some time 
now. I know the colors switch randomly 
when you press Reset or turn the computer 
off. Is there any way for the program to 
detect if the color is reversed other than the 
standard "If the border is blue press Reset. 
If the border is red press any key." 

Jeremy Spiller 
Shirley, MA 

Editor's Note: The artifacted col- 
ors are due to the signal received 
by the television or monitor, thus 
the computer has no way of detect- 
ing which is set. 

Editor: 

I was wondering if there is a POKE to stop 
the LI5T command. 

Scott Henry 
Hermitage, PA 

Editor's Note: Try POKE 383, 15B 
to disable and POKE 383,0 to 
restore the LIST command. 

Editor: 

When I POKE with an &H in the POKE, my 
computer gives me a syntax error. For that 
matter, anything with an &H in it gives me 
an SN Error. Could you tell me what is 
wrong? 

Matt Chesmore 
Rowley, IA 

Editor's Note: The &H prefix only 
works with Extended Color basic. 



BACK TALK 

Editor: 

In the December 1985 issue of THE RAIN- 
BOW [Page 6], a reader asked if there have 
been any improvements to the "Simple Text 
Processor" that was published in the Janu- 
ary 1985 issue [Page 103]. Yes, I have revised 
it in many ways. I have added a page pause 
feature for printing on single sheets of paper. 
I have changed the underlining code from '<" 
and '>' signs to a single SHiFr@ key control, 
which appears on the screen as a square 
block. I have added sound for the main 
menu (sounds beep if wrong key is pressed). 
Any ASCII file (like BASIC programs) can be 
loaded from the disk. I have also added a 
slashed zero feature for typewriters that do 
not print slashed zeros. The revised Text Pro 
is completely position-independent. If 
anyone is interested in these changes, con- 
tact me at 1423 N. Cleveland Street, 92667, 
(714)639-3996. 

Ashok Basargekar 
Orange, CA 

No Envy Necessary 

Editor: 

I read the rainbow front to back as soon 
as it arrives in the mail. Tom Heiliger's letter 
in the February 1986 issue, Page 6, stuck out 
because of the word "envious" in reference 
to the Amiga. I was sure that word was 
reserved for other computer owners to use 
when speaking of the CoCo! 

Mr. Heiliger has had his CoCo for over 
a year and should be reminded to dig deeper 
into THE rainbow for the scoop about 
multitasking. A few drives here and there 



and the OS-9 system should make Tom 
stand up and drop his envy. Tom, get ready 
for 35-meg hard drives, two Deluxe RS-232 
Paks, a modem and a couple of different 
printers all at the same time. With the new 
2.0 Version of OS-9, I doubt the CoCo will 
be obsolete anytime in the near future! 

Mike Redekheimer 
St. Louis, MO 

Gathering the PEEKs, POKEs 
and EXECs 

Editor: 

In the December 1985 issue my letter 
appeared on collecting PEEKs, POKEs and 
EXECs. For this, I thank you. The response 
I received was terrific, and because of that, 
this should be a super list. I am writing to 
let everyone know who sent me a list that 
I have a good start on the organization of 
all the data I've received. Rest assured that 
some day you will get a cumbersome letter 
in the mail and my proposition will be 
fulfilled. 

To those who didn't see my previous 
letter, refer to "Letters to the Rainbow" in 
the December 1985 issue. Page 8. You can 
also find my address there. I've decided I will 
make a deadline of April 30. Any contribu- 
tions received after that will go on an 
updated list. 

David Mount 
West Monroe, NY 



Choosing Chips 



Editor: 
I wish Tandy would have updated their 
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Color Computers with ROM chips contain- 
ing features such as those found in CoCo 
Max. Also, it would be nice if they could 
make the Color Computer easier to program 
by doing away with the FOR-TO-NEXT loop 
and substituting a simple statement. This 
would help to bring BASIC closer to English. 
1 find it very hard to follow three- 
dimensional graphics programs that require 
initial values to be set for a number of 
parameters. Maybe they should think about 
an extended graphics chip. In fact, it would 
be nice to have a choice of chips to tailor 
your computer. 

Travis Bur ford 
Valhalla, NY 



Delphi Enthusiast 



Editor: 

Congratulations on the great work your 
staff is doing on the CoCo S1G on Delphi. 
It's fantastic! If there are any CoCo enthu- 
siasts out there who haven't joined yet, I 
encourage them to do so immediately! 

Leonard K. Huh 
Dallas. TX 



HINTS AND TIPS 



Editor: 

For those readers who are using Roger 
Schrag's great Super Patch EDTASM+ 
[September 1983, Page 66], I have a hint as 
to how to change the Baud rate to suit their 
printing needs. 

First, load Super Patch but do not exe- 
cute, then POKE &HE2G , x ; with 'x' being the 
new Baud rate code. Poking &H26 , 1 will, for 
example, change the Baud rate to 9600. 
Next, resave the program using SRVEM 
"name" , &HE00 , &H37FF , &HE00. 

Lee Glawe 
Waukesha, WI 

Extraordinary Print 

Editor: 

I have a little hint that anyone with a 
DM P- 1 05 printer and Color Scripsit may be 
interested in. If you are tired of the ordinary 
print style that is selected automatically 
when the printer is powered up, here is relief 
for your boredom. Turn your computer and 
printer on and enter the printer character 
style code. For example, here is the code for 
bold type: PRINT B-2, CHRS(27); 
CHRS ( 31 ) . After that, turn off the computer 
without turning off the printer. Insert Color 
Scripsit and turn the computer on. If you 
follow these instructions, when you print 
your document, it prints in the typestyle 
selected. 

Jason Johnston 
Lillooet, British Columbia 

Error Subterfuge 

Editor: 

I have a tip for those with ADOS from 
Spectrosystems who use the ERROR com- 
mand. You may have already noticed that 
the RENUM command totally ignores any line 
number after ERROR while it rearranges all 



the rest. To get around this, edit your line 
with the ERRDR command in it and directly 
after it, place a GOTO or GOSUB to the same 
line. For example, if Line 10 reads ERROR 
1340 then edit it to read ERROR 1340 : GOTO 
1340. When the computer completes the 
RENUM, just edit Line 10 and rematch the line 
numbers, deleting the additional GOTO. 

Eric Santanen 
Stanhope, NJ 

Green Screen 

Editor: 

A small tip that some CoCo-Lisp users 
may find handy. Initially, the CoCo-Lisp 
screen is set to Hi-Res buff. Since this causes 
artifact colors, the following function can be 
defined to make the screen green: 

(DEFINE '( 

(GREEN (LAMBDfi ( ) (POKE &HFF22 

244))) 
» 

The function GREEN can then be called by: 

(GREEN) 

Eric Richards 
Auburn, AL 

A Friend in DeskMate 

Editor: 

Just a quick note about a piece of software 
I've come across, DeskMate. 

IVe grown weary of complex writers such 
as VIP. DeskMate is very simple, but serves 
most of my needs. The documentation is 
good but almost not needed; help is to be 
had almost everywhere. The 32 characters 
across is fine because I'm not on a tablecloth. 

The part I don't like is the PAINT file. It 
uses memory and is a waste. The $100 price 
tag is deceiving though — my deluxe joy- 
stick doesn't compare to a mouse. 

Go ahead and review it. You will find little 
use for the documentation because it's so 
friendly. 

Garv Pagac 
SPO, WA 

Editor's Note: Read the review of 
DeskMate on Page 198 of this 
issue. 



Assembler Agony 



Editor: 

In reference to the assembly article, 
"What's the Diagnosis?" Page 67 of the 
February 1986 issue, I've been had again. 
the rainbow is ahead of the tape this month 
and as the program looked interesting, I 
loaded ED TASM and got at it — spent three 
hours typing and when I tried to assemble 
it, it bombed. This has happened to me 
several times. I can make it if the program 
is for Radio Shack's EDTASM or there are 
instructions for changing the things that 
won't work as printed. Colin Stearman 
didn't use it but explained how to make it 
work. 

I realize there are several assemblers out 
there and most may be better than the 



EDTASM. However, I can't help but believe 
thai we must be a large portion of your 
readers. It would be nice if the assembler the 
author used was noted in the first part of the 
article even if he won't or can't tell us what 
needs to be changed for EDTASM. At the 
lime I bought my CoCo, I was living out in 
the sticks in western Nebraska and could 
find no one who could answer my questions 
about assembly language programming. 1 
bought CCEAD, which was a waste of 
money since when it arrived they said, "Here 
it is, if you don't understand it, go buy a 
book." I did that but the books at that time 
started at the middle and worked from there. 
Didn't really get off the ground till I got a 
DOS assembler. However, there were more 
and more good programs coming that 1 was 
unable to convert to this DOS (it's tough to 
teach an old dog new tricks). 

I now have the Disk basic and use Stear- 
man's mod part of the time. I live close to 
a CoCo club with over 60 members and have 
all kinds of expert help. 

William P. Frame 
Niceville. FL 



A Closer Look 



Editor: 

I would like to make a suggestion for your 
reviews section in rainbow. I think you 
should consider using photographs of the 
actual product to help describe your reviews. 
This would help the reader from paying $30 
or more for a program and finding that he 
or she could have gotten a better version of 
the same game or utility for a comparable 
price. I think THE RAINBOW is an excellent 
magazine, and I particularly enjoyed the 
Princeton RAINBOWfest last October. 

Erik McCullough 
Lafayette Hill, PA 



REQUEST HOTLINE 

Editor: 

I own a Color Computer 2 with a DWP- 
220. I'm a high school Spanish teacher and 
have been trying to get a listing for some 
Spanish software and Spanish character 
print wheels for my printer but have been 
unsuccessful. Any help in ihis matter would 
be greatly appreciated. Write to me at 24 
Howe Road, 11727. 

Anna R. Cuyar 
Coram, NY 

Come Fly with Me 

Editor: 

I have owned a CoCo for about a year 
now and think it's about the mosi useful tool 
I've ever owned. I also fly airplanes in my 
spare lime and would like to combine bold 
hobbies, except that I have not seen a 
program written for the CoCo concerning 
flight planning. I have seen many ads for 
aircraft flight planning written for just about 
any computer you can name. Surely CoCo 
can handle the job! 

Does anyone know of any programs that 
exist concerning this issue? Any help would 
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be greatly appreciated. My address is 39 
Edgewood Road, 63701. 

Eric Thompson 
Cape Girardeau, MO 

Credit Lines 

Editor: 

I have owned my CoCo for a little over 
a year. I use it mostly for writing letters (on 
Telewriter-64), doing spreadsheets (on 
Elite*Calc) and for financial work. Since I 
don't have lime to learn to program, 1 must 
rely on either commercial software or 
articles in the rainbow. 

I am currently looking for a program to 
provide a payment schedule for lines of 
credit. It must be able to list each monthly 
payment and the amount of interest and 
principal for each payment for the life of the 



loan (similar to many amortization pro- 
grams). It must also be able to handle 
increases in the balance outstanding (i.e., 
drawing on the line), pre-payments, changes 
in the interest rate on a monthly basis and 
variances in the term of the line. 1 own a gray 
box CoCo, upgraded to 64K, with a cassette 
system. I would appreciate any assistance 
you could provide. My address is 55 Glaston 
Court, 12186-9567. 

Lee B. Pearsall 
Voorheesville, NY 

A Last Resort? 

Editor: 

1 would like to know if there are any good 
programs for running a resort. I think I 
would need a very good calendar program. 
You have to put down (on paper) when, how 



long and where (which cottage) people are 
staying. I am using a 64K CoCo tape-based 
system with an Epson LX-80 printer. Send 
any information to me at 14329 Cleveland. 
60469. 

Craig J. Vincek 
Posen. IL 



'Bridging' the Gap 

Editor: 

I am a bridge game buff and an owner of 
the Radio Shack CoCo 2 64K. computer. 
Why is it that I cannot find a game manu- 
facturer that produces a software game 
which will randomly deal over 1,000,000- 
plus deals of bridge hands that I can either 
bid or defend against with the aid of the 
computer? 




«*S 



^Are you tired of being forced to constantly type directions or pick up and put down provisions? 

Are you frustrated at discovering the right logic only to be stumped by the game's vocabulary? 

Plateau of the Past eliminates these annoyances without sacrificing excitement. If you enjoy the 
[challenge of a fast-paced adventure, then this game is for you! 

Prepare yourself! The journey ahead of you will surely be perilous. You are hereby forewarned 
of possible encounters with strange beasts! If you survive these dangers, you must still find the 
missing idols and attempt to reach the forbidden village. Good luck, you'll need it! 



Terms. Cash. Check. COD. VISA and MASTER CARD 
ADD $2.00 Shipping & Handling US and Canada 
ADD $5 00 Shipping & Handling outside [he US and Canada 
^ADD $3.00 COD charge 

Illinois residents add 6.25% sales lax 

1 Software Auihors. call or write lor info 
^*^ < 



ZYTEK LTD. 

P.O. BOX 701 

BLUE ISLAND, IL 

60406 




Plateau of the Past 
$26.95 32K DISK ONLY 




Call Mon. thru Sat (9-5) 

(312) 597-1919 

Also order by mail 
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Such games are available for the Commo- 
dore 64K, Apple, IBM PC and Zenith 
computers but not for the Radio Shack 
Tandy PC. 1 already own Bridge Tutor from 
Radio Shack and am looking for something 
a little more sophisticated to sharpen my 
skills. Anyone knowing of one, write to me 
at 9587 Via Bernardo, 91504. 

Mall Kusior 
Burbank, CA 

Editor: 

I was just reading the February 1986 issue 
of kainbow and I noticed a lot of requests 
for specialty programs for farming and 
ranching. I am not a professional scientist, 
1 am not even an amateur one, but 1 do like 
science, especially astronomy, and I would 
like to see more software about the sciences. 
There are plenty of kiddy programs, but I 
would like serious explanatory, discovery or 
self-teaching programs that would delve 
deeply into a subject [so one could] really 
learn it thoroughly. 

1 don't know where you can get a college 
level, self-teaching program for the CoCo, 
or an upper division geology, physics, 
astronomy, biology, engineering, electron- 
ics, oceanography course, etc. Are there any 
such courses or programs and where can I 
purchase them? My address is 7136 Tait 
Street, 921 1 1. 

Thomas F. Heiliger 
San Diego, CA 



No Sleeping on the Job 

Editor: 

I have a new colon (:). Fact is, I had it all 
the time but 1 didn*t know where to put it. 
For six months 1 lay sleepless — worry, 
worry, worry! 

Then in "Corrections" for rainbow Feb 
ruary 1986 [Page 168], the Delbourgos said 
if I would refer to Line 150 in Earthrot 
(August 1985, Page 73) and put it between 
THEN and CSAVEN, it would solve my prob- 
lem. 

Glory be! It sent my world spinning. If I 
knew what to POKE to slow it down, I could 
go back to sleep. 

M.S. "Mac" McPherson 
Dallas, TX 



The Underestimated Printer 

Editor: 

Each month as 1 page through THE RAIN- 
BOW, I see several ads for various printers 
to use with the CoCo but hardly any for the 
Toshiba printers. I recently bought a To- 
shiba PI 340 and, having investigated all the 
other printers that are popular among CoCo 
owners, I must say there is no other printer 
that even approaches it for the combination 
of quality and speed. Furthermore, if you 
buy the serial version of the printer, all you 
need to run it are the right plugs correctly 
wired on a serial cable. No special interface 
is necessary. With the Toshiba's ability to 
print letter quality (not war-letter quality) 
and the fonts and character sets it offers, 
which can be accessed via the control codes 
in a word processor such as Telewriier-64 , 
it's hard to imagine any printer offering 
more versatility and quality for the CoCo 
owner. 

1 am writing this letter for two reasons: 
First, there may be other CoCo owners who 
have wanted to get this particular printer but 
have received conflicting advice from sales- 
people about whether or not it runs with the 
CoCo. The answer is yes, not only does it 
run with the CoCo, it runs beautifully. It is 
only a matter of having the right cable and 
setting the right DIP switches. 

Second, the Toshiba also has excellent 
capability for graphics, but as far as I can 
find out, none of the standard CoCo graph- 
ics programs will drive it. I have ViziDraw 
and that doesn't work. It seems a shame to 
have two excellent graphics tools as the 
CoCo and the Toshiba and not have them 
working together. Is there anyone out there 
who has the Toshiba and has written a 
graphics printer driver for it? If so, I would 
appreciate hearing from you. My address is 
1 19 Queenlily Road, 19057. I would also be 
glad to offer any help to anyone who wants 
to know about running the Toshiba with the 
CoCo and, in particular, with Telewriter-64 
(a marriage made in computer heaven). 

John Beuttler 
Levittown, PA 



INFORMATION PLEASE 

Editor: 

My friend has recently purchased a 64K 
upgrade from Radio Shack for his CoCo 2. 
The chips came without instructions. If you 
could supply instructions it would be greatly 
appreciated. 

Ezra Dreishach 
Vashon. WA 

Editor's Note: Check out Ed Ellers' 
article, "RAM/ROM Upgrade 
Roundup," May 1984, Page 49. 

Editor: 

Having both Graphicom and Graphicom 
II, I am very interested in the incredible 
graphics that are being sent in [for "CoCo 
Gallery"]. I would like to know if there is any 
way of getting these "works of computer 
art." 

One of my motivating reasons [for this] 
appeared in the July 1985 rainbow [Page 
179], this being Hal Katschke's "Hood." I 
would be very proud to be able to add this 
portrait to my own CoCo Gallery. 

Thank you for producing a magazine 
worthy of the Color Computer. Keep up the 
informative articles and, especially, the 
"CoCo Gallery." 

Lance McComber 
Prince George, British Columbia 

Editor's Note: Many BBSs around 
the country have picture libraries 
as downloads. We are considering 
putting out a "CoCo Gallery Col- 
lection" disk. Stay tuned. 

Editor: 

I recently purchased a disk drive for my 
CoCo, which has been modified for 64K, 
and would like to purchase a good editor/ 
assembler on disk but haven't seen any ads. 
I'm interested in those available by mail 
order as I'm stationed on Adak Island 
(Aleutian chain) and computer stores just 
aren't available! Can you recommend any 
6809 editor/ assemblers for disk? 

John Bow den 
FPO Seattle, WA 

Editor's Note: It would not be fair 
for us to recommend one of our 



UPGRADE YOUR COCO WITH THE SUPERCOMP68008 BOARD FROM CIR-PAK LTD 
IMPROVE YOUR DISPLAY WITH THE HIGH RESOLUTION GRAPHIC DISPLAY BOARD 



THE SC68008 BOARD FEATURES. 

• 8/16/32 BIT INTERNAL PROCESSING 

■ BK EPROM MONITOR I SPARE USER SPACE I 

• 1 CENTRONIC PARALLEL PRINTER PORT 

• 2S6K DYN. RAM (UP TO S12K WITH JUMPER! 

• 1 B-BIT I/O SPARE PORT 

• DMA OPERATION WITH COCO BUS 

• COPROCESSING MODE 

• MC68008 ONLY MODE 

SIMPLY PLUG THE SCBB00B BOARD INTO 
THE EXPANSION PORT OF YOUR COCO AND 
PLUG THE DISK CONTROLLER INTO THE 
SCBB0DB BOARD. NO MODIFICATION TO 
YOUR SYSTEM IS REQUIRED. 
PCS ONLY WITH EPROM MONITOR SS» US 
ASSEMBLED & TESTED WITH 2S6K DRAM 339» US 
STEEL CASING FOR THE SC6800B BD 39« US 
INFORMATION PACKAGE 2» US 



NEW SOFTWARE FOR THE SC68008 

RSDOS - SS6K RAMDISK 33» US 

0S9 - 2S6K RAMDISK 59* US 

0S9 - DRIVER FOR THE SC68008 29« US 

OSS - CODE TRANSLATOR 49» US 

TO GENERATE A 68000 SOURCE 

FROM A 6809 CODE WITH LABELS. 

VARIABLES TABLE. AND DISASSEMBLES 

6808 CODES FOR COMMENTS. 

68008 - MONITOR SOURCE LISTING 20« US 

TO ORDER. 

SEND CERTIFIED CHECK OR MONEY ORDER 

ADD 4« FOR SHIPPING & HANDLING 

ADO SS FOR C.O.D. SALES , 

US DEALER ORBIT ELECTRONICS 

P.O. BOX 613 

DERBY LINE, VT0S830 

TEL.IB19) 676-2926 



HI RES GRAPHIC DISPLAY FEATURES. 

- NEC7220 GRAPHIC DISPLAY CONTROLLER 

- RESOLUTION. 640 X BSD STD 

- SOFTWARE DRIVER - MACHINE LANGUAGE 

- HI QUALITY PCB WITH GOLD PLATED CONTACTS 

- BB SOCKETED I.CS. - HIGH SPEED 

- 75 OHM COMPOSITE VIDEO OUT. 

- MANUAL WITH COMPLETE CIRCUIT DIAGRAM 

- 32K ON BOARD DRAM 

- EASILY ADAPTABLE TO NON STANDARD WIDE 
BAND MONITORS t 640 X 400 NON INTERLACED ) 

• ASSEMBLED & TESTED 299S US CASING 33* US 

• INFORMATION PACKAGE 3* US 

THIS BOARD WORKS WITH OR WITHOUT SC6B00B ••• 

IN CANADA CIR-PAK LTD 

P.O. BOX 410 
VARENNES QC 
J0L 2P0 
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advertisers' products over another. 
They are there in the ads. If you 
want, you could try OS-'). It comes 
with a built-in editor/assembler. 

Code for Condensing 

Editor: 

In your January 1986 issue of rainbow, 
Page 210, there is a one-liner program called 
Labeler. I am using a CoCo 64K model 
#3127 and a DM P- 105 printer. The program 
works just fine. My question is, what 
changes can 1 make to have the printing in 
either condensed or compressed type instead 
of standard print? 

Harry Marcus 
Las Vegas, NV 

Editor's Note: Check your printer 
manual to find the codes required 
to accomplish these styles. Then 
just add lines at the beginning of 
the program, such as: 

PRINTB-2, CHR$(X)CHR$(Y) 

where 'X' is the escape code (27) 
and 'Y' is the code for what you 
want the printer to do. 



Scoreboard Blues 



were missing from the February 1986 issue. 
1 know you said in an earlier issue that the 
two had a low readership, but this was 
according to a survey taken at a RAIN- 
BOWfest, and 1 would doubt the validity of 
this survey in connection with ihe overall 
readership of the magazine . . . 

Richard Salomon 
Plymouth, IN 

Editor: 

I have had a subscription to THE rainbow 
for a little under a year . . . one of my 
favorite parts is "Scoreboard" and "Score- 
board Pointers." I was so surprised when 1 
looked for it in the February 1986 issue and 
found that you had canceled it. I think the 
"Scoreboard" was a very good part of THE 
rainbow, and that it should be continued. 
With "Scoreboard" and "Scoreboard Poin- 
ters" gone, I think there will be a big hole 

in THE RAINBOW. 

Brent Brown 
Boise, ID 

Editor's Note: "Scoreboard" and 
"Scoreboard Pointers" have not 
been discontinued; they are now 
bimonthly columns. Look for 
them next month. 



Editor: 

I was disappointed to discover that both 
"Scoreboard" and "Scoreboard Pointers" 



KUDOS 

Editor: 

I welcome THE RAINBOW'S arrival each 
month, especially the article dealing with 



machine language programming and utili- 
ties. It was terrific news to hear William 
Barden, Jr. is writing a monthly column in 
THE rainbow. Your staff becomes better 
each month. Keep up the excellent work. 

James A. Connolly 
Prince Edward Island, Canada 



Waiting Room Recreation 

Editor: 

... 1 was considering buying a CoCo for 
my medical practice to keep records, etc., 
and knowing there is a fine magazine like 
yours backing up the product clinches the 
idea. I'm also considering putting a CoCo 
with games in a special area in the waiting 
room for my younger patients to enjoy while 
waiting . . . 

Dr. Mario F. Pistilli 
Joliet. IL 



THE rainbow welcomes letters to the 
editors. Mail should be addressed to: Letters 
to Rainbow, The Falsoft Building, P.O. Box 
385, Prospect, KY 40059. Letters should 
include the writer's full name and address. 
Letters may be edited for purposes of clarity 
or space. 

Letters to the editors may also be sent to 
us through the MAIL section of our Delphi 
CoCo SIG. From the CoCo SIG> prompt, 
pick MAIL, then type SEND and address to: 
EDITORS. 

Continued on Page 252 



ARTS AND LETTERS 



FreJenc Zalac 
2b'i ParKdaie 
Rof?mere F .Q. 
Canada. J7A-JH5 




U.S. A 



■*— ir ' 



Envelope of the Month 



Frederic Zalac 
Rosemere, Quebec 
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Next to your computer, 





nothing beats 
a Tandy 8 printer* 





Tandy printers make fine print quality, 
graphics and high performance affordable. 



For your best value and selection in 
top-quality printers, shop your local 
Radio Shack Computer Center. We've 
got what you need, whatever your print- 
ing requirements. 

Versatile Business Printer 

The DMP 430* (26-1277, $899) is a 
132-column dot-matrix printer with an 
18-wire print head that delivers supe- 
rior correspondence characters. Choose 
from micro, italic and double-high fonts, 
as well as bit-image graphics. In the 
draft mode, the DMP 430 delivers a fast 
180 characters per second. 

Low-Cost, Triple-Mode 
Personal Printer 

The DMP 130* (26-1280, $349.95) 
lets you choose from word processing. 



data processing and dot-addressable 
graphics. Prints in four character styles: 
standard or italic cursive in draft or cor- 
respondence modes. 

Budget-Priced High Performer 

The DMP 105 (26-1276, $199.95) is 
ideal for data processing and general- 
purpose use. Features a bit-image 
graphics mode, too. 

High-Besolution Ink-Jet Printer 

The CGP 220 (26-1268, $599) quietly 
prints text and graphics in yellow, vio- 
let, red, green, cyan, magenta and 
black! And because there's no ribbon to 
wear out or become contaminated, the 
print quality remains excellent. 

See the complete selection of printers 
and accessories at Radio Shack today. 



Radio /hack 

The Technology Store" 

A DIVISION OF TANDY CORPORATION 
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Free 1986 computer 

catalog! 

Send me a copy. 

Mail To: Radio Shack 

Oepl. 86-A-904A 
300 One Tandy Center 
Fori Worth. Texas 76102 



Name . 



Company . 
Address _ 

City 

State 

ZIP 



Phone . 



Prices apply al Radio Shack Computer Centers and at participating stores and dealers. DMP 430 requires special order at some locations. 'IBM Compatible. 

IBM/Reoistered TM International Business Machines Corn. 



PRINT#-2, 



CoCo Forever! 



Iwas having lunch with Bob and Gerry, Sr. this week. Bob is the 
president of our printing company and Gerry, Sr. (sometimes known 
simply as "Senior") is the top VP. Naturally, the subject of magazines 
in general, and computer magazines in particular, came up. 

Before there even was a Senior at the company, Bob did us a big favor 
and "took in" THE RAINBOW when we were having some bad printing 
problems. 

As many of you know, the first few issues were "printed" on a photocopy 
machine at the local drug store. After that, we went to a "traditional" 
printer for a few issues, but growth was so rapid that we needed what is 
called a "web" press to keep down costs. We found a web printer locally 
who could provide high-quality newsprint (white and fairly thick as 
opposed to the gray thin stuff you get with your newspaper). We were there 
for about three months, although Bob's company did the cover and bound 
the magazine together. 

One day there was a big problem. The cover "slid" cockeyed when it 
was folded over the inside of the magazine because the cover was of slick 
paper and the insides were "full of air." Our web printer needed something 
called a perforator wheel to cut air holes in the pages and, without it, the 
insides were blooming out and caused the cover to slide. 

We were printing something like 15,000 copies of THE RAINBOW at the 
time — a pretty small press run for Bob's company. For the kind of big 
magazine presses they had (also web presses, by the way), they needed to 
run at least 20,000 for it to be worthwhile for them and for us. In addition, 
we had enough newsprint to print one more issue of THE RAINBOW and 
Bob's presses would require an immense cleanup if he used the paper that 
was on hand. Yet, he did it, and we've been with Bob's company ever since. 

Bob had perforator wheels, of course. After one more issue of "newsprint 
insides" we went to "slick" pages — and a month after that we were past 
the 20,000 copies we needed to make using Bob's plant really economical. 

It has been a good relationship for both of us, of course. We've got a 
local printer who "understands" us (most of the time), and Bob's company 
gets about one-fourth of its gross revenue from us. They also print our 
other publications. PCM, SOFT SECTOR and VCR. 
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the Color Computer Word Processor 



3 display formats: 51/64/85 

columns x 24 lines 

True lower case characters 

User-friendly full-screen 

editor 

Right justification 

Easy hyphenation 

Drives any printer 

Embedded format and 

control codes 

Runs in 16K, 32K, or 64K 

Menu-driven disk and 

cassette I/O 

No hardware modifications 

required 



THE ORIGINAL 



Simply slated, Telewriter is the most powerful 
word processor you can buy for the TRS-80 
Color Computer. The original Telewriter has 
received rave reviews in every major Color 
Computer and TRS-80 magazine, as well as 
enthusiastic praise from thousands of satisfied 
owners. And rightly so. 
The standard Color Computer display of 32 
characters by 16 lines without lower case is 
simply inadequate for serious word processing. 
The checkerboard letters and tiny lines give you 
no feel for how your writing looks or reads. 
Telewriter gives the Color Computer a 51 
column by 24 line screen display with true 
lower case characters. So a Telewriter screen 
looks like a printed page, with a good chunk of 
text on screen at one time. In fact, more on 
screen text than you'd get with Apple II, Atari, 
Tl, Vic or TRS-80 Model III. 

On top of that, the sophisticated Telewriter 
full-screen editor is so simple to use, it makes 
writing fun. With single-letter mnemonic 
commands, and menu-driven I/O and 
formatting, Telewriter surpasses all others for 
user friendliness and pure power. 

Telewriter's chain printing feature means that 
the size of your text is never limited by the 
amount of memory you have, and Telewriter's 
advanced cassette handler gives you a powerful 
word processor without the major additional 
cost of a disk. 



...one of the best programs for the Color 
Computer I have seen... 

— Color Computer News, Jan. 1982 



TELEWRITER-64 



But now we've added more power to 
Telewriter. Not just bells and whistles, but 
major features that give you total control over 
your writing. We call this new supercharged 
version Telewriter-54. For two reasons. 



64K COMPATIBl.F. 



Telewritcr-64 runs fully in any Color Computer 
— 16K, 32K, or 64K, with or without Extended 
Basic, with disk or cassette or both. It 
automatically configures itself to take optimum 
advantage of all available memory. That means 
that when you upgrade your memory, the 
Telewritcr-64 text buffer grows accordingly. In 
a 64K cassette based system, for example, you 
get about 40K of memory to store text. So you 
don't need disk or FLEX to put all your 64K 
to work immediately. 



64 COLUMNS (AND 85!) 



Besides the original 51 column screen, 
Telewriter-64 now gives you 2 additional high- 
density displays: 64 x 24 and 85 x 24!! Both 
high density modes provide all the standard 
Telewriter editing capabilities, and you can 
switch instantly to any of the 3 formats with a 
single control key command. 
The 51 x 24 display is clear and crisp on the 
screen. The two high density modes are more 
crowded and less easily readable, but they are 
perfect for showing you the exact layout of 
your printed page, all on the screen at one 
lime. Compare this with cumbersome 
"windows" that show you only fragments at a 
time and don't even allow editing. 



RIGHT JUSTIFICATION & 
HYPHENATION 



One outstanding advantage oT the full-width 
screen display is that you can now set the 
screen width to match the width of your 
printed page, so that "what you sec is what 
you get." This makes exact alignment of 
columns possible and it makes hyphenation 
simple. 

Since short lines are the reason for the large 
spaces often found in standard right justified 
text, and since hyphenation is the most 
effective way to eliminate short lines, 
Telewriter-64 can now promise you some of the 
best looking right justification you can get on 
the Color Computer. 



FEATURES & SPECIFICATIONS: 



Prinling and formatting: Drives any printer 
(LPVII/VIII. DMP-I00720O, Epson, Okidata, 
Centronics, NEC. C. Itoh, Smith-Corona, 
Tcrminct, etc). 

Embedded control codes give full dynamic access to 
intelligent printer features like: underlining, 
subscript, superscript, variable font and type size, dot- 
graphics, elc. 

Dynamic (embedded) formal controls for: top, 
bottom, and left margins; line length, lines per page, 
line spacing, new page, change page numbering, 
conditional new page, enable/disable justification. 
Menu-driven control of these parameters, as well as: 
pause at page bottom, page numbering, baud rate (so 
you can run your printer at lop speed), and Epson 
font. "Typewriter" feature sends typed lines directly 
to your printer, and Direct mode sends control codes 
right from the keyboard. Special Epson driver 
simplifies use with MX-80. 

Supports single and multi-line he?ders and automatic 
centering. Print or save alt or any section of the text 
buffer. Chain print any number of files from cassette 



File and I/O Features: ASCII format files - 
create and edit BASIC, Assembly, Pascal, and C 
programs, Smart Terminal files (for uploading or 
downloading), even text Hies from other word 
processors. Compatible with spelling checkers (like 
Spell 'n Fix). 

Cassette verify command for su r e saves. Cassette auto- 
retry means you type a load command only once no 
matter where you arc in the tape. 
Read in, save, partial save, and append files with disk 
and/or cassette. For disk: print directory with free 
space to screen or printer, kill and rename files, set 
default drive. Easily customized to the number of 
drives in the system. 

Editing features: Fast, full-screen editor with 
wordwrap, block copy, block move, block delete, line 
delete, global search and replace (or delete), wild card 
search, fast auto-rcpcai cursor, fast scrolling, cursor 
up, down, right, left, begin line, end line, top of text, 
bottom of text; page forward, page backward, align 
text, tabs, choice of buff or green background, 
complete error protection, line counter, word counter, 
space left, current file name, default drive in effect. 
set line length on screen. 

Insert or delete text anywhere on the screen without 
changing "modes." This fast "free-form" editor 
provides maximum case of use. Everything you do 
appears immediately on the screen in front of you. 
Commands require only a single key or a single key 
plus CLEAR. 



...truly a slate of the art word processor... 
outstanding in every respect. 

— The RAINBOW, Jan. 1982 



• disk. 



RAINBOW 

CERTIFICATION 
UAL 



PROFESSIONAL 
WORD PROCESSING 



You can no longer afford to be without the 
power and efficiency word processing brings to 
everything you write. The TRS-80 Color 
Computer is the lowest priced micro with the 
capability for serious word processing. And 
only Telcwriter-64 fully unleashes that 
capability. 

Telewriter-64 costs S49.95 on cassette, S59.95 
on disk, and comes complete with over 70 
pages of well-written documentation. (The step- 
by-step tutorial will have your writing with 
Telewriter-64 in a matter of minutes.) 
To order, send check or money order to: 

Cognitec 

704 Nob Street 

Del Mar, CA 92014 

Or check your local software store. If you 

have questions, or would like to order by 

Visa or Mastercard, call us at (619) 755-1258 

(weekdays, 8AM-4PM PST). Dealer 

inquiries invited. 

(Add $2 for shipping. Californians add 6% 
state tax.) 

Apple II is a trademark of Apple Computer. Inc.: Atari is a 
trademark or Atari. Inc.; TRS-80 is a trademark of Tandy 
Corp; MX-80 is a trademark of Epson America. Inc. 



The conversion to "slick" pages also 
began the biggest period of growth in 
THE RAINBOW'S history. We went from 
15,000 paid circulation to just short of 
50,000 in less than a year. Now, we 
hover between 70.000 and 80,000 a 
month. 

It was somewhere around this time 
that Senior arrived on the scene and. 
seeing all this growth, looked for some 
other computer magazines to print. 
They did one, briefly, but that was all. 
Still. Senior read a lot of computer 
magazines for quite some time. 

Therefore. 1 thought it was pretty 
interesting when he told me the other 
day that he thinks he understands why 
THE rainbow (and its sister publica- 
tions) has prospered in a market where 
others seem to fall by the wayside right 
and left. 

"It really isn't like a computer mag- 
azine at all," Senior said. "It's more 
like a catalog. It has bright colors, 
interesting ads, things for people to do. 
It's so different from most of the com- 
puter magazines I've read that it almost 



isn't a computer magazine. It's some- 
thing else entirely." 



"We're all something 
special, we Color 
Computer people. A nd 
our computer is 
special, too." 



I just smiled. Senior doesn't have a 
computer to call his own (I've been 
working on it, though), so he can't really 
understand. But what it is is the CoCo 
Community. We're all something spe- 
cial, we Color Computer people. And 



our computer is special, too. After all, 
do you know anyone who loves his or 
her IBM PC? I don't. 

With some measure of apologies to 
the many people whose allegiance to 
CoCo is shared with their following of 
the New England Patriots, we CoCo 
people are a lot like the Chicago Bears 
— we're the "Grabowskis" of the com- 
puter world. But just look what the 
Grabowskis can do — with our compu- 
ter or with our football team! 

No, I do not expect that we'll ever 
have a ticker tape parade through 
downtown Ft. Worth. But maybe we 
should. 

We shut out Commodore in the first 
round of the play-offs, did the same to 
Atari in the second and have pretty well 
smeared Apple, too, although they did 
score a couple of times. 

I don't know if the Bears are starting 
on a dynasty, but the CoCo is certainly 
well down that road. 

Bear down, CoCo! CoCo forever! 

— Lonnie Falk 



i 




To make thexnost of your new Dragon microcomputer from Dragon-Tano, you need Dragon User 
— the international, independent magazine for Dragon owners. 



Each issue of Dragon User contains: 

• reviews of the latest software 

• programming advice for beginners 

• hardware projects 



The Dragon microcomputer was launched in the UK 
last year. Since then we have developed a knowledge 
and mastery of the machine's abilities. You can 
benefit from our experience by subscribing lo 
Dragon User, which is expanding its coverage to include 
all US developments. 

To make sure that you receive a copy of Dragon User 
regularly, subscribe direct to us. This costs only $29.95 
for 12 issues airspeeded to you — or take advantage of 
our special offer to long-term subscribers. Individual 
copies of the magazine can be obtained from your 
Dragon dealer. 



• program listings covering games and utilities 

• reviews of Dragon peripherals and add-ons 

• technical advisory service 

• programming articles for users 

r Subscription order form. Receive a free book and save money by taking out 
long-term subscription - a two-year subscription saves 10% , a three-year 
SubSCrinllOn save"; 20% In aririitinn lnnn-!prm ci ihsrrihpri; \will rprpiwp a frpa 



I 
I 
I 



Subscription order form. Receive a free book and save money by taking out a 
long-term subscription - a two-year subscription saves 10% , a three-year 
subscription saves 20% . In addition, long-term subscribers will receive a free 
copy of either O The Working Dragon or □ Dragon Games Master. Please send 
a check, made payable to Dragon User, with this form. 
Slari my subscription from the following issue 

Name 

Address 



Signed. 



Date... 



Subsciption rates US and Canada airspeeded D US$29.95 for 12 issues/1 year 
C US$53 90 for 24 issues D US$71 90 for 36 issues Sendth' ' 
Dragon User, % Business Press Inlernalional, 205 E. 42nd St 



I 
I 
I 

this form to j 

NewVork. NY 10017.' I 
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YOU COULD FALL IN LOVE WITH 

AUTOTERM! 

! T TURNS YOUR COLOR COMPUTER INTO THE 

WORLD'S 
SMARTEST 
TERMINAL 



GOOD 
LOOKIN' 



AUTOTERM shows true upper/ 
lower case in screen widths of 32, 
40, 42, 51, or 64 characters with 
no split words. The width of 32 
has extra large letters. Scrolling is 
forward, backward, and fast. Block 
graphics pictures are displayed 
automatically and can be scrolled. 

The screen's top line shows 
operating mode, unused memory 
size, memory on/off, and caps- 
lock on/off. It also gives helpful 
prompts. 



SWEET 
TALKIN' 



KEY-BEEP can be on/off. Unac- 
ceptable keystrokes cause a lower 
pitched BOP! This ERROR- 
BEEBOP can be on/off. 

Talks to other computers with 
Full or Half Duplex; Baud Rate of 
110. 150, 300, 600, 1200; Parity as 
even, odd, mark, space, none; 7 
or 8 bit Word; any Stop Bits; all 
128 ASCII characters; true line 
Break; XON/XOFF protocol; and 
optional line-at-a-time transmis- 
sion. Able to send and receive 
text, block graphics, BASIC and 
ML programs. A 64K machine 
holds up to 45,000 characters 
(33,300 in HI-RES). 

DUAL PROCESSING lets you 
review & edit while more data is 
coming in. 

XMODEM for disk file transfer. 



Fully supports D.C. Hayes and 
other intelligent modems. 

Talks to your printer with any 
page size, margins, line spacing, 
split word avoidance. Embed your 
printer's control sequences for 
boldface, underlining, etc. Narrow 
text can be automatically spread 
out. 

You'll also use Autoterm 

for simple word processing 

and record keeping 

You can display directories, 
delete files, transmit directly from 
disk, and work with files larger 
than memory. Easily maintain a 
disk copy of an entire session. 

Compatible with TELEWRITER 
(ASCII) & other word processors. 

SMOOTH 
WALKIN' 

AUTOTERM moves smoothly 
and quickly between word proces- 
sing and intelligent terminal 
action. Create text, correct your 
typing errors; then connect to the 
other computer, upload your text, 
download information, file it, and 
sign-off; then edit the received 
data, print it in an attractive 
format, and/or save it on file. 

Editing is super simple with the 
cursor. Find strings instantly, too! 
Any operating parameter, such as 
screen width, can be altered at 
any time. Uncompleted com- 
mands can be cancelled. 




PUTTY IN 
YOUR HANDS 

The word processor can be 
used to create, print, and/or save 
on file your personal KSMs. They 
let AUTOTERM act like you. For 
example, it can dial through your 
modem, sign-on, interact, perform 
file operations, & sign-off; an 
entire session without your help. 
KSMs can answer the phone, 
prompt the caller, take messages, 
save them, hang-up, and wait for 
the next call. The KSM potential 
is unbelievable! 

NO OTHER COMPUTER IN 
THE WORLD CAN MATCH 
YOUR COCO'S AUTOMATIC 
TERMINAL CAPABILITIES!!! 



WHAT THE 
REVIEWERS SAY 

"AUTOTERM is the Best of Class." 

Graham, RAINBOW. 6/83 

"The AUTOTERM buffer system is 
the most sophisticated — and one of 
the easiest to use. . ." 

Banta. HOT CoCo, 9/84 

"Almost a full featured word 
processor. . ." 

Ellers, RAINBOW, 11/84 

"AUTOTERM's excellent error- 
handling routines, thorough docu- 
mentation, and logical, easy-to-use 
command structure make it stand 
out." 

Parker, HOT CoCo. 5/85 



AVAILABLE IN CANADA 

from 

Kelly Software Distributors 

Edmonton, Alberta 



CASSETTE $39.95 
DISKETTE $49.95 

Add $3 shipping and handling 
MC/VISAyC.O.D. 



PXE Computing 

11 Vicksburg Lane 

Richardson, Texas 75080 

214/699-7273 



Please hire the mentally retarded. They are sincere, hard working and 
appreciative. Thanks! Phyllis 



Educational Programs 



7 Questions ? ? 
• • » 

Questions — a powerful, easy to use, 
authoring program! Questions has as 

many uses as its owners have creativity. 
Teachers have used Questions to develop 
pre and post tests, to make copies of the 
same test with questions in a different 
order, and to review and reinforce difficult 
lessons with their students. But Questions 
is not limited to school uses. Enterprising 
people have found other uses for it. Party- 
givers have used it to personalize games 
for baby and wedding showers, and for 
creating their own trivia games. Adminis- 
trators nave used it for inservice training. 
Children have written their own riddles 
with it. If you own Questions, you'll find a 

1 way to use it. You will also be pleased with 

i its many fine features: 

• Word processing commands that al- 
low you to make changes as you type 

■A- Screen commands so you do not have 
to constantly refer to the manual 

• Options to take the quiz on the com- 
puter or to print a hard copy of it 

■A- Sequential or random presentation of 
questions 

• The ability to print the same test with 
questions in a different order 

• The printing of an answer key 

• The option to use expanded printer 
lettering to create large print tests. 

• The ability to save quizzes to cassette 
or disk 

• A review feature which permits stu- 
dents to study questions that have 
Deen missed 

• A record keeping system 

• Multiple choice, true/false, or fill 
in the blank formats. 



Questions is truly a professional authoring 
program that meets the needs of all of its 
users. 

16K ECB - Cass. S19.9S 

32K ECB - Cass. S24.95 

32K Disk - $26.95 

***************************** 

Reading Comprehension Series 
Grades 2 - 4 

B5's Reading Comprehension Series is a 
set of data files to be used with the Ques- 
tions program described above. Each file 
contains over 100 questions, organized 
into 6 to 8 sequential lessons. Lessons 
build from simple to complex. This series 
emphasizes the thinking aspect of reading. 
Simple sentence structure allows the stu- 
dent to concentrate on thinking skills. 

Main Idea * Sequencing 
Fact & Opinion * Cause & Effect 

Each Title: Cassette ■ $10.95 
Disk S12.95 
Complete Series ol 4 Titles: 
Cass. - $39.95; Disk - $41.95 



I 



^_^ Most B5 programs are available 
EF through Radio Shack® Express 
Order. 

A iradcmirk of Tandy Corp; 



B-5 Software Co. 

1024 Bainbridge Place 
Columbus, Ohio 43228 
Phone (614) 276-2752 




BUILDING APRILS RAINBOW 

CoCo Housepitality . . . 

Homemade Strategies 
Homespun Remedies 
Homegrown Delights 



Hello, CoColand! At this point in the magazine you usually hear from our managing 
editor, Jim Reed. Well, Jim is off to Palo Alto, California, to serve the CoCo 
Community at the first RAlNBOWfest of 1986, but he has lent me his toolbox for 
"Building April's Rainbow." Following Jim's knowledgeable footsteps is never an easy task, 
but I delighted in the opportunity to introduce you to our new Home Help issue. 

Over the past several years we have tried to meet the needs of all areas of our readership. 
We have had issues focusing on programs and tutorials for the beginner, the programmers 
and hackers, the hobbyists and gamers, and the students and educators. To welcome the 
rapidly growing home organizer segment of our readership, we have been searching for 
programs specifically for use in the home. 

There is no doubt the CoCo can be an extremely useful tool around the house. While 
appliances and machinery such as the washing machine, vacuum cleaner, power mower 
and table saw were designed to make jobs around the house much easier, there is still a 
need for organizing all the other time-consuming chores that go into making a comfortable, 
well-kept home. With the use of all the specifically designed programs, the CoCo can become 
a multipurpose household tool to help you organize jobs quickly and efficiently, so there 
is enough time left over to enjoy all the fun the CoCo also has to offer. 

In this special Home Help issue, Dennis Weide will assist you in the tedious task of grocery 
shopping and menu planning with Shop List. And, to help you save money on grocery 
items and more, Donald Turowski's Refund- A- File will keep track of your refund forms 
and qualifying proofs of purchases (POPs). 

For the jack-of-all-trades, Leonard Hyre gives us The CoCo-Handiman, a program that 
will help estimate the cost and amount of material needed to complete those long overdue 
home decorating projects of painting, wallpaper hanging and paneling, pouring concrete, 
and laying tiles and carpet. And to beautify those new additions even more, Larry Jones' 
Plant Log provides an easier way to care for your plants by keeping track of the individual 
requirements of each one. 

For the astronomers and science buffs, Ronald Pettus' Halley86 points us in the right 
direction for viewing the once-in-a-lifetime event of Halley's Comet. Who knows? If you 
miss the comet on this go 'round, Ronald's program may help your grandchildren find our 
celestial visitor when it reappears in the year 2062. 

Dennis Anderson's Electrical Cost Calculator figures the cost of running individual 
appliances by breaking down your electric bill to determine the amount of watts used and 
the length of time the device is on, which could help you find and cut some of the unnecessary 
costs around the home. 

And, if you're interested in saving more money. Bruce Ronald's IRA Estimator shows 
you how funds invested in an IRA or Keogh account can accrue to significant sums over 
the years. Jerry Whittlesey's College Expense customizes a plan to save for your childrens' 
college education. 

When all your "home" work is finally neatly organized, and you're ready for that well- 
deserved fishing trip, Tommy Crouser offers Bassmate to assist you in picking the right 
lures based on a number of factors and conditions. 

However, if just staying home enjoying new and exciting Adventures is more your idea 
of fun, then you're in for a big treat. Not only does this issue contain many terrific home 
help programs, but here at last is the announcement of the 20 winners of the Third Annual 
RAINBOW Adventure Contest! The best bonus for our readers, though, is the listing of the 
grand prize-winning Adventure, The CoCo Zone, by Dr. Bruce Bell, and the I6K Best of 
Show Winner, The Maze of Moycuilen, by Thomas Riley. Both offer hours of entertainment 
for all of the CoCo users in the household. 

With our usual mix of offerings, it's 260 pages all for the CoCo, and all for less than 
$2.60 per issue at the current subscription rate of $31 per year. That's less than a penny 
per page! Who else offers so much in one issue just for the Color Computer? 

— Jul tn Kapfhammer 
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Have you yet subscribed to 

COCO TIME 

A monthly magazine on tape and disk 

Now every month you can get 8-10 ready- 
to-run utilities, programming tips & hints, 
business applications, home management, 
tutorials, and educational programs. Also 
a Buy 'N Sell section and much, much 
more. NO GAMES, ONLY REAL STUFF! 

Each issue shipped to you 
by first-class mail. 

Programs written by computer wizards like 
Kishore M. Santwani and Gary T. Jes. 

SUBSCRIBER BENEFITS 

• Free advice/help on your Basic and ML 
programs, whenever possible. 

• Free Buy 'N Sell ads on computers and 
software 

• 10% off on all Microcom software/books 

• Subscribers encouraged to submit 
programs for inclusion. (Contact us.) 

EVERY YEAR YOU GET OVER 
$1 500 WORTH OF SOFTWARE. 

So Act Now! 



DECEMBER 1985 

• 40 K BASIC (For 64 K Cassette Users) 

• Super INPUT/LINE INPUT 

• Tape-to-Tape Copy (Basic and ML) 

• Mailing List (Disk Only; Many Functions) 

• Banner Maker (7" Letters/Numbers) 

• Single Page LIST/DIR 

• Alpha Directory 

• Disk Tutorial (Part 1 of 1 part series) 

• Spell 'n Win Series 1 (400 words/4 
levels) 

The market value ot these programs is 
OVER S150, DOUBLE the price of our 
annual subscription. 

Subscription Rates 
(USA& Canada) 

Tape Disk 

1 Year $65 $75 

6 Months $40 $50 

Single S10 $15 

(Other countries add 25%) 

Pay by VISA/MC/Check/MO 



THOUSANDS OF PROGRAMMERS USE THESE 
UTILITIES DAILY. SHOULDN'T YOU? 




UTILITY ROUTINES 

for the TANDY 

& TRS-80 COLOR 

COMPUTER (Vol. 1) 

This powerful book for Basic and ML Pro- 
grammers, includes program explanation, 
memory requirements, and an annotated 
source listing for the utility routines given 
below. These routines if bought individually 
will cost you HUNDREDS OF DOLLARS. 

These are 1 00% Position Independent ML 
Utilities and require no ML programming 
knowledge. 

COMMAND KEYS: Access mosl Basic com- 
mands with 2 keystrokes. 
CURSOR STYLES: Create OVER 65000 Cursor 
Styles. 

FULL LENGTH ERRORS: Get full length error 
messages. 

KEY CLICKER: Ensure key input accuracy. 
PAUSE CONTROL Put Basic/most ML pro- 
grams "on hold." 

REPEAT KEY: Repeat ANY key. 5 different key 
speeds. 

REVERSE VIDEO (Green and Red): Eliminate 
eye strain. 

SPOOLER! 16K.32K, 64 K): Don't wait for those 
printouts, 32K Spooling Butter in 64K. 
SUPER SCROLLERI64K Only): Save and exam- 
ine everything that scrolls off the text screen. 
AND MUCH, MUCH MORE! 

Compatible with 16K/32K/64K ECB/Cassette 

and Disk Systems and CoCo I and CoCo II. 

BOOK $19.95 

THESE ROUTINES (READY- TO-RUN) 

ON CASSETTE/DISK: $24:95 
BOTH BOOK & CASSETTE/DISK: $36.95 



BEST OF 

COCO TIME '85 

(UTILITIES) 

1 8 best selected utilities from 
COCO-TIME 1985 like: In Memory 
Disk Drive for 64K Cassette Users, 
CoCo Disk Zap, Basic Program 
Packer, Tape Encryption (Basic), 
Disk Encryption (Basic), Graphics 
Screen Dump for DMP Printers, 
Basic Search, EZ Disk Master, 
Function Keys, Graphics Zoom, 
Tape Index System, 40 K Basic (for 
64K Cassette Users), Alpha Direc- 
tory, Banner Creator, LIST/DIR 
Pause, Disk Mailing List, Super 
INPUT/LINE INPUT, and Tape-to- 
Tape Copy. 

Disk or Cassette, 

OnlyFor$26.95 

disk anti-pirate $59.95 

hide-a-basic 1 .1 $24.95 

both $79.95 




500 POKES, PEEKS 
'N EXECS for the 
TRS-80 COLOR 
COMPUTER 

NEVER BEFORE has this information of vital 
significance to a programmer been so readily 
available to everyone. This book will help you 
'GET UNDERNEATH THE COVER' of the color 
Computer and develop your own HI-QUALITY 
programs, SO WHY WAIT? 

This book includes 
POKEs, PEEKs, and EXECs to: 

• Autostart our Baste programs. 

• Disables mosl Color Basic/ECB/Disk Basic 
commands. 

• Disable BREAK KEY, CLEAR KEY and RESET 
BUTTON. 

• Generate a Repeal-Key. 

• Merge two Basic programs. 

• Transfer Rompaks to tape {tor 64 K only). 

• Speed up your programs. 

• RESET, MOTOR ON/OFF Irom keyboard 

• Restart your Basic program Ihru the RESET 
BUTTON. 

• Produce Key-Clicks and Error-Beeps. 

• Recover Basic progams lost by NEW, 710 ERRORS 
and faulty RESET. 

• Sel 23 different GRAPHIC/SEMIGRAPHIC modes. 

• Set 1 5 of Ihe most commonly used Baud Rates. 

• Allow you more plays in 23 of your lavorite arcade 
games, 

• AND MUCH, MUCH MORE 1 

COMMANDS COMPATIBLE WITH 1 6K/32K/64K 

COLOR BASIC/ECB/DISK BASIC SYSTEMS 

and CoCol and CoColl. 



ONLY $16.95 



Basic Programming Tricks Revealed- S14.95 
Color Basic Unravelled- $1 9.95 
Extended Basic Unravelled- S1 9.95 
Disk Basic Unravelled - $1 9.95 
All 3 Unravelled Books- S49. 95 
FACTS- S1 4.95 



Telewriter-64. 



(Cas) 
(DSK) 

TELE PATCH 

(B ttlw 

COCO MAX II 
YCABLEFORCOCOMAX 
PRO-COLOR-FILE 2.0 
DYNACALC 
AUTOTERM (CAS) 

(DSK) 

THECOMPLETERAINBOWGUIDE 
TO OS-9 (book only) 18.95 
RAINBOW GUIDE TO OS-9 DISK 
PACKAGE (2 disks) 29.00 



49.95 
59.95 
19.95 
69.95 
79.95 
27.95 
59.95 
89.95 
39.95 
49.95 



MJF 



MICROCOM SOFTWARE 

P.O. Box 214 
Fairport, N.Y. 14450 
Phone(716) 223-1477 



Our software/books are available at all leading dealers in USA& Canada. 
To Order Order by phone & get a $2 refund for your phone call. 
VISA, MC, Check, MO. Please add $3.00 shipping and handling (USA & 
CANADA, other countries $5.00). COD add $2.50 extra. NYS residents 
please add Sales Tax. Call for discounts on bulk quantities. Dealer 
inquiries invited. 



W»' 



24-HOUR ORDER HOT LINE (7 DAYS A WEEK): (716) 223-1477 



Price Changes 

Occur On A 

Daily Basis. 

Please Call 

1-800-343-8841 



PRICE BREAKTHROUGH 



Price Changes 

Occur On A 

Daily Basis. 

Please Call 

1-800-343-8841 



CO 



Super Sale on New Hard Drives 

MEGADISK™ 



: — y& 
■ 



Winchester Hard Drive Ready to 

run on the TRS 80 Model I/III/IV/4P, 

Color Computer, I.B.M.-PC, TANDY 1000, 

Max/80. 

Software Drivers: LDOS, NEWDOS/80, 

DOSPLUS, OS9, TRSDOS 6.0, CP/M, COCODOS CALL FOR 

Fully Warranteed NEW LOW PRICES 
DRIVE A HARD BARGAIN™ starting at $£99$5 

Call Toll Free Ordering 1-800-343-8841 



High Quality Lowest Price 

Drive 0, 1, 2, 3 

for the 

Color Computer 

Starting at $199.95 



SOFTWARE SUPPORT, INC 

1 Edgell Road, Framingham, MA 01701 (617) 872-9090 Telex-383425 

Hours: Mon. thru Fri. 9:30 am lo 5:30 pm (E.S.T.) Sal. 10:00 am to 3:30 pm 




DEALER INQUIRIES INVITED. 

TERMS: 

M.C./Visa/Amex and personal checks 

accepted at no extra charge. 

Shipping: Please call for amount. 

Not responsible for typographical errors. 

Prices subject to change. 



CANADA 

1720 CHARETTE STREET 

BUBERNAY, LAVAL, CANADA H7E4L9 

514-662-3224 



Service! Service! 

All in slock products are shipped within 24 hours 
of order. 

Repair/ Warranty service is performed within 24 
hours of receipt unless otherwise noted. We 
accept C.O.D., foreign and APO orders. School 
and D&B corporate PO.'s accepted. 



TRS/80 Registered Trademark Tandy Corp. Apple Registered Trademark Apple Computer Corp. 
IBM-PC Registered IBM Corp. Franklin Registered Trademark Franklin Corp. Max/80 Registered Trademark Lobo 
LDOS Reg. Logical System Inc. Dosplus — Micro Systems Software Newdos/80 — Apparat 



Prices Change 

Every Day. 

Please Call 

1-800-343-8841 

For Lower Prices. 



PRICE BREAKTHROUGH 



1)1 All K I\Ql IRII S INVITM) 



Prices Change 

Every Day. 

Please Call 

1-800-343-8841 

For Lower Prices. 



-8841 



MEGADISKTM HARD DISK DRIVE SYSTEMS TOLL FREE ORDERING 1-800-343 

For the f IBM/PC > "fendy 1000 - TRS/80 Models I/III/IV/4P, Compaq, lava, PC Workalikes, Color Computers, Heath/Zenith, Max/80 

v Complete with Hardware, Cables, Software and Quikfit Installation 

Megabytes Internal Mount IBM/PC fVi-v. starling at ! 

Megabytes Internal Mount IBM/Tandy 1000 -. • . "ffM f>-/g-f\- ■•m*?*. starling at 

Megabytes Internal Mount IBM/Tandy 1000 T-CV • *■ »-**f* *^ • f-Q/^ -1-Wk-i starting at 

Megabytes External System . . .?lf. f\ */ IrPpTfr**- ' *" U \rV starting at 

Megabytes External System r- II I I^P^,--** AVi starting at 

Megabytes External System t? \*J\ L-L starting at 

Tape Backup System — Internal Or External (IBM/PC) TT starting at 

nne o™^-.. i_iuH. f IBM/Heath — DOS, 1.0, 2.0, 2.1, 3.0, or later 

UUS systems Available. ^ TRS/g0 .LDOS, TRSDOS 6.x, Newdos/80, Dosplus, CP/M, COCO DOS, Max/80 LDOS, OS9 

FULLY WARRANTIED - PARTS AND LABOR - 24 HOUR SERVICE - CALL TOLL FREE — 1-800-343-8841 
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FLOPPY DISK DRIVES. POWER SUPPLIES AND CABINETS 

Our Disk Drives arc UL approved — Our Floppy Drive Cnbinels and Power Supplies 
arc Underwriters Laboratory Listed and have passed the required Federal 
Communications Part 15 Section B-EMI/RFI tests. 

Warranty on ill disk drives Is one full year parts and labor. Warranty on noppy disk 
drive power supplies Is five (5) years. In warranty or out of warranty service is 24 hour 
lum-a-round on all disk drives Bad power supplies. 

Full Height — Tandon 

100-1 Single Sided 40 tk Bare S 99.95 

In Case with Power Supply 139.95 

Dual Drives in One Cabinet 239.95 

100-2 Dual Sided 40 tk Bare 109.95 

In Case with Power Supply 149.95 

Dual Drives in One Cabinet 259.95 

Half High Drives — Tandon/TEAC 

Single Sided 40 tk Bare 79.95 

In Case with Power Supply 1 19.95 

Dual Drives in One Cabinet 209.95 

Dual Sided 40 Ik Bare 109.05 

In Case with Power Supply 149.95 

Dual Drives In One Cabinet 259.95 

Apple/Franklin Disk Drives 

35/40 Track in Case with Cable and Software 129,95 

Commodore Disk Drives 236.95 

Power Supplies and Cabinets 5'/< ■ and Hard Drive Systems starling at 42.00 



COLOR COMPUTER DISK DRIVE SYSTEMS AND ADD i\ PRODUCTS 

40 Track Single Head Drive with Case. Power Supply. Cable 

Controller, Instruction Booklet. Diskettes S2 1 •' .95 

Above with Dual Drives in One Cabinet .... 2S'i 93 

40 Track Dual Head with Case. Power Supply. Cable. 

Controller, Instruction Booklet. Diskettes 259.95 

Above with Dual Drives In One Cabinet 379.95 

Dual DOS Switch 29.95 

With Second DOS System - JDOS. RSDOS. and Booklet . 69.95 



MODEMS 








29995 









ALL IN-STOCK ITEMS SHIPPED WITHIN 24 HOURS. SAME DAY SHIPPING 
PROVIDED BY REQUEST WITHOUT ANY EXTRA HANDLING CHARGES. 



************ MEGADISK SPECIAL *♦"«"«*** 
With a 10 megabyte system, you can purchase a complete IBM or 
PC compatible host, adapter, software and cable for only $15.00!! 
P.S. Ask about the MEGAPLEXER. 



IBM - PC/XT WORKALIKE 

All of our computers have: 8 slot motherboard. 640K, monochrome adapter, parallel 
printer porl, 130 watt power supply, free software, monitor, serial port, clock calendar 
— all wllh our full warranty. 

/PC- 2 Floppy Drives - Monochrome Monitor, MS-DOS $1,299.00 

5mcg/XTira - 1 Floppy Dri« - Monochrome Monitor. MS-DOS Sl.599.00 

lOmeg/XTlra - 1 Floppy Drive - Monochrome Monitor. MS-DOS 1.799.00 

20meg/XTlra - I Floppy Drive - Monochrome Monitor. MS-DOS 1.995.00 

Internal Tape Backup For Any Of Above systems Add S449.95 

Color for above systems 500.00 



PRINTERS 

Dot Matrix 

Cilizen S Call 

Stat Micronics — SC. Scries starting at $259.95 

Panasonic 1090 249.95 

Daisy Wheel 

Silver Reed 440 80 Column 12 CPS 315.95 

550 132 Column 19 CPS 439.95 

770 132 Column 36 CPS 895.00 

Olympia 132 Column 14 CPS with Form and Tractor Feed 399.95 

Apple/Franklin Printer Interface w/Graphics and Cable 84.95 

Printer Cables starling at 19.95 

Printer Paper — Micropcrf Edge 1000 Sheets 16.95 



ELECTRICAL 

Surge I'roteciors — Line Filters — SL Waber — 6 Outlets with Swiich ... . S 39.95 
Unintcrruplable Power Supplies 399.95 



MISCELLANEOUS 
























Floppy Disk Drive Cables 

2 Drives 


16.00 

18.95 

24.95 
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SOFTWARE SUPPORT, INC 



1 Edgell Road, Framingham, MA 01701 (617) 872-9090 Telex-383425 

Hours: Mon. thru Fri. 9:30 am lo 5:30 pm (E.S.T.) Sal. 10 am lo 3:30 pm 

SERVICE POLICY — Our Professional Technical Staff Is Available To Assist You Monday Through Saturday. 

WARRANTIES — Up To One Full Year Parts And Labor. Floppy Disk Drive Power Supplies — Five (5) Years. 

SERVICE — 24 Hour Turn-A-Round On All In-Stock Parts. Dealer Inquiries Invited. Call 617-872-9090 

Please Call For Shipping, lb!! FYeC 1-800-343-8841 -«Stcla7 

Handling And Insurance. Please Call For Our Latest Price Saving Specials. without Notice. 



ADVENTURE CONTEST REPORT 



And now, the moment you've been 
waiting for . . . It's time to announce 
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We've struck it rich! Once 
again, we've journeyed to the 
end of the rainbow in search 
of the elusive pot of gold. And when we 
found it, we couldn't have been happier, 
for within it was the vast collection of 
entries to the Third Annual RAINBOW 
Adventure Contest. First sight of the 
shining treasure showed that we were in 
for something special. We knew that 
among all the grand Adventures in the 
pot, there would be enough riches to 
share with everyone. 

For those who do not know. Adven- 
ture games are comprised of fictitiously 
created situations and predicaments 
that involve fantasy characters, stra- 
tegic escape tactics and out-of-this- 
world attempts to gain fortune. The 
mind-boggling challenges that Adven- 
ture games offer provide an escape from 
the real world, as we soon found after 
being elected to judge this year's pro- 
gramming competition. 

The judging assignment was wel- 
comed with open arms, however, we 
realized a sacrifice was necessary. Late 
nights on the town with friends had to 
be given up. Well, the late nights re- 
mained, but the parties weren't with our 
regular crew of friends — they were with 
wizards, ghosts, serpents, dwarfs and an 
endless number of weird characters. 
And, their idea of a good time included 
casting spells, setting traps, sending us 
on wild goose chases, stealing our 
possessions, and using every deceitful 
trick imaginable to torment us, often to 
our death. How could we even think 
about going to sleep when we were 
trapped in some continuous maze with 
something called a "Vanta" hounding 



By Jutta Kapfhammer and Philip Helm 
Adventure Contest Judges 



our every move? 

Of course, the biggest trap we found 
ourselves in was our sudden addiction 
to playing Adventure games. After 
playing only a few, our hunger for more 
Adventure became so intense that it 
sometimes won out over our hunger for 
substantial food. FaslTood bags, pizza 
delivery boxes, candy bar wrappers and 
soft drink cans cluttered the room. At 
one point we even considered naming 
the upcoming book The Rainbow Book 
of Adventures and Junk Food Diet 
Plan. 

Embarking on the journey in search 
of the best Adventure entries was a 
pleasant but difficult experience. As 
judges, we mixed business with plea- 
sure, working and playing diligently to 
pick what we think are this year's most 
mystifying and entertaining Adventures 
assembled by amateur programmers. 
Although there were less entries in this 
year's competition, it didn't take long to 
realize there were more high-quality 
programs. With a dramatic increase in 
the number of new programmers who 
entered this year's contest, new ground 
was broken with novel ideas and innov- 
ative techniques. Just having a chance 
to view them first-hand was indeed 
rewarding. 

We again had contestants from all 
around the globe. Entries were received 
from all over the United States; from 
McKinleyville, California, to Man- 
hassct Hills, New York; from Bay City, 
Michigan, to the Florida Keys. They 
also arrived from our Mexican and 
Canadian borders, Brazil, Australia, 
Puerto Rico and places that had us 
daydreaming about exotic vacations. 



We heard from programmers from all 
walks of life, including doctors, moth- 
ers, farmers, white collar and blue collar 
workers, and many young students. A 
fiction writer and an actor also got in 
on the act. It simply demonstrates that 
with the proper skills, Adventure pro- 
gramming is a hobby that almost 
anyone can enjoy. 

It was plain to see from the beginning 
that the judging of so many excellent 
programs would not be an easy task. 
From just opening the packages, some 
of the entries had us intrigued even 
before turning on the computer. With so 
many nicely written articles, accompa- 
nied by excellent art, intricate maps and 
step-by-step solutions, good impres- 
sions were made immediately. 

Knowing that each contest unveils 
new dimensions in programming, there 
was a sense of anticipation with each 
and every entry we reviewed. We found 
many improvements over last year's 
winners that immensely enhance the 
involvement of playing Adventure 
games. 

Once again, the graphics entries 
highlighted the contest. Because there 
were so many really good graphics 
programs, there are more graphics 
winners than in the previous contests. 
Even a majority of the text Adventures 
include brilliant graphics title screens. 
We thoroughly enjoyed the vivid scenes 
portrayed throughout the graphics 
Adventures. 

The dialogue used in the Adventures 
is stimulated by the use of some new 
command concepts that are not often 
seen. One, for instance, uses a graphics 
display of the available commands, 
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which are chosen using the joystick and 
a code letter on the keyboard. In others, 
sophisticated parsers are used to trans- 
late complex sentences into two-word 
English key words for the computer to 
respond. Clever verb commands such as 
ASK, which allows for two-way com- 
munication with characters in the Ad- 
venture, and LISTEN, which makes it 
possible to hear what others in a room 
are saying, were also offered. All add to 
the feeling of reality with just a little 
imagination. 

More impressive creativity is shown 
in some by the use of "subgames" within 
the Adventure. They range from simu- 
lated chess games to number-guessing 
games to even video arcade-type games. 
Another program uses a graphics direc- 
tional map that traces the player's 
moves. Both features make the games 
more enjoyable and easier to follow. 

As in the past, excellent sound effects 
and music are used throughout this 
year's Adventures. And, of course, 
many more incorporate our favorite 
features: the HELP command, score 
tallying, randomized play and the 
game-save feature. It is important that 
we continue to see improvements and a 
wide range of new techniques with every 
new contest. Hopefully, this and future 
programming competitions will help 
broaden the knowledge and the full 
potential of the Color Computer. 

Hundreds of hours were obviously 
spent by this year's group of winning 
contestants on their programs. All of 
them should take great pride in their 
dedication in creating quality programs 
that exhibit such sophistication, profes- 
sionalism and creativity. 

Although our generous advertisers 
have contributed some very nice prizes 
for the 20 winning Adventure pro- 
grammers, the recipients of the best 
award will be you, our readers. That's 
because, once again, all of the runners- 
up will be published in an illustrious 
collection. The Third Rainbow Book of 
Adventures. You're sure to have loads 
of fun with all the Adventures and, who 
knows, you may just come up with a few 
terrific ideas of your own for THE 
RAINBOW'S next programming competi- 
tion. 

We take great pleasure in presenting 
the following awards to the 20 finalists 
in the Third Annual RAINBOW Adven- 
ture Contest: 

Honorable Mention goes to William 
Smit, a 12-year-old from St. Johns, 
Newfoundland, for his inviting pro- 
gram entry. Lei Me Out O' Here. The 
name says it all for this one-room 



Adventure since the objective is to get 
out. Several creative verbs are used and 
many objects must be retrieved to aid 
the escape. 

Honorable Mention goes to Danny 
De Busk of New Tazewell, Tennessee, 
for his graphics entry, Mr. Dead. Given 
10 different suspects, 10 possible 
murder weapons and 10 potential 
rooms where the killing may have taken 
place, a murder mystery must be solved 
through a series of deductions. Al- 
though not an Adventure in the true 
sense, the delightful graphics and fun in 
playing it make it quite worthy of 
recognition. 

The Best Mini Adventure Award 
goes to Matt Hazard, a 14-year-old 
from Columbia Station, Ohio, for his 
graphics beginner Adventure, Escape. 
The totally joystick-controlled game 
involves only four rooms, but a cloistral 
surprise awaits those who make it to the 
end. 

The Magic Sparkler Award goes to 
Don Sheerin of Phoenix, Arizona, for 
Amulet. Don, a building inspector, did 
a top-notch job of constructing his 
entry, and his fine work could not be 
overlooked by the judges. Finding the 
five hidden gems and the amulet among 
the dozens of objects throughout the 24- 
room mansion provides endless fun. 

The Back-to-the-Future Trophy is 
awarded to 16-year-old Jason Hunter 
Dolinsky of Manhasset Hills, New 
York, for The Time Machine. His Ad- 
venture relives history through three 
different time zones: two in the past and 
one in the future. The entire journey 
must be completed in two hours and the 
time is displayed on the screen. That is, 
of course, as long as the wristwatch is 
in the possession of the traveler. A 
clever LISTEN command is offered and 
sometimes comes in handy when others 
are in the room talking. Jason's remark- 
able invention of The Time Machine 
captures the feeling of the creation of 
history. 

The I6K Best of Show is awarded to 
Thomas E. Riley of Johnsonville, New 
York, for The Maze of Moycullen, an 
entertaining beginner Adventure, which 
begins on Page 58 of this issue. Thomas 
did a fine job of utilizing low resolution 
graphics by showing a bird's-eye view of 
an occupied room, and with the text 
display of all pertinent information 
(verb list, inventory, directions) also on 
the screen, makes it easy to understand 
and a delight to play. Even the youngest 
of Adventurers can enjoy this one, as all 
commands selected are entered simply 
by pressing a single key. 



The I6K Runner-Up is awarded to 
Mike Shay of Lebanon, Pennsylvania, 
for Ghost Town, one of the shortest 
programs among this year's entries. 
Drinking is crucial to continuing the 
Adventure and you can wander for 
hundreds of moves discovering all sorts 
of fun things. Or, you can solve the 
game in only 3 1 moves, if the clever and 
tricky hints that Mike provides are used 
wisely. 

The First Aid Award goes to Joab C. 
Jackson of Owings Mills, Maryland, for 
his graphics entry. Balm. This exciting 
program provides relief for those who 
have been brutalized by other Adven- 
ture games and seek revenge. Joab, with 
unsparing assistance from Barbara 
Jackson, has created a most unusual 
and interesting theme. The player be- 
comes the Adventure with the task of 
stopping eight invaders with traps 
placed throughout the game. The eight 
invaders all seek a disk that holds the 
secret to the ultimate question and you 
must protect it. 

The Hard-Nut-to-Crack Award goes 
to Franklin Marrs, a fiction writer from 
Columbia, Missouri, for his mysterious 
Adventure, The Professional. Franklin 
has compounded the already difficult 
task of returning a client's stolen jade 
necklace by creating a random Adven- 
ture that hides it in one of five locations. 
He has also incorporated an ASK 
command, which allows the private 
detective to request clues from people 
he meets during his rendezvous. It's a 
mind-boggling Adventure that de- 
mands playing again and again. 

The Ghost Busters Award goes to Jon 
Blow of San Diego, California, for The 
Escape of Embroilment. It is definitely 
the most difficult Adventure of this 
year's entries. An excellent assembly of 
exciting features makes it as enjoyable 
as any. Since Jon offers three video 
games and a slot machine, different- 
colored ghosts that scatter inventory, 
and a gun with different and unknown 
settings for zapping each of the multi- 
colored threats, his game should keep 
you busy and frustrated for a long time. 

The Maze Amazes Award goes to 
Curtis Keisler, a high school senior 
from Barnwell, South Carolina. His 
graphics entry. The Evil Crypt, is prob- 
ably the most unique Adventure among 
this year's contestants. There are three 
levels in the cryptic maze, the doldrums, 
the catacombs and the dungeons, with 
enough action in each to keep you 
Adventuring for quite some time. Stair- 
ways must be found to travel between 
levels. The graphically displayed por- 
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GREAT COCO PRODUCTS 



UNIVERSAL VIDEO DRIVER 

WHY DOES THE MARK DATA 
UNIVERSAL VIDEO DRIVER 
OUTSELL ALL OTHERS 
COMBINED??? 
BECAUSE IT'S THE BEST!!! 



Great Price! Only $29.95 



Carefully engineered to 
work with ALL Color 
Computer models 
including the newest 
COCO II. Enables your 
COCO to operate with a 
video monitor instead of a 
television. 




Works with monochrome 
monitors! 
Works with color 
monitors! 
Audio Connection 
included! 
Easy installation- 
no soldering! 



SPECIAL— Order one of our quality video monitors and 

get the Mark Data Universal Video Driver for just $24.95 

SAVE $5.00 



QUALITY VIDEO MONITORS 





SAKATA COLOR SC-100 $199.95 

The SC-100 is a streamlined 13" composite 
monitor which produces sharp, brilliant 
colors. The cabiner is made ol durable sly- 
rene and is available in an attractive oil-while 
color. Includes audio with speaker and ear- 
phone jack. we highly recommend this color 
monitor because 01 its excellent performance 
and beautiful styling. 

Order a quality monitor from us and get a 
Universal Video Driver for only $24.95 



CAMBRIDGE GRAPHICS AMBER 
SCREEN MONITOR $119.95 

A 12" amber screen composite monitor of the 
highest quality with ciception.il reliability 
and performance 16 MHZ bandwidth. At- 
tractive off-white cabinet. We use this mom- 
:ur in our offices. 
We carry other brands also. 
Call (or additional information. 



Save $5.00 



SERIAL TO PARALLEL PRINTER INTERFACE 

300 to 9600 baud. Complete with all 

cables and connectors. 

Only $49.95 



NEED MORE MEMORY? 64K Memory Expansion Kit 

All parts and complete instructions (for 'E' and 'F 

boards and CoCo II). 

NOW ONLY $14.95 
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PRINTERS 



NEW Star Gemini 
SC-10 model printer 

Only $249.95 

120 cps w/true 

descenders, 

2K buffer; 

proportional 

spacing. New model for 1985. 




"The Connecting Link" 




ONLY $29.95 



COCO-UTIL 

CoCo-Util is a valuable utility 
program that allows you to transfer 
Tandy Color Computer disc files 
to your MS-DOS machine. You 
may also transfer MS-DOS files to 
a Color Computer disc. CoCo-Util 
will save you countless hours of 
retyping... a great new utility. 



GREAT BARGAINS ON 
COCO DISC DRIVES! 

COMPLETE SYSTEMS INCLUDE: 

• Hi-Quality Teac Thin Line Drives 

• Attractive, Beige Dual Drive Cabinet/Power Supply 

• Fill Panel for Single Drive Disc Systems 

• Radio Shack or NEW TYPE I & M Disc Controller 
Offering Switch Selectable Roms and Parallel Printer Porr 

• Cable and Operating Manual 

• Full 90 Dav Warranty 

Single Drive (SSDD) in Dual Cabinet w/Conlroller S299.95 

Additional Drive 89.95 

Two Drives (SSDD) in Dual Cabinet w/Conlroller 384.95 




Single Drive IDSDD) in Dual Cabinet w/Controller 

Additional Drive 

Two Drives (DSDD) in Dual Cabinet w/Conlroller 



359.95 

129.95 
484.95 



Dual Cabinet/Power Supply 79.95 

Disc Controller (Radio Shack or) & M) 139.95 

Connecting Cable 24.95 

Radio Shack DOS ROM 1.1 or l/DOS w/Manual 39.95 



SUPER PRO KEYBOARD 




WHY 
PAY 

MORE? 
The best is 
only $59.95 



FOR D, E AND F BOARD MODELS 

Original Key layout 
Fast, easy installation- 
no soldering 
• Individually boxed with 
full instructions 
Smooth "Touch Typist" feel- 
no sagging 
U.S. made — high quality, quad gold contacts 
Professional, low profile, finished appearance 

'Computers produced after approximately Oct. 19B2 require 
an additional keyboard plug adapter. Please add $3.95. 



$ Save Money on Your Cassette & 
Disc Supplies $ 

We buy cassettes and discs in large quantities for our own use and can pass the 
Savings on fo you. 



C-10 Cassettes w/labels 


.59 ea 


10 lor S5.50 


Cassette storage box 


.25 ea 


10 (or 2.00 


Basic 1.2 ROM 




S39.95 


Extended I.I ROM w/Manual 


, 


49.95 
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5V4 Discs 

High quality, nationally advertised brand. Guaranteed Performance. We will 
replace any disc thai fails during normal use. Discs are double density, reinforced 
hub wilh sleeve. S 12.95 (or 10 discs in an attractive storage box. • Great Price! 
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DISC STORAGE 




Attractive, heavy duty acrylic case with 
lock. Holds and protects 50 5Va" discs with 
five moveable indexed dividers. 

SUPER BARGAIN ONLY $9.95 

SPECIAL - Purchase this attractive storage case 
including 10 discs for only $21.95. 



SERIOUS STUFF 



ACCOUNTING SYSTEM 

The Mark Data Product* Accounting System is ideal for the small businessman needing a 
fast, efficient means to process income and expenses, prepare detailed reports and 
maintain most of the information required at lax time. The system is a family of programs 
which operate by means of a "menu" selection scheme. When the operator selects a task 
to perform, the computer loads a program designed to handle that task from the system 
disc The system disc contains all of the programs required to create, update and maintain 
data files and prepare the necessary accounting reports including a transaction journal, a P 
& I or income report, an interim or trial balance and a balance sheet. 
This accounting software equals or exceeds higher priced packages for other computers 
and includes a detailed operating manual. ONLY $99.95 



ORDER ENTRY SYSTEM 

The M.irk Data Product sales order processing system provides a fast, efficient means to 
enter urdffi. print shipping papers and invoices, prepare sales reports, and monitor 
receivable- I he system automatically enhances the monitor screen to a 51 character by 24 
line display. l-'K of memory is required along with an 80-column printer and one or more 
disc drives. 

This order entry software equals or exceeds higher priced packages for other computers 
and includes a detailed operating manual. ONLY $99.95 



EASY EDIT 



Easy*Edil is a versatile, easy to use text editor which is particularly convenient for assembly 
language and BASIC programming. This editor offers powerful text handling capabilities 
along with many special features including a built-in disc operating system, 32/64K memory 
sense, a 51 character by 24 line screen, auto key repeal, extensive error reporting, and 
complete compatibility with popular assemblers. Requires 32K and at least one disc drive. 
Master disc and instructions are packaged in an attractive 3-ring binder. $34.95 



EASY-FILE 



Data Management 
System 



Rainbow, Nov. '84 "Easy File is one program that Invs up to its name. . . Easy File is so easy it speaks 
for itself." 

Hot CoCo, Feb. '85 "I've examined four database programs for the CoCo in the last few months. 
Easy File is the easiest to waster and the one that best addresses my needs. If you need to organize 
the information in your lite, Easy File might just be the best method." 

Need a good mailing list or customer list program? How about a program to keep track of your in- 
vestments, your computer magazines, or record collection' Do you have an inventory of all house- 
hold items for insurance purposes? EASY-FILE will do all of these things and many more. The 
EASY-FI LE master disc and instructions are packaged in an attractive 3-ring binder. Requires 32K 
and at least one disc drive. 

Order Yours Now! Gel Organized for Only $59.95! 



SUPER S CREEN 

The Color Computer Supercharger 

• A big 52 character by 24 line screen 

• 'PRINT @* is fully implemented on the big screen 

• Easily combine text with hi-res graphics 

• Auto-key repeat fc greater keyboard convenience 

• The 'ON ERROR GOTO' statement is fully implemented ' 

• Control codes for additional function 

Guaranteed to be the most frequently used program in your software library, once you use il you 
won't be without it! Cassette $29.95 Disc $32.95 




JUST FOR FUN 




The Greatest Hi-Res Graphic Arcade 
Game Ever Written for Your CoCo! 



SUPER ACTION 



Welcome Shock Trooper Squad Commander 

Intelligence has intercepted a coded message revealing a plan to 
conquer Earth. Four of your Shocktroopers must infiltrate the heavily 
defended underground enemy base and steal all of their secret TRG-5 
attack saucer sub-assemblies. Return them to our scientists for analysis. 
This secret information is crucial to our defense. 32K Required. 




By Rob Shaw, author of 

Tilt's Tomb 

Another of our outstanding 
arcade games. 
Don't miss it! 



Also: Presenting the Sixth and Most Challenging of Our Adventures 



By Bob Withers 
k and Steve O'Dea 



THE 

VOftTEX 




What is it? What secrets does it hold? The seeker of 
treasures through time and space must find out! From 
the coliseum of ancient Rome to the futuristic world 



of tomorrow. 
FACTOR Join us in this new and 
unforgettable odyssey. 



Other Exciting Adventures 

Calixto Island • Shenanigans 

Sea Search • Trekboer 

Black Sanctum 




All Games - Cassettes $24.95 Discs $27.95 32K Required 



SHIPPING: All orders under $100 please add >- regular, S3 air. All orders ovei S 100 please add 1% regular, 8% air California residents plea-' add G% Mies tax. Orders outside 
the continental U.S.. check with us for shipping amounl! please remH U.S. funds. Software authors -mniait us for exciimi; program inaiketmii details. Weaccepl MasterCard 
and VISA, Distributed n> Canada by Kelly Software. 

FREE— Send for our tree catalog tlier. 
\\ 




Mark Data Products 



Department C 24001 ALICIA PKWY., NO. 207 • MISSION VIEJO, CA 92691 • (714) 768-1551 



tion of the maze that shows exactly 
where you are at the time is very nicely 
done and gives just enough direction to 
keep you moving using the four arrow 
keys. However, there is a lot of ground 
to cover and plenty of treacherous 
obstacles and hidden dangers to view as 
you approach them. There are also 
magical objects to be found, many 
essential in killing the Evil Lord who 
dwells within. 

The No Nukes Award is presented to 
Scott McCleary of Palmyra, Pennsylva- 
nia, for his graphics entry, Spymaster. 
The graphics presented in the Adven- 
ture rated very high with the judges. Not 
only is each room shown, but the entire 
inventory is graphically displayed in a 
most creative manner across the bottom 
of the screen at all times. Beeping tones, 
which sound for each letter of the 
scrolling text and the input commands, 
add another nice effect to this exciting 
search for the stolen nuclear weapons. 

The (G)Rand-McNally Award is 
presented to Fred D. Provoncha of 
Lynbrook, New York, for his innovative 
Adventure, Aandark. This great plane- 
tary exploration is made even better 
with the use of an area map that tracks 
your every move. The capability to view 
a map of the entire region, showing 
where you have traveled and where you 
can proceed, is a brilliant addition to the 
program. Being from a young, self- 
taught programmer, Fred's entry 
should be an inspiration to many. 

A Standing Ovation for an Outstand- 
ing Performance is given to Walt 
Thinnes of Ft. Lauderdale. Florida, for 
his original entry. The Actor's Night- 
mare. A splendid graphics title screen is 
accompanied by two fine musical selec- 
tions. The Adventure takes place in a 
theater and, being an actor and theater 
technician. Walter did an excellent job 
on the layout and description. The plot 
is quite intriguing. As the real star 
performer, you have 10 minutes or 120 
moves to prevent your fickle under- 
study from going on in your place and 
ruining your career. There are many 
obstacles on your way to the stage in the 
vast, confusing theater. This, combined 
with the time limit and one logical, but 
tricky, twist should send even the best 
of Adventurers to the start of this game 
several times before it is solved. 

The Best Adventure in a Continuing 
Series goes to Chris McKernan of 
Mississauga, Ontario, for his most 
enjoyable graphics entry, The Sword 
and the Sorcerer. It is a four-part 
journey with each part being linked to 
the next, making it an Adventure of an 



Adventure. Chris, who also won an 
award in the Second Annual RAINBOW 
Simulation Contest, has again pro- 
duced some fine graphics and incorpo- 
rated lots of surprises within the pro- 
grams. The addition of a ROOM 
command, used to examine the room 
for objects, and an ASK command, for 
obtaining helpful hints from people in 
the game, are just a few of the reasons 
this Adventure series was a big hit with 
the judges. 

The Take 'Em Single-Handedly 
Award goes to Mike Anderson of Tuc- 
son, Arizona, for his creation. The 
Adventures of Johnny Zero. With help 
from his brother, Mark, Mike has 
programmed a totally graphics Adven- 
ture packed full of enticement. It is 
played entirely with the use of one-letter 
commands, and movement through the 
game is done smoothly with single 
touch responses to its questions. Mike 
shows good taste with his use of a clue- 
giving CoCo that is Johnny Zero's 
companion throughout the Adventure. 
But of course, what spy would be caught 
dead without one? 

The Non-Graphics Runner-Up 
Award goes to Philip Newton, a 15- 
year-old honor roll student from Cleve- 
land, Tennessee, for The Adventure of 
Cleopatra's Pyramid. The game in- 
cludes 36 verbs and accepts full senten- 
ces and multiple commands (up to three 
in one entry). It is a classic Adventure 
through deserts and pyramids that 
captures the realism of "being there." 
You have to eat and drink, and fight off 
scorpions, cobras and deadly croco- 
diles, all of which move about as you are 
playing. You are also constantly pes- 
tered by a wandering mummy, who will 
steal your possessions and hide them 
throughout the catacombs. And, if 
that's not enough, you stand the risk of 
being stranded in the desert forever if 
you don't complete the quest in five 
days. It all adds up to a sophisticated 
and challenging Adventure that pro- 
vides spine-tingling excitement. 

Non-Graphics Best of Show and 
Third Place goes to Ann B. Mayeux of 
Key West, Florida, for her brilliant 
entry. Time Travelers. She has a degree 
in psychology, and with two small 
children to care for, Ann somehow 
found the time to create an Adventure 
that offers seven times the excitement in 
one. As a time traveler, you have the 
option of choosing any one of seven 
historical places in which to travel. 
There are fantastic treasures and many 
dangers awaiting those who trek into 
the age of dinosaurs. King Arthur's 



Camelot, El Dorado. Ancient Rome, 
Sherlock Holmes' England, the roaring 
'20s and even the future. The success of 
the treasure hunting in time determines 
your standard of living when you return 
to the present. If your collection is 
incomplete, life in a lowly New York 
City tenement could be your just re- 
ward. 

Graphics Runner-Up and Second 
Place is awarded to Carlos Eduardo 
Rocha of Belo Horizonte, Brazil, for his 
entry, Iconia. Carlos' all-graphics Ad- 
venture uses the four arrow keys for 
traveling and incorporates a clever use 
of symbols, or icons, for commands. 
The eight icons, always graphically 
displayed on the screen, are used to: 
open doors, get or leave objects, look at 
or use objects, push buttons, show an 
inventory or finish the mission. A 
joystick must be used to operate the 
icons, making it the most original 
utilization of commands in this year's 
competition. And, with creatures that 
run around scattering the objects al- 
ready obtained, it also is one of the most 
difficult. 

Graphics Best of Show and Grand 
Prize is presented to Dr. Bruce Bell, an 
optometrist from Rockmart, Georgia, 
for his excellent graphics Adventure, 
The CoCo Zone. This grand-prize win- 
ning Adventure was, in fact, the very 
first program chosen to evaluate from 
the heaping pile of entries. The profes- 
sionalism we discovered by merely 
opening the package and glancing 
through the comprehensive documenta- 
tion kept this one in our minds as the 
graphics winner from beginning to end. 

In addition to being the most 
professional-looking, well-organized 
entry, CoCo Zone is packed full of 
outstanding features. Three basic pro- 
grams, which include machine language 
subroutines, make up this quality Ad- 
venture with its superb graphics. One of 
the programs creates 10 of the best 
graphics screens we have seen produced 
on the CoCo. The Adventure includes 
a game-save feature and a verb list that 
must be discovered during game play. 
An arcade-like subgame is embedded 
into the program and sound effects are 
cleverly used throughout the Adven- 
ture. The smooth-running program 
makes full use of 64K, operates on a 
cassette- or disk-based system and 
includes a 32K modification. 

The judges' decision was unanimous 
in choosing CoCo Zone as the very best! 
Our hats off to Dr. Bruce Bell for his 
magnificent winning Adventure, which 
appears on the following pages. □ 
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MIDI-ize Your CoCo With 

RCHES 



J «9. 





All of those marvelous, musical soundsyou've been 
dreaming about can come to life through your Tandy 
Color Computer, MIDI equipped keyboard 
synthesizer and the COLORCHESTRA system 
package. 

With COLORCHESTRA, you can create 
masterpieces of music, overlaying up to 8 tracks of 
synthesizer sound. 

Once you've keyed or played your composition into 
the Color Computer, you can edit each individual 
note; and, after you're satisfied with what you've got, 
there's quantizing to clean up timing errors. 

COLORCHESTRA works with you to record music 
in real time and adds the features of mixing or 
transposing tracks, and, with 8,000 note storage 
capability, you have enough power to produce the 
most demanding music compositions. 

The COLORCHESTRA software (from the author of 
CoCo MIDI), is simple to use incorporating menus and 
graphic icons and can be cassette driven or called up 



. on disk with your 64k Color Computer. 

As for the hardware, it was carefully designed to be 
something special. Each cartridge is fabricated in 
genuine walnut and hand finished. The boards are 7 
mil gold plated, (not just the edge connector--the 
ENTIRE board) for optimum interface connection. 
Because each piece resembles a fine musical 
instrument, it is serially numbered on thecasefor your 
collection 

Although COLORCHESTRA incorporates 
outstanding professional features found in other MIDI 
systems, it's priced just right. 
At $149.95, you can MIDI-ize your 64kCoCo. 

The complete package includes hardware, 
sequencing software, ring bound quality 
documentation and Two MIDI cables 

So now all of those fantastic music sounds you've 
been hearing in your head can be produced for the 
whole world to hear. 



u° LO M C ? ES Ju A SVS T C ° mple,e " $149 95 Ca " a "V <*»V lex Sun ) .o order We sh.p same day We accept cash check COD 
Visa, Master Charge Sh.ppmg add 3 00, COD add 2 00 Lou.s.ana residents add 7 8 sales .ax 

Call lo, latest pncinc, on syn.hes.zers, v cables, extra MIDI cables Software programmers - please wn.e lo, author package 
C01.0Hi-HESTRAC.Tv.,„M. liWSCW !..„„„„, Ill v 




318-942-1938 P O Box 289 Opelousas. Lou.siana 70570 




F rONTFST WIN1 



( nm i he harrier jnto another 
dimension known as . . . 



• THE 
COCO 




Program by Bruce K. Bell, O.D. 




'Mt^^^H 



ihc prison guard shuns ihc cell door in your face 

and walks aua\ laughing, yOU wonder how in ihc world a 
pcilccik oiuam/ed \acalion haslunicd into ;i mysteri- 
ous prison sentence. With ihc use ol ihc Ruhi.x I <i<<nit>n 
Planner, ;\ program designed spceilicalU Iwyoui CoCo. you 



ullmcd and hooked v\hal promised lo he a'jympK marvelous 








' •■MNfl: 



vacation. It was almost as if the entire 
trip would be controlled by the CoCo. 
But since being arrested and found 
guilty of a crime you could not possibly 
have committed, you have to wonder if 
your program was somehow sabotaged. 

Not long after reaching your destina- 
tion, the news of the disappearance of 
the infamous African jewel was made 
public. The most magnificent and mys- 
tifying of all stones was on a touring 
exhibition, but was stolen before mak- 
ing it to the museum. H owever, the local 
police announced they had a suspect in 
mind and felt they would have the 
dastardly criminal behind bars before 
the end of the day. 

Sacrificing your curious preoccupa- 
tion with the African jewel incident to 
resume the vacation, you packed your 




rfOM: IHFIRHARY 
EXITS: II UICU! E 

YOU 8EEi CABIHI.I 

ininr iiext? r- 

YOUR KEY IIORKED. If IB UNLOCKED 



backpack for an afternoon of sightsee- 
ing and some off-the-beaten-path ex- 
ploring. However, before making your 
exit, a troop of uniformed officers 
bolted through the door of the beach 
hut, handcuffed you and provided an 
escort to the city's Hall of Justice. 
Although never resisting, you were 
literally dragged into the courtroom. 
With no booking, no processing and 
without making one comment in your 
defense, you were found guilty of steal- 
ing the African jewel. The result of the 
mock trial: a sentencing of imprison- 
ment for an undetermined amount of 
time. 

You must have been framed. Could 
the Rubix Vacation Planner have some- 
thing to do with this mess? You know 
you could prove your innocence in a fair 
trial, but not hopelessly stuck behind 
bars. Your imagination ponders escape. 
Fat chance! But suddenly, a nervous- 



Dr. Bruce Bell practices optometry in 
Rockmarl, Georgia, and uses his CoCo 
extensively in both his home and bus- 
iness. He particularly enjoys teaching 
learning-disabled children with visual 
problems. Dr. Bell has also written and 
published Arcade Games in BASIC for 
the Color Computer. 



". . . you were found 
guilty of stealing the 
African jewel. The 
result of the mock 
trial: a sentencing of 
imprisonment for an 
undetermined 
amount of time. " 



looking guard approaches delivering a 
tray of food. The meal looks less than 
appetizing. As you lift the napkin to 
wipe the perspiration from your brow, 
a note falls to the floor. The guard 
dashes away. You can disregard the note 
and dream of being rescued, or pay heed 
to it, which could lead you on an Ad- 
venture through another dimension 
known as . . . The CoCo Zone. 

Loading Instructions 

The CoCo Zone Adventure requires 
64K Extended Color BASIC and consists 
of three BASIC programs: CoCo Draw, 
Boot and CoCo Zone. Some of CoCo 
Draw's subroutines (lines 1-25) are 
taken from Fred Scerbo's "Wishing 
Well" program. Seven More PMODE4 
Colors (THE RAINBOW, January 1985, 




location: arsenal 
EXITS; 

YOU SEE: RIFLE 



"IEII L 
GUIICASE 



IIHliT NEXT' l- 

ALARII PROTECTED HOIIEUER YOU SEE 
ONE RIFLE AGiiIlis.1 TME MALL 
OUTSIDE tll£ GUIICASE 



Page 32), and were used by express 
permission. The CoCo Draw program 
creates and saves the 10 graphics screens 
that are used in the game. The screens 
are loaded in the upper 32K of a 64K 
Color Computer. Boot loads the ma- 
chine language routines and the 10 
graphics screens created by CoCo 
Draw. CoCo Zone is the actual game, 
which is also loaded and executed by 
Boot. 

Carefully type in Boot (Listing l)and 
save a copy on either cassette or disk. 
If you are saving on cassette, the disk 
controller must be unplugged (if you 
plan to also RUN CoCo Zone with the 



controller unplugged) due to the differ- 
ent address of graphics video memory 
on a non-disk system. Then, type in 
CoCo Draw (Listing 2) and save a copy. 
If you are saving on cassette, you may 
wish to CSflVE'XOCQDRflW" on a separ- 
ate tape; it may be stored away since it 




LOCATION: HflAOUl 

i ■ : ! II 

Villi ll 

uiirti in: xt ' ► 



is not needed for actual game play. You 
must also return the same cassette — 
which you saved earlier as Boot (Listing 
1) -- to the cassette recorder. Returning 
the same cassette enables you to save the 
10 graphics screens created by CoCo 
Draw, following the Boot program. 

Now, RUN CoCo Draw and a colored 
screen appears. If it is red, press ENTER 
to continue. If the screen is blue, press 
Reset and RUN the program again until 
the screen is red. After the color test, 
you are asked if you wish to observe the 
graphics screens while they are being 
drawn. Though this will spoil some of 
the Adventure's mystery, it allows you 
to spot any obvious typing mistakes 
before playing the game. The choice is 
up to you, but the process is quite time- 
consuming, especially for cassette. If 
you choose not to see the scenes being 
created, a message informs you of the 
program's progress. 

After CoCo Draw's creating and 
saving process is complete your cassette 
or disk should contain 1 1 files: the Boot 
program and the graphics screens Zone 
through Zone 9. It is particularly 
important that the 1 1 programs are 
saved on the cassette in this order. The 
final step of game preparation is to type 
in and save the actual CoCo Zone game 
(Listing 3) following Zone 9 on your 
cassette or disk. 

You are now ready to play The CoCo 
Zone Adventure. Simply CLOAD or 
LDAD"B00T" and RUN. However, on 
cassette systems, after running Bool you 
must also ENTER RUN at the OK prompt. 
The color test appears and game play 
will begin. 

32 K Disk Modification 

The CoCo Zone uses bank switching 
for storage and retrieval of many of the 
game's graphics. However, in a 32K 
computer, the upper 32K of memory is 
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not available, therefore, the program 
cannot be loaded in its entirety. In order 
to reserve enough memory, save (by 
running CoCo Draw) Zone through 
Zone 9 on your game disk and make the 
following changes to listings I and 3. 

On the Boot program. Listing I: 

• DELete lines 6-9, 12-13 and 30-31. 

• Replace Line 5 with 5 FOR K=1T0 
2000: NEXT 

• Replace EXEC32714 in Line 32 with 
LORDtT'ZONE 9. P IC- 
On CoCo Zone, Listing 3: 

• Replace EXEC32714 in Line 138 
with G0SUB187:L0HDM"Z0NE" 
+STR$(X-l)+'vpiC": 
EXEC32211 

• Replace POKE491,10:EXEC32714 
in lines 179 and 184 with GOSUB 
lB7:LDflDM"2DNE 9. PIC": 
EXEC32211 

CoCo Zone's graphics screens will 
now be called from the disk drive 
individually, allowing it to be played on 
a 32K disk system. 

Hints on Playing the Adventure 
Since CoCo Zone contains a true 



directional map, tracing your moves 
can be extremely helpful. One-letter 
directional commands can be used (N, 
S, E and W) and you can always LOOK 
in any of the four directions (e.g., 
LOOK NORTH). Two-word com- 
mands are used: a verb followed by a 
noun. The first three letters of each verb 
and the first four letters of each noun 
can be used as abbreviation if desired to 
speed game play. 

The program keeps track of the 
number of command entries made. 
Each command is referred to as a move, 
and by typing SCORE, the number of 
moves made at that point is revealed. 
However, entering SCORE does not 
count as a move. 

In case the BREAK key is inadvert- 
ently pressed during game play, the Hi- 
Res screen will not be affected. By 
entering GOTO 4, the screen is cleared 
and play may resume by typing LOOK at 
the WHAT NEXT? prompt. You may 
also quit playing at any point by enter- 
ing QUIT. Then, when prompted with 
ARE YOU SURE?, enter YES, or just 
'Y\ The program performs a cold start 
and will be erased from memory. 

You may save and retrieve your game 
at any stage if desired. To save a game, 



enter SAVE and you are asked if the save 
is to disk or cassette. Entering 'D' or 'C 
initiates a disk or cassette save, respec- 
tively. Entering 'A' aborts the proce- 
dure. Before responding, however, 
prepare your disk or cassette for saving. 

To load a saved game, enter LORD. 
Again you are prompted for disk or 
cassette (or abort). Prepare your disk or 
cassette and press the appropriate letter, 
'D', 'C or 'A'. Press ENTER and after 
loading, the game resumes at the point 
at which you saved the Adventure. 

The challenge of CoCo Zone is not 
only to prove your innocence, but to do 
so in as few moves as possible. But you 
must remember, once you enter the 
CoCo Zone, trying to exit could result 
in death. Unless, of course, you are able 
to make the right moves at precisely the 
right time. However, as Dr. Bell might 
also remind you, don't bury yourself in 
the CoCo Zone without an escape plan! 

(Questions regarding CoCo Zone 
may be directed to Dr. Bell at 137 
Samanda Circle, Rockmart, GA 30153. 
Please include an SASE when writ- 
ing.) □ 

— Jutta Kapfhammer and Philip Helm 
A dventure Contest Judges 



*•*••• SELECTED SOFTWARE *••••• 



SOLDERLESS UPGRADE KITS 



With easy-to-follow instructions 

64K FOR E BOARD $39.95 

64K FOR F BOARD $29.95 

64K FOR COC02' (ALL MODELS) $29.95 
'Ail Korean models require ono solder joint. 



NOTE AH iCs used m our km are tint quality 150 <VS 
prime chips and carry one lull year warranty 



ASSEMBLY LANGUAGE 

COLOR BASIC UNRAVELLED $17.95 

EXTENDEO BASIC UNRAVELLED $17.96 

DISK BASIC UNRAVELLED $17.95 

ALL 3 BOOKS ONLY $39 95 

THE FACTS IBOOKI $14.95 

ULTRA SOC DISK EDITOR ASSEMBLER $2435 

BUG OUT & THE ORACLE $1495 

ALL 6 ITEMS ONLY $59 95 



MURA MINI MODEM* 
& AUTOTERM" 

$54.95 (disk add $5.00) 
CoCo Cable $9.95 
"Direct connect 300 Baud manual ansawer/ 
originate with power supply & phone cable. 
"Newest version. 



COCO MAX I lapo only $64.95 

COCO MAX II dbk only S74.95 

Y-BRANCHING CABLE $27.95 

DS-69A DIGISECTOR I C-SEE III SOFTWARE 149.95 

HJL-57 KEYBOARD $69.95 

PBJ WORK PAK II $125.00 

THE INTRONICS EPROM Programmer 

Program Up to 64K Eprom $139.95 

DATARASE (Eprom Eraser) $39.95 

2764 HIGH SPEED COMPATIBLE $5.95 

27128 HIGH SPEED COMPATIBLE $7.95 

ROM PACK P.C. BOARD 

with case lor 27x» $9.95 

TEAC 559 DS/DD Hall Height Drive $100.95 



CASE AND POWER SUPPLY $49.00 

NEW J I M DISK CONTROLLER 

with J Dos 1.2 $129.00 

DISKETTE CAROUSEL $24.95 

ZENITH ZVM-123 GREEN $99.00 

ZENITH ZVM-122 AMBER $109.00 

VIDEO PLUS $24.95 

VIDEO PLUS IIC $34.95 

VIDEO PLUS II.J $34.95 

REAL TALKER I 

Wllh 3 Hiking garnet $49.95 

REAL TALKER II 

Wllh 3 talking game $54.95 

NUMBER JACK THE HJL Numorlc Key Pad $79 95 



Monthly Special 

8-Ball (Rompak) 

$14.95 



Take a closer look. . 



DYNACALC 

PROCOLOR FILE 20 

MASTER DESIGN 

TELEWRITER 64 

SUPER SCREEN MACHINE 

RAINBOW SCREEN MACHINE 

PEN PAL 

AUTOTERM 

ADOS 

SUPER BACKUP UTILITY 

THE PEEPER WITH SOURCE 

GRAPHICOM 



$39.95 
$35.95 
$23.95 

$31.95 



DISK 

$74.95 

$49.95 

$29.95 

$47.95 

S3B.95 

$26.95 

$64.95 

$39.95 

$27.95 

$44.95 

$26.95 

$17.95 



32K GAMES 



P51 MUSTANG 
Optional Cable 



$23.95 $27.95 

$9.95 



SAILOR MAN (64K) 

WORLDS OF FLIGHT 

DRAGON SLAYER 

DRACONIAN 

SR-71 

BUZZARD BAIT 

GALAGON 

LUNAR ROVER PATROL 

MS GOBBLER 

LANCER 

CUBIX 

FROGGIE 

SPACE PAC 

EDUCATIONAL PAC 

GHOST GOBBLER ROM PACK |16K) 

TREASURY PAC 



$23.95 
$23.95 

$22.95 
$23.15 
$22.35 
$16.95 
$16.95 
$16.95 
$16.95 
$16.95 
S16.95 
$21.95 
$19.95 

$29.95 



$27.95 
$26.35 
$23.95 
$24.95 
$24.75 
$18.95 
$16.95 
$18.95 
$18.95 
$18.95 
$18.95 
$18.95 
$21.95 
$19.95 
! 
$29.95 



WE PAY SHIPPING in ihe United States. Canada & Mexico. 
Overseas olease add 10%. (MN Residents add 6% sales tax.) 
We accept Visa. Mastercard, check or money order. U.S. 
funds only tor foreign orders. C.O.D. please add $2.00. 
(USA only). 



send.o SELECTED SOFTWARE 

P.O. Box 32228. Fridley. MN 55432 

24 HOUR ORDER LINE 612-757-2439 

INFORMATION 612-757-1026 (1 1 A.M. - 2 P.M. C.S.T 

SAME DAY SHIPPING BEFORE 1 P.M. C.S.T. 
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Listing 1: BOOT 

j6 'COCO ZONE BOOT 1.0, (C) 1985 

BRUCE BELL 

1 PMODE4,l:POKE179,2:PCLS:SCREEN 
1,1: IFINKEY$=" "THEN1 

2 CLEAR2j3;3 , 322 10 : CLS : PRINT "COCO 
ZONE (BOOT) l./3","(C) 1985 BRUCE 

K. BELL": PRINT: INPUT"cASSETTE 
R dISK" ; CD$ : IFCD$o"C"ANDCD$<>"D 
"THEN2 

3 CLS:PRINTSTRING$(32,124) ; 

4 PRINT "YOU ARE SEATED IN A DING 
Y COURT-ROOM, ENDURING HEAT SO S 
TIFLING THAT NOT EVEN THE FLIES 
HAVE BOTHERED TO DROP IN. YOU 



HAVE BEEN TRIED FOR THEFT OF 
THE PRICELESS AFRICAN JEWEL 
FOR", "WHICH YOU KNOW YOU ARE INN 
OCENT. 

5 FORK=0TO53:READD$:POKE32714+K, 
VAL("&H"+D$) :NEXT 

6 DATA34, 37, 7F,1,EA,CC, 80,1,1)3,9 
E,BC,BE,1,EA,3J21,1F,27,5,C3,B,FF, 
2j3,F7,lF,l,C3,B 

7 DATAFF,FD,7F,FE,A6,A0,1A,50,7F 
, FF , DF , A7 , 8J3 , 7F , FF , DE , 1C , AF , BC , 7 
F,FE,2 6,ED,3 5,B7,j3,0 

8 FORK=j3T04 : IFCD$="C"THENCLOADM" 
ZONE"+STR$ (K) ELSELOADM"ZONE"+STR 
$(K)+".PIC" 

9 POKE491,K+l:EXEC32714:NEXT 

10 PRINT" A MILDLY PLUMP JURY 
FOREMAN SMILES AT A PREOCCUPIED 

JUDGE ASHE STATES A VERDICT OF 
GUILTY! THE JUDGE WINKS AT AN O 
VERCONFI-DENT DISTRICT ATTORNEY 
AS HE PRONOUNCES SENTENCE. A 
SENTENCE" 

11 PRINT"THAT NEITHER HE NOR YOU 
FULLY COMPREHEND. ONE WHOSE O 

NLY LIMITS ARE THE BARRIERS 

OF THE IMAGINATION. FOR YOU HA 

VE JUST CROSSED OVER INTO THE.. 



Our Expansion Connector Breadboard 

Lets You Acquire Data 

And Control Outside Devices 

With Your CoCo 

Good for schools and individuals. Put your versatile 
CoCo to work sensing and controlling external events 
using the simple techniques and fundamentals given in: 
*TRS-80 Color Computer Interfacing, With Experi- 
ments, Book No. 21893 $14.95 with the *Expansion 
Connector Breadboard, CC-100 $34.95 and the 
*Experimen< Component Package, CC- 150 $67.50 
containing all of the components needed to do the 
experiments in the book. (See the Hardware Review in 
Nov. 1985.) 

Add $1.50 per item for shipping, or get all three for 
$105.00 plus $3.00 shipping. 

Virginia residents add 4% tax. VISA and Master Card 
accepted. 703-651-3153. 

Write for our catalog listing interface breadboards for 
other popular microcomputers, related books, and 
scientific software for data analysis and experiment 
optimization. 



PUTTING 
HANDS 
AND 
HINDS 
TOGETHER 




gfroup CJecknology, cL>ld. 

P.O. BOX 87 ■ CHECK, VIRGINIA 24072 



TRS-80 is a trademark of Radio Shack, a Tandy corporation. 
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CASSETTES 




COMPUTER GRADE^T 
• DATA TRAC • 1 

BLANK CASSETTES 



-05, C-06, C-10, C-12, C-20, C-24, C-32 



From the leading supplier ol Computer 
Cassettes, new, longer length C-12's 
(6 minutes per side) provide the extra 
few leel needed for some 16X programs. 
> BASFLHD IDPS) world standard tape 

• Premium 5 icrew ihell with leader. 

• Internationally acclaimed Thousands ol 
repeat users 

• trror Free • Money back Quaranlec 



BUY THE BEST, AT FACTORY-DIRECT PRICES 



♦ MO C-12 i or C- 101 — llrtKh 
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^i 1 L!! !, ! ll0 ' M ?W ORDER NOW. . . MAIL TO - 

r F( 1 MMFDIATF nn IVFRV^W ■■^^■a m^. ««„. 



FREE 

i cadov mHinnr 
* ooi ussrms Pimcwwo 
jpPi la SOO qu*m>ry <"*■ 



FOR IMMEDIATE DELIVERY 
on Credit Card Orders 
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VORK lO 

ORDER FORM i 



9525 Vassar Ave. »R1 
Chatsworth, CA 91311 

_ «HlT 

Each cassette includes 2 laDels only Bones sold separate- 
ly In Continental US shipment by U PS II Parcel Post 
preferred, check here □ 

Check or MO enclosed . Send Quantity Discounts [3 
Charge to credit card VISA n MASTERCARD Q 



Card No 



Oly 
Signature 



E»p . 



SlateZ'P 



Phone 



Ask about our DUPLICATING SERVICE 



30 



THE RAINBOW April 1986 



12 FORK=5T09 : IFCD$= ,I C M THENCLOADM 
"ZONE"+STR$ (K) ELSELOADM"ZONE"+ST 
R$(K)+".PIC" 

13 POKE491,K+l:EXEC32714:NEXT 

14 FORK=j3TO502:READD$:POKE32211+ 
K,VAL( II &H"+D$) :NEXT 

15 DATA30,8D,J8,19,BF,l,68,3j8,8D, 
0, 16 , BF, 1, 6B, 86, 7E, B7, 1, 67,B7,1, 
6A, 86, 39, A7,8C, £5,39,0,34,3 7,06, 
6F,26,5C 

16 DATA1F,2,DC,88,C4,E0,E7,8C,F0 
,86,C,3D,DB,89,E0,8C,E8,D3,BC,C3 
,0,60,9E,88,8C,5,0,25,3,C3,C,0,1 
E,2,81 

17 DATAFF,27,16,81,D,27,1A,81,8, 
27, 16, 81, 20, 27, 12, 81, 2F,2F, A, 81, 
5B,2C,6,20,A,86,2B,2J9,6,86,5B,2JI 
,2,86,2F 

18 DATA8E,7E,52,80,2D,30,8,4A,26 
, FB , C6 , 8 , A6 , 80 , A7 , A4 , 3 1 , A8 , 20 , 5A 
,2 6,F6,3 5,B7,34,37,86,FF,20,9C,F 
F,DF,D7,D5,D5 

19 DATAD7,DF,FF,FF,FF,FF,FF,FF,F 
F,FF,FF,C7,BB,BB,BB,BB,BB,C7,FF, 
EF , CF , EF , EF , EF , EF , 8 3 , FF , C7 , BB , FB 
,E7,DF,BF,83,FF 

20 DATAC7,BB,FB,E7,FB,BB,C7,FF,B 
B,BB,BB,81,FB,FB,FB,FF,83,BF,C7, 
FB,FB,BB,C7,FF,C7,BF,BF,A7,9B,BB 
,C7,FF,83,FB,F7 

21 DATAEF,DF,BF,BF,FF,C7,BB,BB,C 
7,BB,BB,C7,FF,C7,BB,BB,C3,FB,FB, 
C7 , FF , FF , BF , BF , FF , FF , BF , BF , FF , FF 
,FF,FF,FF,EF,EF 

22 DATADF,BF,F7,EF,DF,BF,DF,EF,F 
7,FF,FF,FF,FF,8 3,FF,FF,FF / FF,BF, 
DF,EF,F7,EF,DF,BF,FF,C7,BB,FB,E7 
,EF,FF,EF,FF,EF 



23 DATACF,AF,EF,EB,E7,EF,FF,EF,D 
7,BB,83,BB,BB,BB,FF,87,BB,BB,87, 
BB, BB, 87 , FF, C7 , BB, BF, BF, BF, BB, C7 
,FF,87,BB,BB,BB 

24 DATABB,BB,87,FF,83,BF,BF,87,B 
F , BF , 8 3 , FF , 8 3 , BF , BF , 8 7 , BF , BF , BF , 
FF , C3 , BF , BF , B3 , BB , BB , C3 , FF , BB , BB 
,BB,83,BB,BB,BB 

25 DATAFF,83,EF,EF,EF,EF,EF,83,F 
F, FB, FB, FB, FB, FB, BB, C7 , FF, BB, B7 , 
AF , 9F , AF , B7 , BB , FF , BF , BF , BF , BF , BF 
,BF,83,FF,BB,93 

26 DATAAB,BB,BB,BB,BB,FF,BB,9B,A 
B, B3 , BB, BB, BB, FF, C7 , BB, BB, BB, BB, 
BB,C7,FF,87,BB,BB,87,BF,BF,BF,FF 
,C7,BB,BB,BB,AB 

27 DATAB7,CB,FF,87,BB,BB,87,AF,B 
7 , BB , FF , C7 , BB , BF , C7 , FB , BB , C7 , FF , 
83,EF,EF,EF,EF,EF,EF,FF,BB,BB,BB 
,BB,BB,BB,C7,FF 

28 DATABB,BB,BB,BB,BB,D7,EF,FF,B 
B,BB,BB,BB,AB,93,BB,FF,BB,BB,D7, 
EF , D7 , BB , BB , FF , BB , BB , D7 , EF , EF , EF 
,EF,FF,83,FB,F7 

29 DATAEF,DF,BF,83,FF,FF,FF,FF,F 
F,FF,FF,EF,FF 

30 FORK=0TO13:READD$:POKE3 274 5+K 
,VAL("&H"+D$) -.NEXT 

31 DATA1A,50,7F,FF,DF,A6,80,7F,F 
F,DE,1C,AF,A7,A0 

32 PMODE4,1:PCLS0:FORK=1TO100:PS 
ET(RND(255) ,RND (96) +95 , 5) :NEXT:P 
OKE49 1 , 10 : EXEC327 14 : SCREEN1 , 1 

33 POKE492,PEEK(3 60) :POKE493,PEE 
K(361) :POKE494,PEEK(363) :P0KE495 
, PEEK(3 64) :' store unmodified ram 

vector 

34 IFCD$="C"THENCLOAD"COCOZONE ll E 
LSELOAD" COCOZONE " , R 



Listing 2: COCODRfiW 



Y/k 


...170 




' 24 ... . 


...132 




33 .... 


...216 




39.... 


3 




45 .... 


...175 




50 


7 




56 .... 


...140 




60 .... 


...248 




64 .... 


...197 




END .. 


....12 





'COCO ZONE (DRAW) 1.0, (C) 198 

5 BRUCE K. BELL 

1 i **************************** 

2 '* SEVEN MORE PMODE4 COLORS * 

3 >* BY FRED B. SCERBO * 

4 '* 149 BARBOUR ST.N. ADAMS .MA* 

5 ■* COPYRIGHT (C) 1984 * 

6 >**************************** 



7 CLEAR1000 : R=3 : B=2 

8 PMODE4, 1:PCLS1:SCREEN1,1:PM0DE 
3:PCLS3 

9 IFINKEY$=CHR$(13)THEN11ELSE9 
lj3 "START COLOR SET 

11 CLS0:PMODE4,1:PCLS0:SCREEN1,1 
:DIM Y(3),B(3),G(3),S(3),P(3),L( 
3) ,V(3) : LINE (32,0) -(48,5) ,PSET,B 
F 

12 FORX=31TO47STEP4:PSET(X,0,0) : 
PSET (X+2, 1,0) : PSET (X+l, 4,0) :PSET 
(X+3,5,0) :NEXT 

13 FORX=32T047STEP8:PSET(X,8) : PS 
ET(X+4,9) :LINE(X,12)-(X+1,12) , PS 
ET : LINE ( X+4 , 12 ) - (X+5 , 12 ) , PSET : LI 
NE (X+2 , 13 ) - (X+3 , 13 ) , PSET : LINE (X+ 
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6,13)-(X+7,13) ,PSET 

14 PSET(X,16) :PSET(X+1,17) :PSET( 
X+4,16) :PSET(X+5,17) :PSET(X+1,20 
) : PSET ( X+5 , 2 1 ) : NEXTX : PM0DE3 : COLO 
R2, 3 :LINE( 32,24) -(48,24) , PSET: LI 
NE(32,25)-(48,25) , PRESET 

15 PMODE4:GET(32,0)-(47,1) ,Y,G:G 
ET (32, 4) -(47, 5) , B, G: GET (32 , 8) - (4 
7,9) ,G,G:GET(32,12)-(47,13) ,S,G: 
GET (3 2, 16) -(47, 17) , P, G: GET (32 , 20 
)- (47,21) ,L,G:GET(32,24)-(47,25) 
,V,G 

16 GOT026: 'PAINTING ROUTINES 

17 LC=VAL(MID$(PT$,2,3) ) :TC=VAL( 
MID$(PT$,6,3)) :RC=VAL(MID$(PT$,1 
0,3) ) :BC=VAL(MID$(PT$,14,3) ) 

18 XX$=LEFT$(PT$,1) : IFXX$="Y"THE 
N19ELSEIFXX$="B"THEN20ELSEIFXX$= 
"G"THEN21ELSEIFXX$="S"THEN2 2ELSE 
IFXX$="P"THEN2 3ELSEIFXX$="L"THEN 
24ELSEIFXX$="V"THEN25ELSERETURN 

19 FORYY=TC TO BC STEP2 : FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 

YY+1) , Y, OR :NEXTZZ,YY: RETURN 

20 FORYY=TC TO BC STEP2 : FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 

YY+1) ,B, OR :NEXTZZ,YY: RETURN 

21 FORYY=TC TO BC STEP2 : FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 

YY+1) , G, OR :NEXTZZ,YY: RETURN 

22 FORYY=TC TO BC STEP2 : FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 

YY+1) , S, OR :NEXTZZ,YY: RETURN 

23 FORYY=TC TO BC STEP2 : FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 

YY+1) , P, OR :NEXTZZ,YY: RETURN 

24 FORYY=TC TO BC STEP2 : FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 

Y Y+ 1 ) , L , OR : NEXTZ Z , Y Y : RETURN 

25 FORYY=TC TO BC STEP2 : FORZZ=LC 
TO RC STEP16:PUT(ZZ,YY)-(ZZ+15, 

YY+1) , V, OR: NEXTZ Z,YY: RETURN 

26 CLS: PRINT "COCO ZONE DRAW 1.0" 
,"(C) 1985 BRUCE K. BELL" ,,,,,: I 
NPUT"cASSETTE OR dISK OPERATION" 
;Q$:IFQ$o"C"ANDQ$o"D"THEN26 

27 PRINT: INPUT "DO YOU WISH TO VI 
EW THE PICTURESAS THEY ARE DRAWN 

(Y/N) " ; 1$ : IFI$=" Y"THENSCREEN1 , 1 

28 FORA=0TO9 : IFI$<>"Y"THENPRINT@ 
352, "DRAWING PICTURE #"A 

29 PCLS5:DRAW"BM0,0C0R255D96L255 
U96" :0NA+1G0SUB3 2 , 37 , 40 , 45, 50 , 55 
, 60 , 65 , 68 , 71: F$="ZONE"+STR$ (A) : I 
FQ$="C"THEN30ELSEVERIFYON : SAVEMF 
$+" . PIC" , 3584 , 6656 , 3 80 : GOT031 

30 PK=PEEK(188)*256+PEEK(189) :CS 
AVEM F$,PK,PK+3072,380 

31 NEXTA:PRINT@3 8 4, "JOB COMPLETE 



D":END 

32 DRAW"BM255,96C0H10L200U20R100 
BR3R97ND20F6BF2F2U20G2BG2G6BE10L 
20NU90G6NU9 6L154NU96BE10NE6U50R6 
ND44R54D44NL54D6L60BR74NE6U50R6N 
D44R54D44NL54D6L60":PAINT(96,4) , 
0,0:PAINT(170,4) ,0,0 

33 PT$="Y092, 003-148, 046" :GOSUBl 
7:PT$="Y166,003-2 20,04 6":GOSUB17 
: DRAW"BL14NU50BR74NU50BR10NU50BL 
70BD4BL84L20G10D8L10NU90G22" : POK 
E178,2:PAINT(80,4) , ,0 : POKE178 , 1 : 
PAINT(128,70) , ,0 

3 4 FORK=60TO210STEP30:LINE(K,70) 
- (K+20 , 80 ) , PRESET , BF : CIRCLE ( K+10 
,75) ,2,5:NEXT:PAINT(128,94) ,0,0: 
FORK=0TO2 : POKE178 , K: F0RX=1T08 : CI 
RCLE(8,42) , (3-K) *8-X, , .8:NEXTX,K 
: PAINT (2, 2) , ,0 : POKE178 , 124 : PAINT 
(254,4),,0:PAINT(40,4) ,,0 
35 G$="C0U3LD3LU3LD3LU6ED4RU6ED7 
RU16G2D2F2U8RD14EU22ED20EU30LD10 
" : FORK=96T013 6STEP8 : X=K+74 : DRAW" 
BM=K; ,48XG$;BM=X; ,48XG$;":NEXT 
3 6 RETURN 

37 LINE(15,0)-(239,75) ,PSET,BF:P 
T$="Y016, 000-239, 073 ":GOSUB17:FO 
RX=24T0239STEP24 : FORY=10TO40STEP 
30 : POKE178 , 2 : LINE (X, Y) - (X+16 , Y+2 
2) ,PSET,BF:CIRCLE(X+4,Y+10) ,2,0: 
NEXTY,X 

38 DRAW"BM239,0C0D75F15BL255E15" 
:CIRCLE(128,95) ,50,0, .2, .5,l:POK 
E178,l:PAINT(128,90) , ,0:PAINT(50 
,90) ,0,0:PT$="S000, 075-255, 095": 
GOSUB17 : DRAW"G15BR255H15" : POKE17 
8, 2 12: PAINT (2, 2) , ,0 : PAINT (250 , 2 ) 

,,J3 

39 RETURN 

40 DRAW"BM255,83C0M-34,-25NU58L2 
8NU58G8NU66L66U8NU58L84NU58G4BM1 
2 6,4R52D52L2 6NU52L2 6U52BD17BR7U4 
R4U4R4D4R4D4L4D4L4U4L4BR2 6U4R4U4 
R4D4R4D4L4D4L4U4L4" : POKE178 , 2 : PA 
INT (139, 18) , ,0: PAINT (165, 18) , ,0: 
PAINT(190,2) , ,0:CIRCLE(146,30) ,2 
,0:CIRCLE(158,30) ,2,0 

41 PAINT ( 100 , 4 ) , , : PAINT ( 200 , 4 ) 
, 0,0:PT$="S022, 001-110, 052 " : GOSU 
B17:PT$="S194, 001-2 16, 052 ":GOSUB 
17 : FORK=5TO40STEP5 : CIRCLE ( 150 , 80 
) ,K,0, .2:NEXT:PT$="P111, 072-190, 
088":GOSUB17 

42 CIRCLE(20,66) ,20,0, .3, . 5 , 1 : CI 
RCLE(20,76) ,20,0, .3,1, . 5 : CIRCLE ( 
40, 71), 4, 0,1. 3,. 25, . 75 : CIRCLE (0 , 
71), 4,, 1.3,. 75, .25:DRAW"BM40,66C 
0R6FND10M-14 , +29R6M+8 , -18D18L2NU 
12LU10" 



32 
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43 LINE(70,10)-(95,40) ,PSET,BF:C 
IRCLE(82,22) ,9,5,1, .1, . 9 : CIRCLE ( 
88, 22), 5, 5,1,. 8, . 2 : PAINT (82 , 25) , 
5,5: DRAWBM75 , 22C5G4D2E6C0BR11BU 
2U4BD8D4C5BD5L14BD2R10BF2L12" 

44 P0KE178,1:PAINT(2,94) , ,/3:PAIN 
T(39,94) , ,0:POKE178,104:PAINT(2, 
2) , ,0:PAINT(254,2) , ,0:RETURN 

45 DRAWBM255 , 70C0M-84 , -30NU40" : 
PAINT (200,20) ,0,0 :PT$="S 171,00/8- 
256 , 7/3" : G0SUB17 : DRAWL12R2BF18D6 
L2D28L4NU28H2U2 6L8D10L4NU10H2U8R 
18L12 6R2D26F2NU28R4U2 8L8U6R40BR3 
R85BL128H24D6NF24F2D2 6F2NU2 6R4U2 
2H8U6R12NU14D6F12R100U18NM+30 , +2 
4U08H12L88M-ll,+6" 

46 PAINT(128,40) ,0 ,0 : PT$="Y038 ,0 
14-134 , J351" : G0SUB17 : DRAW'M+11 , -6 
R88F12ND26L2j3NH12L68NH12M-ll,+6N 
H12D20H12BL14L24BR40BU08F6UH6BR3 
0BD6R8DL8BR28R8UL8BR28R8DL8":PAI 
NT(136,20),0,0 

47 POKE178,2:PAINT(12 8,55) , ,0:PO 
KE178,1:PAINT(2,90) , ,0:DRAW"BM18 
, 4C5D12M+18 , +4U16L18BD20M+18 , +4 
D14M-18 , -6U12BM+28 , +6M+22 ,+4D20M 
-22,-8U16BU8M+22,+4U22L22D18BM+3 
2 , +6U24R16D28M-14 , -4BD8M+14 , +4D2 



2M-15,-4U22":PAINT(128,55) , ,0 

48 P0KE178, 1: PAINT ( 2, 90 ) , ,0: DRAW 
"BM180 , 4C5D12M+18 , +4U16BM20 , 0C0D 
25R16BE12BR8U12" :PAINT(22,2) ,0,0 
:DRAW"C5BG2L4BD2R2BF2L4BD2R3BF2L 
5BG8BL2H4G8NL2E8U6NF6NG6U2LH2UER 
3FDG2":POKE178,201:PAINT(2,2) , ,0 
: PAINT (170, 2) , ,0 

49 RETURN 

5JZJ DRAW"BM188,95U2 6NR66":PAINT(2 
48,9/3) ,0,0:PT$="Y190,071-254,93" 
: G0SUB17 : DRAWM+48 , +27L16M-20 , -1 
2D12": PAINT (2^4, 93) ,0 ,0 : DRAW'BMl 
2 6 , 0D60NR12 8M-104 , +3 3M-22 , -8 " : PA 
INT (40 , 93) , ,0 : PT$="P000 ,060-248 
,95":GOSUB17 

51 DRAW"C0U85R22D91BD2BEllM+88,- 
27U10M-88,+18ND18BU10M+88,-15U10 
M-88 , +5ND20BU10M+88 , -3U8M-88 , -5N 
D15BU6NU12M+88 , +4U6" : FORK=0TO3 :P 
OKE178,K*6+31:PAINT(96,K*18+2) ,, 
0:NEXT:POKE178,2:PAINT(4,4) , ,0 

52 LINE(186,5)-(232,60) ,PSET,BF: 
DRAW"BM139,8C0R26D28L26U28F3R20N 
E3D22NF3L20NG3U22D14BRE2F4E8F4E" 
:POKE178,l: PAINT (146, 12) , ,/3:P0KE 
178,2: PAINT ( 14 6 , 3/3 ) , , : CIRCLE ( 15 
0,18) ,2,5:PT$="Y18 6,005-232,60": 



GIVE SPEED AND POWER TO YOUR COCO-2! 



URBO 
BASIC 



YY ith TURBO BASIC TU you can get for your TRS-80 color 
computer 2 the speed of a compiler plus the flexibility of an 
interpreter. You don't need to call a special program to 
compile your BASIC program. TURBO BASIC m is compatible 
with DISK-BASIC and you can run your already existing pro- 



grams without trouble. Here are some features of TURBO 
BASICS 

Look at this benchmark for the "Sieve of Erathosthene" 
program. 





COCO-2 


APPLE II 


IBM 


TIME 
(SEC.) 


TURBO BASIC 


DISK BASIC 


EXPEDITER 
(COMPILER) 


APPLESOFT 


COMPILER 


BASICA 


31.3 


192.9 


34.9 


159.0 


20.1 


146.5 



-8 characters variables 
-64K RAM access without special command 
-DISK-BASIC commands (ROM 1.0 or 1.1) 
-Integer range form - 65535 to + 65535 
-Automatic repeat key hold 
and more... 
Why use a slow BASIC if you can afford a fast and improved 
BASIC foronly 39,95$? Availableon diskette □ or cassette □. 

Postage and handling S2.50 



mUDIDAKTEK 



□ Check enclosed D Visa 
DMaster Card DAmerican Express 

Account Number 

Signature 



Card Expiration Date- 
Name 

Address 

City 



State . 



Zip. 



DIDAKTEK P.O. Box. 9755 Sainte-Foy. Quebec 

G1V 4C3 CANADA 

Tel.: 1-800-463-5369 1-418-651-8321 



Salnte-Foy Stanford Toronto 
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Howard Medical Company 



1690 N. Elston Chicago, Illinois 60622 
(312) 278-1440 



?23A 



L*-8° 






WE ACCEPT 



VISA 

MasterCard 
American Express 
COD or Checks 
School P.O.'s 



New Dual Mode EPSON 

The new Epson LX-80 oilers printing flexibility in 
two modes: one mode allows you to print in a quick 
(100 cps) dot-matrix style for programming and 
graphics, and the Near Letter Quality mode (16 
cps) produces precise (240 dots per inch), 
beautiful type for correspondence, reports, and 
similar purposes. The LX-80 offers 160 different 
type-style combinations, including Pica, Elite, 
Enlarged, Emphasized, Condensed. Subscripts 
and Superscripts, and type-styles can be selected 
quickly from the top control panel or from program 
control. Comes standard in friction feed; tractor op- 
tion is also available. 

LX-P package includes an LX-80. a serial inter- 
face, a Color Computer to Epson cable, and 
Printer Tutorial that teaches you how to pro- 
gram the different type styles ($29.95 value). 

LX-P: LX-80 package $317 (S7 shpg) 
ET-1 tractor option tor LX-80. S29.50. 
SF-1 Single-sheet feeder for the LX-80. S145 ($7 

shpg) 



Epson 


RX-80 FT repack 


$207. 


Epson 


LX-80 New 


$249. 


Botek 


Serial to parallel converter 


$68.45 


Howard 


CoCo to Epson cable 


J25 



MONITORS 



123 Zenith 12" Green Screen, 640 dots x 200 dots 
resolution, 15 MHz band width. $114 ($7 shpg) 



123A Zenith 12" Green Screen Special, $67.50 
($7 shpg) 80 Column non glare 



122 Zenith 12" Amber Screen, 640 dots x 200 dots 
resolution, 15 MHz band width. $117 (7 shpg) 



131 Zenith 13" Color Monitor with speaker, 
composite & RGB jack, 240 dots x 200 dots 
resolution, 2.5 MHz band width. $168 
($14 shpg) -CLOSEOUT 40 Column 



141 Roland 13" Color Monitor with speaker, 
270 dots x 200 dots resolution, 4MHz band width 
$247 ($12 shpg) 

All monitors require video controller. 

Reverse vioeo free with monitor order. 



64K Upgrades— 1 Year Warranty 
64-E1 for E Boards with complete instructions. Re- 
move old chips and replace with preassembled 
package— no soldering or trace cuts. $28.45 (S2 
shpg) 
64-F1 for F Boards. No soldering needed. Capacitor 

leads must be cut. $24.45 (S2 shpg) 
64-2 for COCO 2. Kit requires one solder point, no 
trace cuts $24.45 ($2 shpg) 




D-2 



rDC-2 
CA-1 



CONTROLLERS 

New Controller from J&M: Has switch that allows 
either JDOS or RS DOS to be the disk operating 
system; eliminates software compatibility problems, 
while preserving the advantages of J&M's gold con- 
tacts and data separator. Also added to the DC-2 is 
a parallel port, which means a serial interlace is no 
longer needed to make a parallel printer (like the 
Epson) work. 

DC-2 Disk Controller with JDOS. $ 1 28 ($2 shpg) 
RS-1: RS DOS ROM Chip. $20,00 ($2 shpg) 
DC-1 Disk Controller reads and writes to 35 and 40 
track single and double-sided drives for all models 
of the Color Computer w/ JDOS. $128 ($2 shpg) 
VC-1 Video Interface mounts inside Color Computer 
by piggy-backing IC on top of interlace — no solder- 
ing, no trace cuts. All models give composite video 
& sound. $24.45 ($2 shpg) 
VC-2 for COCO 2— mono only. $26.45 ($2 shpg) 
VC-3 for COCO 2— both color or monochrome 

$39.45 ($2 shpg) 
VC-4 for new Color Computer (no sockets, chips are 
soldered to mother board). Attaches with spring- 
loaded clips. Color or mono. $39.45 ($2 shpg) 



Epson Homewrlter HM1 has serial pick 
interface and cable included. 100 CPS, 
bidirectional dot matrix impact for regular 
paper and one copy. 



$258 ($7 shipping) 




EPSON AND J&M 

The EJ-P Package 
The Epson LX-80 Printer teamed with our new 
J&M DC-2 Controller gives you top printing 
capabilities plus built-in switch gives JDOS or 
Radio Shack DOS so all software can run on your 
Color Computer. Package includes: Epson LX-80 
Printer with ET-1 tractor; DC-2 controller; 
parallel Color Computers to J&M cable; 
Epson Printer Tutorial ($29.95 value). 

Complete EJ-P package $425.00 ($7 shpg) 



HOWARD QUALITY STANDS 

New TS-1X Mon- 
itor Stand: De- 

signer-beaulilul 
stand with clear 
corner posts, 
easy side access 
to ROM port, re- 
set and on/olf 
buttons. $39.50 
($3 shpg) 

TS-1: Standard 13" monitor stand for the original Color 
Computer. Specify black, ivory or clear. 15" x11" x4". 
S29.50 ($3 shpg) 
TS-2: Same as above for the COCO 2. S29.50 ($3 

shpg) 
PS-1X Printer Stand features new noise-suppressing 
loam top and cork base. 15" x11" x2Vj". $24.95 ($3 
shpg) 



GUARANTEE 

Howard Medical's 30-day guarantee is meant to 
eliminate the uncertainty of dealing with a com- 
pany through the mall. Once you receive our hard- 
ware, try it out; test it for compatability. It you're 
not happy with it for any reason, return it in 30 days 
and we'll give you your money back— no questions 
asked. Hours: 8:00-4:00 Mon.-Fri. 

10:00-3:00 Sat. 



System requirements: CoCo with 1 disk, 32K RAM, 80 columns primer 
Add $2 lor shipping. 



SOFTWARE CORNER 

PAYROL/BAS Automatically calculates FED & FICA and 3 
39.95 additional user defined deductions. 

TABLES ABE ALBEAOY ENTERED. 
LEDGER Print9 checkbook with up to 30 user 

troe with definable ledger numbers a S39/VALUE 

PAYROL/BAS 

WITH PAYROL/BAS YOU WILL ALSO WANT 
STATE TAX Automatically calculates state withholding 
39.95 Including graduated mxob. TABLES ALREADY ENTERED 

941 Prints totals by quarter per employee 

29,95 Ideal tor Federal 941 and state unemployment 

CHECKS 500 pin-feed checks specify blue green or brown $57.25 

QQnQjnrnn| SottlaWs integrated package includes 

| VIP Write, terminal. Database, Speller and CALC 
S API I Slock analysis program organizes your portfolio 

19.95 and give specific sell & stop-loss points 

BPA-1 Chart your blood pressure from daily readings 

19.95 taken in the comfort of your home. 




The Biggest 



AINB&W 




C_3 



The Indispensable 



The 




THE COO? COMPUTER MONTHLY MAGAZINE 



It's called the premier Color Computer magazine for good 
reason. THE RAINBOW is the biggest, best, brightest and most 
comprehensive publication a happy CoCo ever had! Is there any 
wonder we get letters daily praising THE RAINBOW, the 
magazine one reader calls "A Pot Of Gold" for his Color 
Computer. 

THE RAINBOW features more programs, more information 
and more in-depth treatment of the Tandy Color Computer than 
any other source. 

A monthly issue contains up to 300 pages and as many as two 
dozen programs, 15 regular columns and more than 20 product 
reviews. And advertisements: THE RAINBOW is known as the 
medium for advertisers — which means every month it has a 
wealth of information unavailable anywhere else about new 
products! Hundreds of programs are advertised in its pages 
each month. 

But what makes THE RAINBOW is its people. People like Fred 
Scerbo, who write special programs at the request of readers. 
Experts like Dick White and Joseph Kolar, two of the most 
knowledgeable writers on BASIC. Communicators like Ft. Wayne 
Day, who stay abreast of telecommunications advances. Or, 
Dan Downard, RAINBOW technical editor, who answers our 
readers' toughest questions. Educators like Dr. Michael Plog 
and Steve Blyn, who show how CoCo can be used at home or 
school. Advanced programmers like Dale Puckett, who guide 
you through the sophisticated OS-9 operating system. Electron- 
ics experts like Tony DiStefano, who explain the "insides" of the 
CoCo. These people, and many others, visit you monthly 
through columns available only in THE RAINBOW. 

Every single issue of THE RAINBOW covers the wide 
spectrum of interests in the Tandy Color Computer — from 
beginners' tutorials and arcade games to telecommunications 
and business and finance programs. Helpful utilities and do-it- 
yourself hardware projects make it easy and fun to expand your 
CoCo's capabilities. And, monthly reviews by independent 
reader reviewers take the guesswork out of buying new software 
and hardware products. 

Join the tens of thousands who have found THE RAINBOW 
to be an absolute necessity for their CoCo. With all this going 
for it, is it surprising that more than 90 percent of THE RAINBOW 
subscribers renew their subscriptions? 

We're willing to bet that, a year from now, you'll be doing the 
same. For more information call (502) 228-4492. 
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What goes well with 
the Rainbow? 




i 



Rainbow On Tape! 



We call it the other side of THE RAINBOW and we may 
have to raise the price just to call your attention to it. With 
as many as two dozen programs every month, RAINBOW 
ON TAPE is a luxury service at a bargain basement price. 

What is it? RAINBOW ON TAPE is a monthly cassette 
tape adjunct to THE RAINBOW and it's brimming with all 
the programs (those over 20 lines long) that fill the pages 
of the magazine. All you do is pop the cassette in your tape 
recorder and they're ready to run. No more lost weekends 
— or week nights — typing, typing, typing. With RAINBOW 
ON TAPE, you can read the article in the magazine then, 
in seconds, you load it up and run it. Yes, you could type 
them in yourself, as many people do. But all of them? Every 
month? There simply isn't enough time. 

Isn't it time your CoCo became a full-time computer 
instead of a typewriter? Think how your software library 
will grow. With your first year's subscription, you'll get 
almost 250 new programs: games, utilities, business 
programs, home applications — the full spectrum of THE 
RAINBOW'S offerings without the specter of keying in 
page after page and then debugging. 

RAINBOW ON TAPE — the "meat" of THE RAINBOW at 
a price that's "small potatoes." Food for thought. To get 
your first heaping helping, just fill out and return the 
attached reply card. No postage necessary. 

Discover the other side of THE RAINBOW. It's not only 
a time-saver, it's the key to a whole new outlook! 




64K ext basic 134 95 

Color Computer II 

Monitor Interface for above CoCo II 29.95 plus 7.50 installation, (color & green compatible) 






2 Drives 299 95 
Both our drive and 1 in one case, with cable and 
R.S. controller. The best just got better! 



Drive 1 Upgrade 119 
Add a second Va height drive to your Radio Shack 
26-3129. Comes with 3 minute installation instruc- 
tions, screwdriver required. 



^^■■^H 







Drive 1 



129 



95 




Your Choice 
Silver or White 



199 



Drive 



SUPER DRIVE SALE 



Special prices on i new -first quality disk drives. They even have GOLD connectors on the back... Some other 

wit?«nJ^innn»?rr ' JU ^ p,U9s : n,oth J e f traconnectoron yourDriveOcable. Bothdrivesarecompatible 
™™c^*T t 0f L h h eC ° orCom P uteranda,lversions °fdrives.DriveOisyourfirstColorComputerdriveand 

DS-DOS, boards and knowledge) Bare full hgtSSDD drive only 79 95 

THE COMPUTER CENTER 

a „„ «„ on 9 , 01 "? 51 " 4565 ' 5512 P ° plar ' Mem P nis - ™ 38119 Prices subject 

Add $4.90 for shipping and handling— Visa, MC & money orders accepted chan 9 e w,,h0UI ' 

Allow an additional 2 weeks for personal checks-Drive faceplates may vary slightly " ce 



G0SUB17: CIRCLE (194, 35) ,2,0 

53 DRAW"BM186,5CpR46D55L46U55BF6 
BR2R1J3BR10R10D16L10NU16BL1J3NU16L 
10U16BD30R10BR1PR10D16L1J3NU16BL1 
PNU16L1PU16" : POKE178 , 106 : PAINT ( 1 
68,4),,j3 

54 RETURN 

55 DRAW"BM24j3,95C0M-4j3,-24L30F6H 
30NU47L146D3J3R174D8NL174": PAINT ( 
4,50) ,0,0:PT$="Y002, 049-166, 075" 
: G0SUB17 : DRAW"U8H6NR8NH24F6D8" : P 
OKE178,1:PAINT(230,92) , ,0:DRAW"C 
0L3D10L4U10L2D10" : P0KE178 , 2 : PAIN 
T(4,83),,0 

56 POKE178,99:PAINT(180,4) , ,0:FO 
RX=4T0144STEP6 : FORY=4TO44STEP10 : 
PRESET (X,Y) :NEXTY,X:FORX=6T012:C 
IRCLE (164,25),X-6,5: CIRCLE (164,2 
5) ,X,0: CIRCLE (194, 25) ,X-6,5:CIRC 
LE(194,25) ,X,0:NEXT:FORK=1TO75:X 
=RND(174) :Y=RND(6)+76:PRESET(X,Y 
) : NEXT 

57 DRAW"BM130,24C0D10LU10R6L12UR 
12UL12UR12UL12BM14 , 13L20UR20UL20 
UR20D28LU28LD28LU28BM65,24R30DL3 
0DR30DNL25DNL20DNL15DNL10DNL5":C 
IRCLE(99,28) , 4 ,0 : CIRCLE (100 , 27) , 
4,0: DRAW"BM30 , 34U6ED7ND6RU6BR4D6 



RND8U7FD6BR4U6ED7ND4RU6BR4D6RND6 
U7FD6" 

58 DRAW"BM46,4D5R2U5HUD7NL3R3DL6 
DR6D5L2U5L2D5L2U5BM110,41C0EL2ED 
2U7ER3EU7HL3HU5EHEHEHEHEHEHBM110 
, 61L30ER30EL30ER30BM72 , 54U12LD12 
GU12GD12LU12LD12GU12LD12LU12LD12 
HU12LD12HU12HD12LU12 " : CIRCLE ( 65 , 
42) ,10,0, .4:P0KE178,1:PAINT(65,4 
2) , ,0:CIRCLE(65,50) ,3 

59 DRAW"BM226,34C0M+4,+2D30FU30F 
4U12H4M-2 , -1G4D6" : PAINT (228 , 28) , 
0,0: RETURN 

60 DRAW"BM255,80U56H20D56F20":PA 
INT (252, 70) ,0,0:PT$="Y2 34, 004-25 
5,080" :GOSUB17:DRAW"U56H20D56F20 
H32NU48L40U44M-4,+2D46NE4L3 6U30N 
R36U16NR36M+4,-2NR36BD6D6BD14D8B 
D10BL4L20U30NU4G4D29NE4L30U30NR3 
0E4NR30U4NR30BF6BL4R6BR10R6BD6BL 
4L18D20R18U20" 

61 DRAWBG4L10BG10BD9L20G4U6BU2U 
22NL40E4ND30L48NF4NU20M-20,+10Dl 
8E24D14BD2D14NR40G24BE2BU6U20E8D 
20G8BE12U20E6D20NG6BR8BU2U20R14D 
20L14BR18U20R14D20L14BM252 , 70H12 
U10F12D10BU16H12U10F12D10BU16H12 
U10F12D10" 




ADOS 



ENHANCED, EPROM-ABLE 
DISK BASIC 



Now. you can supercharge Basic witn an improsaivo array ol extra features 
WITHOUT sacrificing compatiblliiy' ADOS is compatible wiiri virtually iOOVi of 

commercial software. Customizing utilities are provided to allow user-dellnod 
command abbreviations, baud rate, step rate, tracks per disk (35 or 40). support ol 
do Jbie-sided drives, and more. After customizing ADOS, you can have It burned Into 
an EPROM mat plugs into the Disk Basic ROM socket, or just use It in RAM a3 a (MK 
disk utility. (EPROM ♦ burning will cost about $20~wa provide information 
concerning now you can have this done.) Features include: * repeat and edit of the 
last direct-mode command • 26 definable control-key abbreviations • automatic line- 
number prompts • DOS command * lowercase command entry (a tmo complomant to 
a Lowerkit or PBJ WordPakl • COPY (filenamei to (drive number) ■ AE error override 
option > RAM command (64K) * RUNM command • text echoing to printer • ML 
monitor • text file scan • onhancod directory ■ error (rapping • hires lext utility 

included (42, 51. or 64 characters per line) 

-/ COULD NOT FIND ANY SOFTWARE THAT WOULD NOT RUN UNDER ADOS. " 

THE RAINBOW, December 1984 

~l LOVE ADOSI . . . A GENUINELY FIRST RATE PRODUCT." 

Color Micro Journal, February 1985 

~l WONT PART WITH MY ADOS EPROM FOR ANYTHING . . . NO COMPATIBILITY 

PROBLEMS- 

Hoi CoCo.May 1985 

Disk. -127.95 

THE PEEPER ml program tracer 

Monitor machine-language programs AS THEY ARE RUNNING! Peeper actually 
timeshares with the target program, giving FULL CONTROL as ML programs run. 
Switcn Instantly between watching regular program output and Peeper's trace ot 
registers and stack on screen or printer. Inspect memory in any ol 26 display modes. 
Execution speed can be varied Irom lull speed to the barest crawl, or tialted entirely, 
as programs run. Single-stepping, breakpoints, memory or register e«amine'change. 
Relocatable, supports 64K use. ('8K required) See February '85 review. 
Disk. $23.95 Tape $21.95 Assembler source listing Add 3.00 



FASTAPE 



THE NEXT BEST THING TO A DISK DRIVE 



Fastape allows cassolto I/O at 3000 baud -TWICE NORMAL SPEED. It uses Ihe high- 
speed (POKE 65495,0) mode, and makes it convenient to stay in this mode 
throughout. Features automatic adjustment of cassette and printer parameters when 
speed mode is changed. Control-key functions lor many Basle commands and (or 
cnanglng speed modes. Compatible with all tile types, and can be used with 
Telewriter 64 and many other tape uhllltei f 16K required) See July '83 review 
p»...*»»JJ5 S11.9S |N6W DISCOUNT PfllCEI| 



SPECTROSYSTEMS, 



11111 N Kendall Drive. 

Suite A 108 
• Miami, Florida 33176 
No delay on personal checks (305) 274-3899 Day or 

Pieaso add S? 00 ahippmn Sorry no crodil cards or COD'S ^ vp 







S? Software 3> ° 



'KEEP-TRAK' General Ledger Reg. $69.95— ONLY $24.95 

Double-Entry General ledger Accounting SyaUm for home or business: 16k. 
32k, 64k. User-friendly, menu-driven. Program features balance sheet, income & 
expense statement (current & YTD'), journal, ledger, 899 accounts & 2350 entries 
on 32k & 64k (7K) accounts & entries on 16k) (disk only). Version 1.2 has screen 
printouts. Rainbow Reviews 1.1 - 9/64 : 1.2-4/85 

"OMEGA FILE" Reg. $69.95— ONLY $19.95 

Filing data base. File any information with Omega File. Records can have up to 16 
fields with 255 characters per field (4080 characters/record). Sort, match & print 
any field. User friendly menu driven. Manual included (32k/64k disk only). 
Rainbow Review 3/85. Hot CoCo 10/85 

BOB'S MAGIC GRAPHIC MACHINE 

Can generate BASIC code lo ose in your programs. Easy drawing and manip- 
ulation of circles, elipses. boxes, lines and ARCS. Single joystick operation with on 
line HELPS at all times. Allows text on the graphics screen & movement ol objects 
on the screen. Can be used as a stand-alone graphics editor. Instruction Manual. 
GRAPHICS EDITOR. Reg $38.95— ONLY $19.95 lor disk Or tape 64k ECB. 
Rainbow Review 7/85. Hot CoCo 9/85 "The graphics bargain ol the year" 

'KEEP-TRAK' Accounts Receivable. (Avail io/oi/85) 

Features: auto interest calculation, auto ageing of accounts, installment sales, 
total due seles, explanation space as long as you need, detailed statements, 'KEEP- 
TRAK' General Ledger tie in, account number checking, credit limit checking & 
more. User friendly/menu driven. Includes manual. $39,95 or $49.95 General 
Ledger & Accounts Receivables. (Disk Only). 

OS9 UTILITY DISK 
Contains: Transfer utilities between RSDos and OS9 which also allows manipula- 
tion of RS files with OSS programs. EXPANDABLE MULTILEVEL HELP. 
CPTREE — copies directory structures with no temp, files. Two calculators, plus 
ten other utilities. $19.95 (Disk Only— Available 10/15/85) OS9is Microware TM. 

'COCO WINDOWS' Available 10/31/85 
With hi-res character display and window generator. Features an enhanced key 
board (klicks) and 10 programmable function keys. Allows the user to create 
multiple windows from basic. Includes menu driven printer setup and auto line 
numbering. Four function calculator, with memory. The above options can be 
called anytime while running or writing in BASIC. APPLE PULL YOUR DRAPES 
YOU DON'T WANT TO SEE THIS. $19.95 (disk or tape) includes manual. 

THE OTHER GUY'S SOFTw.r. (Add $2.50 for pottage t handling) 

P.O. Box H, 55 N. Main C.O.D., Money Order, Check In U.S. Funds 

Logan. UT 84321 (801) 753-7620 (Please apeclfy II JAM controller) 
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62 G$="D10G6F6R2E6H6U10LD10":DRA 
W"BL43BU24XG$;BH16XG$;BL117BU10X 
G$;BD60NG18R91ND4G16BG2R4E14":PO 
KE178,2:PAINT(6,54) , ,0:PAINT(18, 
42) , ,0:PAINT(32,38) , ,fS : PAINT (50 , 
38) , ,0: PAINT (10, 70) , ,0 : DRAWC0D1 
4L2U12G3D9LU8" 

63 PRESET (6, 54 ): PRESET (18,44 ): PR 
ESET(32,38) : PRESET (50 , 38) :P0KE17 
8,1: PAINT ( 100 , 90 ) , , : PAINT ( 2 , 70 ) 
, , J3: PAINT (21j3, 28) ,0 ,0 : PAINT (194 , 
22) ,0,0:PAINT(80,22) ,0 , : POKE178 
,133: PAINT (2, 2) , ,0 : PAINT(252 , 2) , 
,0:POKE178,105:PAINT(40,2) , ,0 

64 RETURN 

65 LINE(0,0)-(255,96) ,PSET,BF:CO 
L0R5 , 5 : F0RK=1T0255STEP2 : LINE (K,R 
ND(10)+30)-(K+RND(4)-l,RND(10)+6 
0) ,PSET:LINE(K,RND(10)+50) -(K+RN 
D ( 4 ) -2 , RND ( 10 ) +80 ) , PSET : NEXT : FOR 
K=1T015: CIRCLE (205, 15) ,K,5:NEXT: 
FORK=1TO100:PRESET(RND(2 55) ,RND( 
30) ,5) :NEXT 

66 DRAW"BM190,15C0R10F2DG2L4G2L4 
": PAINT (196, 17) ,0,0 : DRAWBM220, 1 
0L10GDFR4FR6" : PAINT ( 2 14 , 12 ) , , 

67 RETURN 

68 DRAW"BM0,30R130NM-16,+65R20NM 



+155,+4 6NR155": PAINT (140, 90) ,0,0 
:DRAW"L10C5F6LH6BF12F8LH8BF16F10 
LH10BF20F12LH12C0" : FORX=0TO254ST 
EP4 :U$="NU"+STR$ (RND ( 5 ) +10 ) : DRAW 
" BM=X ; , 30XU$ ; RXU$ ; RXU$ ; RXU$ ; " : NE 
XT 

69 POKE178,l:PAINT(2,2) , ,0:POKE1 
78, 2: PAINT (2, 90) , ,0 : PAINT (250, 40 
) , ,0:FORX=1TO200: PRESET (RND (255) 
, RND ( 65 ) +30 ) : NEXT : FORX=1TO80 : PSE 
T(RND(255) ,RND(15) ,5) : NEXT 

70 RETURN 

7 1 COLOR5 , : PCLS : FORK=0TO5 : CIRCL 
E(K+64,62) ,16,5,1.1, .1, .85: CIRCL 
E(K+64,58) ,8:CIRCLE(K+82,60) ,8,5 
,1.1, .1, . 85: CIRCLE (K+98, 58) , 8 : CI 
RCLE(K+144,58) ,8:NEXT 

72 DRAW"BM122,48M+3,-5FR15M-16,+ 
29R8E3M+2 ,+7M-3 , -2L17M+16 , -29L6M 
-4,+lBM156,48R4M+8,+12UllM-2,-lR 
6GD30M-9,-24D21M+l,+2L6E2U24H4BM 
174 , 48R10E2D6H2L5D8M+5 , -2D6M-5, - 
1D12R5E2D6H2L10M+1, -2U22M-1, -2" : 
PAINT (137, 49) , 5 , 5 : PAINT ( 170 , 62 ) , 
5, 5: PAINT (17 6, 62) ,5,5 

73 FORK=1TO200: PSET (RND (255) , RND 
(96)): NEXT 

74 RETURN 



^f 



9 139 105 114 

19 238 115 174 

26 66 127 102 

32 46 136 244 

38 127 143 41 

46 185 149 220 

52 90 158 204 

60 90 166 249 

69 159 175 48 

76 64 183 

83 213 193 247 

91 124 203 122 

99 88 END 200 



Listing 3: C0C0ZDNE 

'COCO ZONE 1.0, (C) 1985 BRUCE 
K. BELL 

1 EXEC32211 

2 CLEAR500, 3 2210: DIM D(140),R(14 
0),R$(24) ,0$ (37), 0(37) ,P(18) 

3 GOT0199 

4 PRINT@256,STRING$(128,32) : PRIN 
T@2 5 6, "LOCATION: " ; :IFR$(R(R) )=" 
TUNNEL"ANDO(11)<200THENPRINT"TOT 
AL DARKNESS " : PMODE2 , 1 : PCLS0 : PMOD 
E4 , 1 : GOTO7ELSEIFR=60ANDP ( 4 ) =1THE 



NPRINT"IN THE CASKET" : IFP (0) <2TH 
ENIFP ( 5 ) =1THENPM0DE2 , 1 : PCLS0 : PMO 
DE4,l:GOT07 

5 X=0:PRINTR$(R(R)) : PRINTS 3 20, "Y 
OU SEE:":FORK=0TO3 7:IFO(K)=R THE 
NX=X+1 : PRINT@3 19+X*11, 0$ (K) 

6 NEXT :T=0:PRINT@308, "VIEW: "MID 
$ ( "NSEW" ,U, 1) : PRINT@288 , "EXITS : 

" ; : F0RK=1T04 : IF (D (R) ANDV (K) ) =V (K 
)THENPRINT@292+3*K,MID$("NSEW",K 
,1) : NEXTELSENEXT 

7 P(2)=P(2)+l:PRINT@384,"WHAT NE 
XT" ; : INPUTA$ : IFA$=" "THEN7ELSEPRI 
NT@384,STRING$ (126,32) ; :PRINT@41 
6 " " I ' 

8 ' D=INSTR ( 1 , "NSEW" , A$ ) : IFD=0THEN 
2 3ELSEU=D:IF(D(R) ANDV(D) )<>V(D)T 
HEN22ELSEIFU=1THENR=R-10ELSEIFU= 
2THENR=R+10ELSEIFU=3THENR=R+1ELS 
ER=R-1 

9 ONU GOTO10,11,12,13 

10 C=-10:W(0)=8:W(l)=2:W(2)=l:GO 
T014 

11 C=10:W(0)=4:W(l)=l:W(2)=2:GOT 
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EARS 



Electronic 
Audio 

Recognition 
System 



$99.95 




•HANDS OFF 
PROGRAMMING 

•HIGH 
QUALITY 
SPEECH 
REPRODUCTION 

EARS Does It All! 



Two Years In the Making. Speech Systems 
was formed to develop new and innova- 
tive speech products. After 2 years of in- 
tensive Research and Development, we 
have created a truely sophisticated 
speech recognition device. Recognition 
rates from 95% to 98% are typical. Until 
now, such a product was outside the 
price range of the personnel computer 
market, and even small businesses. 

EARS is trained by your voice and capable 
of recognizing any word or phrase. 
Training EARS to your particular voice 
print takes seconds. Up to 64 voice prints 
may be loaded into memory. You may 
then save on tape or disk as many as you 
like so that your total vocabulary is virtu- 
ally infinite. 

Speech and Sound Recognition. EARS is re- 
ally a sound recognition system, so it re- 
ally doesn't matter whether you speak in 
English, Spanish, or French. In fact you do 
not have to speak at all, you can train 
EARS to understand sounds such as a 
musical note or a door slamming. 

Hands Off Programming. Imagine writing 
your own BASIC programs without ever 
touching the keyboard. Everything that 



you would normally do through a 
keyboard can now be done by just 
speaking. 

Programming EARS Is Easy. LISTEN, 
MATCH and other commands have been 
added to BASIC so that programming 
EARS is a piece of cake! The single BASIC 
line: 10 LISTEN: MATCH will instruct 
EARS to listen to you and return the 
matching phrase. 

It Talks. EARS is also capable of high qual- 
ity speech. We mean REALLY high quality. 
The speech is a fixed vocabulary spoken 
by a professional announcer. Speech 
Systems is currently creating a library of 
thousands of high quality words and 
phrases. For a demonstration call (312) 
879-6844, you won't believe your ears or 
our EARS. 

DISK OWNERS. EARS will work with any 
disk system with either a MULTI-PAK or 
Y-CABLE. Our new Triple Y-CABLE was 
specifically developed for those wishing 
to add SUPER VOICE as a third device. 

You Gel Everything You Need. You get ev- 
erything you need including a specially 
designed professional headset style noise 



cancelling microphone. The manual is 
easy to use and understand. Several 
demonstration examples are included so 
you don't have to write your own pro- 
grams unless you want to. EARS will work 
in any 32K or 64K Color Computer. 

SUPER VOICE $20 OFF 

Imagine talking to your computer and it 
talking back to you. When you need an 
unlimited vocabulary, you can't beat 
SUPER VOICE. For a limited time, we will 
give you the SUPER VOICE for $59.95 with 
your EARS purchase. Even if you already 
have another speech unit, here is your 
chance to buy the best and save $20. 

VOICE CONTROL 

Applications for EARS are astounding. 
Here is our first of many listening pro- 
grams to come. VOICE CONTROL is a 
program specifically designed to allow 
you to control any appliance in your 
house with your voice and our HOME 
COMMANDER (sold separately) or the 
Radio Shack Plug 'N' Power controller. 
For example, you can control your TV by 
saying "TV ON" or "TV OFF". . $24.95 
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We accept CASH, CHECK, COD, VISA and MASTER CARD orders. 

Shipping and handling US and Canada S3. 00 

Shipping and handling outside the US and Canada $5.00 

COD charge $2.00 

Illinois residents add 6V<% sales tax 



Speech S^ust 

38W255 DEERPATH ROAD 

BATAVIA, ILLINOIS 60510 

(312) 879-6880 (TO ORDER) 

(312)879-6811 (24HR.BBS) 

CALL ANY DAY TO ORDER. ALSO ORDER BY MAIL OR BBS. 



1 MEGABYTE 
COLORAMA 



EARS SPEECH LIBRARY 



TM # 




HIGH INTELLIGIBILITY SPEECH IS HERE 

EARS is far more than a speech recognition system that enables your computer to listen to you. EARS 
and the EARS SPEECH LIBRARY bring "high quality" speech to the Color Computer. EARS doesn't sound 
like a "computer" or "robot," it sounds like real people. It sounds natural since we use real people to 
create the speech. 

FEMALE and CHILDREN'S VOICES COMING 
SOON. The technique we use is independent 
of the speaker. A male announcer is presently 
used, female and young people's voices com- 
ing soon. 




HERE'S HOW IT'S DONE. Speech Systems has 
invested nearly $10,000 in special audio digitiz- 
ing and speech compression equipment. Each 
phrase is spoken by a human announcer dig- 
itized and then compressed so very little mem- 
ory is used, typically less than 400 bytes per 
word. For those familiar with the Texas Instru- 
ments "SPEAK and SPELL" line of educational 
toys, you are aware of the results. For those 
wishing a demonstration, call (312) 879-6844. 

GENERAL 1 
EARS SPEECH LIBRARY 



AGAIN 

ALL 

AND 

AT 

BUY 

CALL 

CASE 

CENT 

CLEAR 

CLOSE 

COMPUTER 

CONNECT 

DAY 

DIAL 

DOLLAR 

DOWN 

DOOR 

EAST 

END 

ENTER 

FAST 

FASTER 

FIFTH 

FIRST 

2 disks . . . 



GET 

GO 

HALF 

HAVE 

HOUR 

IN 

IS 

IT 

LEAVE 

LEFT 

LEVEL 

LOVE 

MORE 

MULTIPLY 

NEAR 

NEED 

NEXT 

NICKEL 

NO 

NORTH 

NUMBER 

OF 

OFF 

ON 



OUT 

PASS 

PENNY 

PLEASE 

QUARTER 

READY 

REACH 

RIGHT 

SECOND 

SELECT 

SEND 

SET 

START 

STOP 

SOUTH 

THAN 

THE 

THIRD 

TIME 

UP 

WAIT 

WEST 

YES 

YOU 
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SCIENTIFIC 
EARS SPEECH LIBRARY 



S19.95 



ABORT 

ADIUST 

ALARM 

AMPERE 

ATTENTION 

BRAKE 

BUTTON 

CANCEL 

CAUTION 

CENTIGRADE 

CHANGE 

CHECK 

CONTROL 

CURRENT 

DANCER 

DEGREE 

DISK 

EMERGENCY 

EQUAL 

ERROR 

EVACUATE 

FAHRENHEIT 

FAIL 

FAILURE 



FIRE 

FREQUENCY 

FEET 

FLOW 

FORCE 

FUEL 

GALLON 

GAS 

GRAM 

HERTZ 

HIGH 

HIGHER 

INCHES 

INTRUDER 

KILO 

LIMIT 

LOAD 

LOCK 

LOW 

MEASURE 

MARK 

MEG 

MEGA 

METER 



MICRO 

MILE 

MILLI 

MINUS 

MINUTE 

NORMAL 

OPERATOR 

PER 

PERCENT 

PHASE 

POUND 

PRESSURE 

PULSE 

RANGE 

SAFE 

SMOKE 

SPEED 

SWITCH 

SYSTEM 

TEMPERATURE 

TEST 

VOLT 

WARNING 

WEIGHT 
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GENERAL 2 
EARS SPEECH LIBRARY 
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THE LIBRARY. Each group of the library con- 
tains words designed for a particular applica- 
tion. The SCIENTIFIC LIBRARY contains 
phrases designed for process or home control. 
The EDUCATIONAL LIBRARY has those words 
to help ensure keeping a child's attention. 
Words may be put together to form sentences 
and easily produced from BASIC, so you can 
write your own programs with incredible 
speech quality. 
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Alphabet/Numbers 
EARS SPEECH LIBRARY 



ADD 

ASK 

ASSISTANCE 

AUTO 

BUT 

COCO 

COMPLETE 

CONTINUE 

COPY 

CORRECT 

COST 

DATE 

DECREASE 

DEPOSIT 

DIME 

DIVIDE 

DRIVE 

ENTRY 

EXIT 

FLOOR 

FORWARD 

FROM 

GOING 

GREAT 



HELLO 

HELP 

HERE 

HOLD 

INCORRECT 

INCREASE 

|UST 

KEY 

LESS 

LESSER 

LIGHT 

LOWER 

LOWEST 

MONEY 

MOVE 

NEAR 

NEED 

NEXT 

NOT 

NOTICE 

ONWARD 

OPEN 

OR 

OVER 



PRESS 

PLACE 

PLAY 

POINT 

QUICK 

RADIO 

RECEIVE 

RECORD 

REPLACE 

REVERSE 

ROOM 

SERVICE 

SIDE 

SLOW 

SLOWER 

SPACE 

STATION 

THANK YO 

THIS 

TOTAL 

TRY 

TURN 

USE 

YOUR 
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ONE 


A 


ALPHA 


TWO 


B 


BRAVO 


THREE 


C 


CHARLIE 


FOUR 


D 


DELTA 


FIVE 


E 


ECHO 


SIX 


F 


FOXTROT 


SEVEN 


G 


GOLF 


EIGHT 


H 


HOTEL 


NINE 


! /" 


INDIA 


TEN 


1ULIETT 


ELEVEN 


K 


KILO 


TWELVE 


L 


LIMA 


THIRTEEN 


M 


MIKE 


FOURTEEN 


N 


NOVEMBER 


FIFTEEN 


? 


OSCAR 


SIXTEEN 


PAPA 


SEVENTEEN 


Q 


QUEBEC 


EIGHTEEN 


R 


ROMEO 


NINETEEN 


s 


SIERRA 


TWENTY 


\t 


TANGO 


THIRTY 


u 


UNIFORM 


FORTY 


V 


VICTOR 


FIFTY 


w 


WHISKEY 


SIXTY 


X 


X-RAY 


SEVENTY 


Y 


YANKEE 


EIGHTY 


z 


ZULU 


NINETY 


THOUSAND 


MILLION 


HUNDRED 


ZERO 





2 disks $19.95 2 disks \ . v »^. .^ $19.95 



EDUCATIONAL 
EARS SPEECH LIBRARY 



AFTER 

AMIE 

ANSWER 

AROUND 

AREA 

AWAY 

BEFORE 

BOB 

BOX 

BOY 

CAN 

CAT 

CHAIR 

CHRIS 

CLASS 

DAY 

DECIMAL 

DESK 

DIFFERENCE 

DO 

DOG 

DRINK 

FALL 

FIND 



FRACTION 

GIRL 

GIVE 

GOOD 

HILL 

HORSE 

HOW 

JOHN 

LAURA 

LIKE 

LINDA 

LISA 

MAKE 

MEAGAN 

MEASURE 

MISSING 

MODIFY 

NAME 

NIGHT 

NOUN 

PEOPLE 

PERIOD 

PHRASE 

PRODUCT 



PUT 

QUESTION 

RACHAEL 

RICHARD 

SAY 

SENTENCE 

SINK 

SIT 

SIGN 

SOLVE 

SPELL 

SQUARE 

SPRING 

SUBTRACT 

SUMMER 

TABLE 

TAKE 

TEACHER 

TIM 

TOM 

UNDER 

VERB 

WOULD 

WINTER 



CUSTOM 
EARS SPEECH LIBRARY 

For those needing a custom vocabulary, 
Speech Systems offers customized speech li- 
braries at the rate of $15 per phrase (5 seconds 
max.), 10 phrases minimum order. Provide an 
audio cassette tape with phrases or use our 
announcer. . . K i Minimum $150.00 




2 disks $19.95 2 disks $19.95 



'EARS and Disk system required. 

tCustom Library not part of introductory offer. 



'SUPER VOICE' 



COCO'S MOST ADVANCED 
SPEECH SYNTHESIZER. 

IT TALKS, SINGS AND 

MORE. 

only . . . $79.95 

WITH EARS PURCHASE 
only . . . $59.95 



SUPER VOICE is no ordinary speech synthesizer. It uses Silicon 
Systems, Inc. SSI-263, the most advanced speech/sound chip 
available. SUPER VOICE is not only capable of highly intelligible 
speech, sound effects, and singing over a 6 octave range, but now 
we have turned SUPER VOICE into a monophonic Super Music 
Synthesizer with our PIANO KEYBOARD. 

IT TALKS. A free TRANSLATOR text-to-speech program makes 
writing your own talking program as easy as SAYING "HELLO." 

SUPER VOICE works in any 32K or 64K computer. A disk system 
requires a Y-Cable or Multi-Pak. 
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Here are the facts; 
the decision is yours. 









SUPER VOICE 


REAL TALKER 


RS SPEECH 
CARTRIDGE 


VOICE-PAK 


Synthesizer Device 


SSI-263 


SC-01 


SP-256 


SC-01 


Speaking Speeds 


16 


1 


1 


1 


Volume Levels 


16 


1 


1 


1 


Articulation Rales 


e 


1 


1 


1 


Vocal Trad 
Filler Sellings 


256 


1 


1 


1 


Basic unit 
ol Speech 


64 phonemes 

« durations each 


64 phonemes 


64 allophones 
5 pause lengths 


64 phonemes 


Pilch Variations 


4096 132 absolute levels 
wllh B Inflection speeds) 


4 


1 


4 



SUPER TALKING HEADS 

Paul and Pauline, our talking heads program is normally $24.95. Until 
May 15 we will include them with each SUPER VOICE order. 
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We accept CASH. CHECK, COD, VISA and MASTER CARD orders. 

Shipping and handling US and Canada $3.00 

Shipping and handling outside the US and Canada $5.00 

COD charge $2.00 

Illinois residenls add 614% sales tax 



38W 255 DEERPATH ROAD 

BATAVIA, ILLINOIS 60510 

(312) 879-6880 (TO ORDER) 

(312) 879-6811 (24 HR. BBS) 

CALL ANY DAY TO ORDER. ALSO ORDER BY MAIL OR BBS. 
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'TALKING SOFTWARE' 

FOR THE VOICE, SUPER VOICE ™, RS SPEECH & SOUND PAK 



RADIO SHACK® 
SPEECH & SOUND TRANSLATOR 

We believe that no COCO speech 
synthesizer gives you the power 
and flexibility of the SUPER 
VOICE. Nevertheless, some have 
decided to go with the Radio 
Shack SPEECH & SOUND PAK. 
For those we've decided to open 
our TALKING LIBRARY by offer- 
ing the SPEECH & SOUND 
TRANSLATOR . Just load this pro- 
gram and our entire library is open to you. 

But that's not all. this program adds features. You get increas- 
ed intelligibility, the power of an exception table to specify 
specific pronunciations, $12.81 is spoken in dollars and cents, 
1,234,567 is spoken in millions, thousands, and hundreds, and 
much more. $24.95 




TERMTALK All the features of an intelligent telecom- 
munications program plus what appears on the TV is spoken. 

• Upload and Download programs • Control Xmit Protocols 

• Full or Split Screen • Buffer Editing 

• Normal or Reverse Video • It talks 

Please specify version (VOICE or RS SPEECH & SOUND PAK) 
Tape $39.95 Disk $49.95 

TALKING BINGO BINGO was never like this. The VOICE or 
SUPER VOICE makes all the calls while you sit back and play. 
Comes with 20 playing cards and 200 markers. High Resolu- 
tion graphic screen, 3 timing level, ball count and pause con- 
trol. $24.95 

ESTHER the talking psychoanalyst. An excellent example of 
artificial intelligence. She may not solve all your problems, but 
her insight will amaze you. Just like the original Eliza. $24.95 

SCORE E-Z A yahtzee type game. Up to six can play. $24.95 



CULT OF THE CAVE BEAR You're a stranded time 
traveler 50,000 years in the past. Can you fix your time 
machine while still surviving in this alien environ, and make it 
back? $29.95 

SHIP HUNT Play Battleship with your CoCo. All status 
reports are spoken. Ready battery, aim, fire at will! $24.95 

FINAL COUNTDOWN You must stop the mad general 
from launching a missile at Moscow and causing WW III. Has 
multiple voices for added realism. $24.95 



ADVENTURES 



STAR TALK You're the Star Fleet Captain. Your 
mission. ..destroy the enemies' Dragon Star Ships. All status 
reports are spoken ! $24.95 

FOOL'S CROSSING The worlds first TALKING HI-RES 

GRAPHICS adventure. Finding the hidden treasure is the easy part, 
getting back home is another story. $24.95 

ADVENTURE GENERATOR Create talking adventure 
games that are 100% Machine Language. Up to 99 rooms, 255 
objects, 70 command words and 255 conditional flags. 

64K Disk $39.95 



SUPER VOICE SONGBOOKS 



These two songbooks were specifically designed for the SUPER VOICE, the only speech synthesizer flexible enough to allow singing. 



VOLUME I (POTPOURRI) A collection of miscellaneous tunes 
for everyone. Songs include: How Much Is That Doggie in the Win- 
dow, Daisy, Aloha Oe, Old McDonald and more. $19.95 



VOLUME 2 (NURSERY RHYMES) Includes: Twinkle 
Twinkle Little Star, Mary Had A Little Lamb, 3 Blind Mice, the Alphabet 
Song and more. May be used with SUPER TALKING HEADS so 
they (Paul & Pauline) sing the songs. $19.95 



ANIMATED SENTENCES The child 
builds complete sentences from a graphic 
menu using keyboard or joystick. The action 
is then spoken and acted out graphically. It's 
a great way to learn the parts of speech (i.e. 
verb, subject, noun, etc.). S24.95 

KING AUTHOR'S TALES A creative 
writing tool to allow a child to write compos- 
itions, or short stories. Q & A option is also 
included. S29.95 

COLOR MATH Addition, Subtraction. 
Multiplication, and Division are mastered. 
Student may specify difficulty level. S24.95 
SPELL-A-TRON Student builds a dictio- 
nary of words to be quizzed on. Perfect for 
Spelling B. S24.95 



EDUCATION 



SPELLING TESTER A graphic spelling 
game. The student is shown objects to be 
spelled. $9.95 

POETRY CREATOR The VOICE 
speech unit is used to speak poetry that is 
created. $9.95 

SHORT STORY MAKER A program 
to create and speak stories created by the 
child. $9.95 



'//> 



FOREIGN LANGUAGE Learn a 
foreign language. French dictionary is in- 
cluded. $9.95 

PRESIDENTS The student is able to 
master the Presidents of the U.S. $9.95 

STATES A program designed to aid the 
student in learning correct spelling of the 
states. $9.95 

CAPITALS Learning the State's Capitals 
is made more interesting using speech. 

$9.95 

HANGMAN A word guessing game. You 
must guess the word before you hang. $9.95 

MATH DRILL A program to help teach 
arithmetic. $9.95 



All software, except as noted, shipped on tape but may be moved to disk. 



SYMPHONY 12 

A 1 2 VOICE POLYPHONIC STEREO MUSIC SYNTHESIZER 




12 SIMULTANEOUS 
VOICES 

STEREO & MONO 

4 NOISE 
GENERATORS 

SOUND EFFECTS 

PLAYS AND MAKES 
MUSICA 2 FILES 



SUPER POLYPHONIC. Speech Systems is 
proud lo bring you SYMPHONY 12, a poly- 
phonic 12 voice hardware stereo music synthe- 
sizer for the Color Computer. SYMPHONY 12 
also gives you 4 noise generators for percus- 
sion synthesis and sound effects. The PIANO 
KEYBOARD and MUSICA 2 (sold separately) 
turns your COCO into a real music machine 
with incredible flexibility. 

STEREO and MONO. By connecting SYM- 
PHONY 12 to your home stereo system, music 
is produced in stereo, 6 voices from each chan- 
nel. However, you don't need to have a stereo 
system, all 12 voices also come out of your TV 
or monitor. 

PICK AN INSTRUMENT. SYMPHONY 12 lets 
you choose from 10 preset instruments to syn- 
thesize chimes, violin, oboe, banjo, 
harpsichord, piano and more. You can even 
change instruments as the music plays. 

SOUND EFFECTS. SYMPHONY 12 is a sophisti- 
cated sound generator. 12 voices and 4 noise 
generators give you incredible sound effect 
capability. We have included gun shot, explo- 
sion, racing car and more. 
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WATCH IT PLAY. As SYMPHONY 12 plays, a 
graphics display of a piano keyboard shows 
the notes playing. The display is entertaining 
as well as very educational. 

PLAY MUSICA 2 FILES. Thousands of MUSICA 
2 users will be excited to know SYMPHONY 
12 plays all music developed using MUSICA 2 
like you have never Seen or Heard it. In fact 
we highly recommend the use of MUSICA 2 
as a composition development tool for SYM- 
PHONY 12. Use MUSICA 2's superior graphics 
input capability and then play it through SYM- 
PHONY 12. You can also take advantage of 
our MUSIC LIBRARY series (sold separately) 
to give you access to over 500 music pieces 
representing 20 hours of music. 

ULTIMATE MUSIC DEVELOPMENT SYSTEM. 

SYMPHONY 12, MUSICA 2, and the PIANO 
KEYBOARD give you incredible flexibility. Im- 
agine sitting down at the PIANO KEYBOARD, 
playing a piece and recording it as you play 
just as you would to a tape recorder. Save your 
masterpiece and then using MUSICA 2 edit it 
if you like and print it. If you have a MIDI 
synthesizer, you can take the music and play 
it using COCO MIDI (sold separately). Try that 
on an IBM, APPLE, or COMMODORE (good 
luck). 



PIANO KEYBOARD. For those wishing to turn 
SYMPHONY 12 into a real polyphonic synthe- 
sizer we offer the extremely powerful and ver- 
satile PIANO KEYBOARD. The PIANO 
KEYBOARD was deisgned to be used in our 
entire music product line. You can use it with 
SYMPHONEY 12, MUSICA 2, SYNTHER 77 
PLUS, and even our advanced speech synthe- 
sizer, SUPER VOICE. 

When using MUSICA 2, you will be using 4 of 
the 12 voices available from SYMPHONY 12. 
To take advantage of the full 12 voice capability 
of SYMPHONY 12 you may use either the 
Color Computer's keyboard or the PIANO 
KEYBOARD. 

Y-CABLE or MULTI-PAK. Tape users using both 
SYMPHONY 12 and the PIANO KEYBOARD 
will require a Y-CABLE. Disk users will require 
the Triple Y-Cable or MULTI-PAK. 

SYMPHONY 12. You get over a dozen music 
and sound effect selections and complete 
documentation. Software is shipped on Tape 
or Disk. 

SYMPHONY 12 $79.95 

SYMPHONY 12 (with Kevboard order) . $59.95 
OPTIONS 

MUSIC LIBRARY (each volume) $29.95 

MUSICA 2 $29.95 

PIANO KEYBOARD (61 note) $119.95 
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We accept CASH, CHECK, COD, VISA and MASTER CARD orders. 

Shipping and handling US and Canada S3.00 

Shipping and handling outside the US and Canada SS.00 

COD charge $2.00 

Illinois residents add 6'A% sales tax 



38VV 255 DEERPATH ROAD 
BATAVIA, ILLINOIS 60510 
(312) 879-6880 (TO ORDER) 
(312) 879-6811 (24 HRS. BBS) 

CALL ANY DAY TO ORDER. ALSO ORDER BY MAIL OR BBS. 
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ft COCO MIDI SEQUENCER/EDITOR <7 



Now your COCO can talk to your MIDI music synthesizer. 
Whether you have a Korg, Roland, Casio, Yamaha, or Moog, 
it doesn't matter as long as it's MIDI equipped. Choose from 

• Supports 8 digital tracks. 

• 1,500 events per track. 

• 12,000 events all 8 tracks. 

• May be used as an 
advanced sequencer. 

• User friendly high res. 
graphics display. 

• Menu driven. 

• Help command explains 
features. 

• Real time recording. 

• Save your masterpiece to 
tape or disk. 

• Tempo may be modified. 



our entry level MUSICA 2 COCO MIDI system that plays 
MUSICA files or our Professional COCO MIDI SYSTEM. 
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Playback any or all 8 tracks at any tempo. 

Tracks may be deleted, copied, transposed or mixed. 

Filter out unwanted channel or type of MIDI data. 

Simple music text editing. 

Requires 64K. 

Transposition. 



Comes complete with Rom Pale 
Hardware interface, cables, 
manual, and software. Disk 
users require Y-Cable or Multi- 
Pak S149.95 

Now under development, 
voicing patch libraries for the 
Casio CZ series of synthesizers. 

CZ-101 USERS! 
We offer the CZ-101 CONNEC- 
TION and the 61 NOTE PIANO 
KEYBOARD to turn the 101 into 
a professional full size synthe- 
sizer. 

CZ-101 CONNNECTION . $29.95 
61 NOTE KEYBOARD . $119.95 



MUSICA MIDI 



TM 



COCO MIDI takes any MUSICA 2 music file and plays it 
through your music synthesizer. We offer you over 800 tunes 
from our MUSIC LIBRARY series (sold separately) or create 
your own music using the best music composition program 
available, MUSICA 2 (sold separately). 



COCO MIDI includes: documentation, plenty of music, and 
the cable to connect between the COCO and your synthe- 
sizer $39.95 Tape or Disk 



MUSIC LIBRARY 



TM 



The MUSIC LIBRARY series consists of 8 volumes: 100 
through 800 each sold separately. Each contains over 100 four 
voice music selections with a playing time of over 3 hours 
each. The disk version is shipped on 5 full disks. When 
coupled with the STEREO PAK, the music is reproduced with 
unsurpassed realism. 

A JUKEBOX program is included to allow you to select specific 
songs or automatically play each. These songs are ready to 
go, you don't need MUSICA 2 or a knowledge of music. 
MUSICA 2 users may customize each song. Each volume sold 
separately, specify tape or disk $29.95 Tape or Disk 



MUSIC LIBRARY 100 
Stage, Screen, & TV 
Music of the 70's 
Music of the 60's 
Music of the 50's 
Old Time Favorites 
MUSIC LIBRARY 200 
MUSIC LIBRARY 300 
MUSIC LIBRARY 400 
MUSIC LIBRARY 500 
MUSIC LIBRARY 600 
MUSIC LIBRARY 700 
MUSIC LIBRARY 800 



Classical 

Christmas (popular) 

Christmas (traditional) 

Patriotic 

Polka Party 
(another 100 selections) 
(another 100 selections) 
(another 100 selections) 
(another 100 selections) 
(another 100 selections) 
(another 100 selections) 
(another 100 selections) 



Entire Library 

30 Hours of 

Music! 

40 disks 

or 
25 Japes 



SYNTHER 77 PLUS 



You control vibrato pattern, Bender rate, Volume level as 
well as Attack, Decay, Sustain, and Release (ADSR envelope). 
As you play you can record, then edit and save it to disk or 
tape. You can even fine tune it to match other instruments. 



The PIANO KEYBOARD is not necessary, you can use your 
COCO keyboard but the PIANO KEYBOARD makes your 
COCO a real music instrument $29.95 Disk only 



STEREO PAK 
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Plug this gem into your computer, connect to your home stereo 
system and sit back and enjoy music realism. The STEREO PAK 
is a hardware music synthesizer that plays our MUSIC LIBRARY 
series and MUSICA 2 music in stereo. Because it was designed 
specifically with music reproduction in mind, the sound is 
superb. The highs are crisp and clear while the bass notes wil 
rattle your walls. Internally we use two high performance 8 bit 
digital to analog converters to assure fidelity. 

The STEREO PAK is all hardware. It is intended as an enhance- 
ment for MUSICA 2 and our MUSIC LIBRARY series. Disk users 
will require our Y-CABLE or a MULTI-PAK $29.95 







lPm note piano keyboard 







Hmmmmm 



Our new 61 note (5 octave) full size keyboard is perfect for the 
beginner or professional. To give the PIANO KEYBOARD the most 
flexibility, we give you a choice of 5 different products to use: 
SYMPHONY 12, MUSICA 2, SYNTHER 77 PLUS, SUPER VOICE, and 
the CZ-101 CONNECTION. 



The PIANO KEYBOARD and SYM- 
PHONY 12 turns the COCO into a 12 
voice music synthesizer. When used 
with MUSICA 2, the PIANO KEYBOARD 
provides a user-friendly means of input- 
ting music. For those wishing control 
over Vibrato, Volume, Bender, as well 
as Attach, Decay, Sustain, and Release 
(ADSR), we offer SYNTHER 77 PLUS, 
a monophonic synthesizer. SUPER 
VOICE, COCO'S most advanced speech 
synthesizer, doubles as a music synthesizer when used with the 
PIANO KEYBOARD. For those with the Casio CZ-101 music synthe- 
sizer, the CZ-101 CONNECTION allows you to connect the "full 
size" PIANO KEYBOARD to give you standard keyboard. 

61 NOTE PIANO KEYBOARD $119.95 

CZ-101 CONNECTION $ 29.95 
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'When in stereo mode, music is 
played through our STEREO PAK 
(purchased separately). 

' Loudness of each voice may be 
individually specified. 

• Memory available is constantly 
displayed. 

• Voice waveshapes may be 
exchanged between voices at any 
point. 

• Tempo may be specified and may 
even be altered as the music plays. 

• Flats and sharps supported. 

' Billions of timbre combinations. 

' High resolution graphic display, 
looks just like sheet music. 



■ MUSICA 2 is 100% software, no need for 
hardware unless you want music produced in 
STEREO. In that case, the STEREO PAK may be 
purchased separately. It's a must for the 
audiophile! 

' Repeat bars allow repeating of music without 
re-inserting music a second or third time. 

* 30 page manual describes all. 

■ Requires 64K. 
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1 Output music to your printer 
(Gemini 10X, Epson, R.S. printers). 




• Allows you to specify key signature. 

• Voice timbre (waveshape) may be 
altered by specifying harmonic 
content just like stops on an organ. 

• During editing, voice being inserted 
is displayed. 

• Each measure is numbered for easy 
reading of music. 

•Measure bars aid in reading and 
developing music. 

• Each voice may be visually 
highlighted for easy identification. 

•4 Voices produced simultaneously. 

• Input notes from Coco keyboard, 
joystick, or Piano Keyboard. 



• Play music from your own BASIC program. 

' Block copy music for easy music development. 

• 100% machine language so it is lightning fast. 

' Vibralo effect easily produced. 

1 With STEREO PAK, voices may be switched 
between left and right speakers as music plays. 

• Durations include: whole, half, quarter, 
eighth, sixteenth, thirty-second, sixty-fourlh, 
and triplet. 
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COURSE 1 

This course covers all the basics from music notation & duration, 
key signatures, tempo, to an introduction of the keyboard. This is 
an entry level course recommended as a prerequisite for Course 
2. 32K Disk only $49.95 



COURSE 2 

A more advanced course that deals with : Major and Harmonic Minor 
scales, interval spelling, Triad (Chord) theory, Inversions, Dominant 
7th chords, and ear training of the intervals. 32K Disk only . $49.95 



'HOME COMMANDER' 

$59.95 



The HOME COMMANDER easily connects to the 
cassette port of your Color Computer and lets you 
control appliances in your home. 

NO WIRES NECESSARY 

The HOME COMMANDER uses your home's 
existing electrical wiring to control virtually any- 
thing. Appliances are controlled via small control 
modules available at your local SEARS or Radio 
Shack store. 

ON FRIDAY 7:42 PM, OFF 
SUNDAY 1:26 AM 

Included FREE is a program to allow you to control 
up to 256 devices and specify the time and date 
they are to be activated. That's right, the software 
has its own built in accurate clock. 





Imagine controlling a light or TV with your voice. 
When used with our ElectronicAudio Recognition 
System, EARS, you can literally control any 
appliance. 

PLUG'N POWER USERS 

If you were disappointed in the software that 
came with the Radio Shack PLUG'N POWER unit, 
and you probably were, we'll offer you our pow- 
erful software separately. An early version is de- 
scribed in the Feb., April, )une, and August 1983 
issues of RAINBOW. Our current version is even 

better $1 9.95 

PLUG'N POWER is a trademark of Radio Shack' 



PRECISION TIME MODULE $59.95 



— INCLUDES OS9 DRIVER — 





Now your computer will always know the correct 
time and date. This amazing precision time mod- 
ule is calibrated to the National Bureau of Stan- 
dards (WWV) atomic clock and you should never 
have to change it. 

Use the PRECISION TIME MODULE to add the 
time element to your games or use on BBS. If you 
like, purchase separately our BBS. 
COLORAMA BBS (64 K, 1 drive minimum) $99.95 

BATTERY BACKUP 
Even when your computer is off, the clock 
keeps correct time by operating using the 
internal battery backup system. 
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MONTHS, LEAP YEARS & DST 
The PRECISON TIME MODULE automatically 
adjusts for the different number of days in 
each month as well as leap years. And beiieve 
it or not, it adjusts for DST so you don't have to 
remember if it's SPRING FORWARD or FALL 
FORWARD. 




Y-CABLE $28.95 TRIPLE Y $34.95 

Why pay $100 to $200 for a multi-pak. With We developed the Triple Y-Cable specifically 

the Y-CABLE, you can connect your disk for those interested in both speech synthesis 

system to your computer along with either and speech recognition. The Triple Y-Cable 

our STEREO PAK music synthesizer, our lets you connect EARS and SUPER VOICE to m 

VOICE, SUPER VOICE speech synthesizers, your color computer along with your disk / E^m 

or our PRECISION TIME MODULE. All con- system. "j 

nectors gold plated. — / 

Need an 

^ ATTENTION EXPERIMENTERS! *»« $2900 

Interested in building your own project? Disks (any quantity) $1.49 

Our oversized board gives plenty of room Tape C-10, C-20 $0.69 

for construction whilethesturdyaluminum ^ va Hard Tape Box $0.29 

. , . , . ,. . , Speech r 
case with black satin finish assures protec- ch | 6821 $2.95 

tion and a professional appearance. SSI-263 74LS138 $0.79 

Prototype Board only $19.95 $3495 7407 S0 ' 79 

Prototype Enclosure only $19.95 IC sockets 14, 16, 22 pin $0.29 

Buy both for $29.95 IC sockets 24, 28, 40 $0.39 
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VISA' 




MasterCard] 
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Dealer Inquiries 
Invited 
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We accept CASH, CHECK, COD, VISA and MASTER CARD orders. 

Shipping and handling US and Canada $3.00 

Shipping and handling outside the US and Canada $5.00 

COD charge S2.00 

Illinois residents add 6'A% sales tax 



Speech S^ifst 
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38W255 DEERPATH ROAD 

BATAVIA, ILLINOIS 60510 

(312) 879-6880 (TO ORDER) 

coloSam/ (312) 879-6811 (24 HR. BBS) 

CALL ANY DAY TO ORDER. ALSO ORDER BY MAIL OR BBS. 



014 

12 C=1:W(0)=2:W(1)=4:W(2)=8:GOTO 
14 

13 C=-1:W(0)=1:W(1)=8:W(2)=4 

14 IFR$(R(R) )<>"TUNNEL"THENF=0:B 
=5ELSEF=5 : B=0 : IFO ( 11) <200THEN4 

15 PMODE2,l:PCLSB:PMODE4,l: COLOR 
F,B: LINE (0,0) -(255, 96) ,PSET,B:X= 
INSTR(1,S$,LEFT$(R$(R(R) ) ,3) ) : X= 
(X+2)/3:IFX<10GOTO138ELSEONX-9GO 
TO140, 144, 146, 151, 154, 157,160,16 
2,163,165,169 

16 IFR=50ANDP(12)=1THENN=18:GOTO 
54ELSEIFR=65THEN41ELSEIFR=52THEN 
IFP ( 13 ) =1THENN=22 : GOT059ELSEIFO ( 
22 ) =52THENN=2 1 : GOT0124 

17 IFR=70THENPRINT@416, "THERE AR 
E SOME NUMBERS SCRIBBLEDON THE N 
ORTH WALL" : IFU=1THENPRINT@ 106, P( 
15)"="P(16)"="P(17) 

18 IFR=69ANDP(18)=0THENPRINT"THE 
RE IS A PADLOCKED DOOR TO THEEAS 
T":IFU=3THENDRAW"BM110,90C0U70R5 
0ND70BG12L26D20R2 6U20" : POKE178 , 6 

4:PAINT(126,36) , ,0:POKE178,0 

19 IFR=10THENPRINT"YOU ENTERED A 
TRAP FOR POTENTIALESCAPEES . YOU 
ARE IN ISOLATION FROM WHICH TH 

ERE IS NO ESCAPE. ";:FORK=1TO20:P 
M0DE2 , 1 : POKE179 , K: PCLS : PLAY"L255 
; 04 ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7 ; 8 ; 9 " : NEXT : PMOD 
E4,l:GOT0178 

20 IFR=14THENR=31:GOT014ELSEIFR> 
1THENIFO(1)OR ANDO(l)<145THENPR 
INT "THE NOTE FROM GEORGE WAS FOU 
ND AND YOU HAVE BOTH BEEN CAUGH 
T":G0T0178 

21 G0T04 

22 PRINT@448,"YOU CANNOT GO THAT 
WAY":G0T04 

23 AV$=LEFT$(A$+" ",3):AN$=MID 
$(A$+" ",INSTR(1,A$," ")+l,4) 
:V=INT( (2+INSTR(l,V$,AV$) )/3) :N= 
INT( (3+INSTR(l,N$,AN$) )/4) 

24 ONV G0T025,25,39,39,46,49,49, 
51,61,62,68,75,76,82,84,86,88,90 
, 92 , 99 , 103 , 104 , 108 , 113 , 118 , 121 , 1 
21, 124 , 12 6 , 128 , 130 , 13 3 : PRINT"S0R 
RY. I DO NOT UNDERSTAND .": G0T04 

25 IFP(5)=1ANDR=60THEN14:GOTO4EL 
SED=INSTR ( 1 , "NORTSOUTEASTWEST" , A 
N$ ) : IFD>0THENU= ( D+3 ) /4 : ONU G0T01 
, 11, 12 , 13ELSEIFAN$="LOOK"THEN14 
: GOT04ELSEIFN>15THEN3 1ELSEIF0 (N) 
<150THENPRINT"YOU DO NOT HAVE IT 
. " : G0T04 

26 IFN=10RN=12THENPRINT"THERE IS 
WRITING ON IT"ELSEIFN=2THENPRIN 

T"IT IS TORN. IT IS A LIST OF SO 



MESORT. " :MID$ (N$, 5, 4) ="LIST" : 0$ ( 
2 ) ="LIST"ELSEIFN=4THENPRINT"RIFL 
E SHELLS"ELSEIFN=5THENPRINT"0XYG 
EN MASK"ELSEIFN=6THENPRINT"0XYGE 
N BOTTLE MARKED FULL" 

27 IFN=9THENPRINT"HAND OPERATED" 
ELSEIFN=11THENPRINT"C0NTAINS BAT 
TERIES"ELSEIFN=13THENPRINT"S0FT 
LENS "ELSEIFN=14THENPRINT"VERY SH 
ARP"ELSEIFN=15THENPRINT"VERY STU 
RDY IN APPEARANCE" 

28 IFN=8THENIFP(0)=0THENPRINT"A 
BOOK OF MATCHES WITH ONLY ONE MA 
TCH IN IT"ELSEPRINT"COMPLETELY E 
MPTY" 

29 IFN=3THENIFP(1)=0THENPRINT"TH 
E SHELL CHAMBER IS EMPTY"ELSEPRI 
NT"THERE IS A SHELL IN THE CHAMB 
ER" 

30 GOT037 

31 IFO (N) OR THENPRINT"THAT IS N 
OT HERE":GOTO4ELSEIFN=16ORN=30TH 
ENPRINT "THERE IS WRITING ON IT"E 
LSEIFN=17AND0 ( 3 ) <0THENPRINT"ALAR 
M PROTECTED. HOWEVER YOU SEEONE 
RIFLE AGAINST THE WALL OUTS 
IDE THE GUNCASE.";:0(3)=29 

32 IFN=19ANDO(4)<0THENPRINT"FULL 
OF AMMO AND APPEARS VERY HEAV 

Y" : (4 ) =R ELSEIFN=2 1THENPRINT"A 
REMBRANDT ORIGINAL I BELIEVE "ELS 
EIFN=2 5AND0 ( 9 ) <0ANDO ( 10 ) <0THENPR 
INT"THE DRILL AND SHOVEL LOOK"," 
INTERESTING" : ( 9 ) =R : O ( 10 ) =R 

3 3 IFN=2 4THENIFP ( 4 ) =0THENPRINT" I 
T IS EMPTY"ELSEIFP(5)=0THENPRINT 
"IT IS OPEN"ELSEPRINT"TOTAL DARK 
NESS." 

34 IFN=2 6THENPRINT"SLOW EASY RAP 
IDS"ELSEIFN=27THENPRINT"LOOKS IN 
VITING"ELSEIFN=29THENPRINT"THERE 

IS A SIGN ON IT":O(30)=R ELSEIF 
N=31THENPRINT"SHE IS HUGE AND UG 
LY. ALSO SHE IS DROOLING AS SHE 

APPROACHES "ELSEIFN=35THENPRINT M 
TYPE <A> I THINK." 

35 IFN=23THENPOKE178,88:LINE(0,0 
) -(255,95) ,PSET,BF:POKE178,P(14) 
: LINE ( 100 , 50 ) - ( 15 6 , 9 5 ) , PSET , BF : P 
OKE178 , : POKE179 , : PRINT"WONDER 
WHAT IS BEHIND IT?" 

36 IFN=3 3THENPRINT"A STURDY BRAN 
CH ARCHES ACROSS THE PIT OPENI 
NG ABOVE"ELSEIFN=34THENR=R+10:GO 
TO14ELSEIFN=37THEN180 

37 IFPEEK(1440)=96THENPRINT"YOU 
SEE NOTHING SPECIAL" 

38 G0T04 

39 IFO(N)=150THENPRINT"YOU ALREA 
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DY HAVE THAT" :G0T04ELSEIFO(N)>=p 
AND0(N)OR THENPRINT"THAT IS NOT 
HERE":GOT04ELSEIFN=37THEN44ELSE 
IFN>150RO (N) <0THENPRINT"YOU CANN 
OT GET THAT":GOT04ELSEIFP(3)>6TH 
ENPRINT"YOUR HANDS ARE FULL" : GOT 
04 

4J3 P ( 3 ) =P ( 3 ) +1 : (N) =150 : PRINT"TA 
KEN" : IFN=6ANDR=5^THENLINE ( 158 , 52 
)-(166,43) ,PSET,BF ELSEIFN=5ANDR 
=5j3THENLINE(158,4j3)-(17j3 / 34) ,PSE 
T,BF 

41 IFR=65THENIFO(9)=15^THENDRAW" 
BM110 , 41C5EL2ED2U7ER3EU7HL3HU5EH 
EHEHEHEHEHEHC0" 

42 IFR=65THENIFO(lj3)=150THENPOKE 
178, 99: LINE (222, 24)- (236 ,7J3) , PSE 
T,BF:POKE178,0 

43 IFR=lj3^THENIFN=llTHENPRINT"Y0 
U TRIPPED AND SPRAINED YOUR AN 
KLE" 

44 IFN=12THENGOT014ELSEIFN=37THE 
NPRINT"YOUR GREED HAS DEFEATED Y 
OU. YOUARE NOW TRAPPED IN THE PO 
OL AS GEORGE ESCAPES" :G0T017 8 

45 G0T04 

46 IFNO80R0 (N) <15^THENPRINT"Y0U 
CANNOT DO THAT":GOT04ELSEIFR<>6 



pTHENPRINT"YOU HAVE WASTED YOUR 
ONLY MATCH AND PROBABLY THE GAME 

":P(0)=1:GOTO4 

47 IFP(£)>0THENPRINT"YOUR MATCH 
IS ALREADY SPENT" : G0T04ELSEP (0) = 
2 : PM0DE2 , 1 : PCLS5 : PM0DE4 , 1 : PRINT" 
A MESSAGE APPEARS ATTACHED TO 
THE CASKET LID OVER HEAD. IT 
SAYS ..." 

48 PRINT@0,"YOU FOOL. IT WAS I W 
HO STOLE THEAFRICAN JEWEL. AND I 
T WAS I WHO FRAMED YOU. ONLY YOU 

WILL NEVER TELL BECAUSE ONLY I 
KNOW YOU AREHERE AND I WILL NEVE 
R TELL. " , , "GEORGE RUBIX" : G0T04 

49 IF0(N)<>15pTHENPRINT"Y0U DO N 
OT HAVE THAT"ELSEPRINT"OK. YOU N 
LONGER HAVE IT. " : (N) =R: P (3 ) =P 
(3)-l 

50 G0T04 

51 IFN=3 6ANDR=3 6THENPRINT"USE TH 
E FOUR ARROW KEYS TO" , "POSITION 
THE CURSOR AND PRESS ENTER TO 
OPEN DESIRED CUPBOARD. " ; : K=j3 : Z=2 
:GOSUB134ELSE54 

52 PRINT0416, STRING? (95, 32) ; : PRI 
NT@416,""; :POKE178,0:LINE(X,Y)-( 
X+16,Y+22) ,PSET,BF:IFX=P(10)ANDY 
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/^\ COLOR CHARACTER GENERATOR /^\ 

A NEW DIMENSION IN COLOR COMPUTING 



RAINBOW 



RAINBOW 



• Now includes a chancier generator and sample graphic space 
game at no e«tra cost. 

•Full 224 te':t and graphic characters. Underline in all PMC'DES. 
Prints vertically. 

•All machine language, user transparent. Supports all BASIC. 
EXTENDED BASIC and OIS» commands. 

•Automatic loader recognizes 16r, 321 S 64K computers. 

• Mi>: up to 5 character s»res in 4 colors all on one screen. A 
total of 10 s»zes ava. table from 8*4 to 42»24 or ?.2*31 -n 
vertical mode. 

•Use up to 4 defineat-le window screens of any sire. Also 
includes horizontally scolling 'crawlingi one line screens. 

• includes positive & negative screen dumps in 2 sizes for R/Si 
Epson Si Gemini printers- i Please specifyi 

•Special Trace Delay can be used to debug programs one line at 
a time t even graphics '. 

• A special printer control car output characters to the screen 
& printer simultaneously. 

•A must for all color computer owners. Once you try it you 
won't write another program without it. 



INCENTIVE SOFTWARE 
(519) 681-0133 



P.O. BOX 323 

STATION B 

LONDON ONTARIO 

CANADA N6A **W1 

MINIMUM REQUIREMENT 
TAPE - 2U.95 US or 
DISK - 27.95 US or 



P.O. BOX 7281 
PORT HURON 
MICHIGAN U83OI 
U.S.A. 

16K BASIC 
29-95 CDN 
32.95 CDN 



VISA 



Tape to Disk upgrade available lor *8US or *10CDH. We pay 
postage within US !t CANADA on orders over S20 ( otherwise 
please add si. Other countries please add S2. Charge orders 
please add *l . 
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=40THENX=X+5 : DRAW"BM=X; , 60C5U6NR 
6E2R6NG2D6G2NL6BM24,10": PAINT (X+ 
2,58) ,5,5:0(19)=R:PRINT"THERE IS 
A SMALL BOX HERE"ELSEPRINT"NOTH 
ING IMPORTANT" 

53 GOT04 

54 IFNO18ANDR<>50THEN58ELSEIFP( 
11)=0THENPRINT"IT IS LOCKED" :GOT 
04ELSEP ( 12 ) =1 : LINE ( 154 , 6 ) - ( 176 , 5 
4) ,PSET,BF:FORY=18T054STEP12:DRA 
W"BM154 , =Y ; C5ER20GL20" : NEXT : IFO ( 
5)=-lTHENO(5)=R 

55 IF0(6)=-1THEN0(6)=R 

56 IFO(6)=R THENDRAWBE2BR4HU5E2 
U2R2D2F2D5GL4" : POKE178 , 1 : PAINT ( 1 
62, 50) , , 5:POKE178,0 

57 IFO(5)=R THENDRAW"BM158,40C5E 
6F6L12" : POKE178 , 2 : PAINT (162,38), 
,5:POKE178,0:GOTO4 

58 IFN<>22ORO(22)O52THEN60ELSEP 
RINT" COMBINATION?", :INPUT"1ST NU 
MBER" ;N1: INPUT "2ND NUMBER" ;N2 : IN 
PUT"3RD NUMBER" ;N3:IFN1=P (15) AND 
N2=P ( 16 ) ANDN3=P ( 17 ) THENPRINT@4 64 
,"SAFE IS OPEN"ELSEPRINT@464,"IT 

DID NOT WORK":GOT04 

59 LINE(139,8)-(165,36) ,PSET,BF: 
DRAWBM139 , 36C5E4U20NH4R18NE4D20 
NF4L18C0 " : P ( 13 ) =1 : IFO ( 7 ) =-lTHENO 
(7)=R 

60 IFR=29ANDN=17THENPRINT"AN ALA 
RM SOUNDS QUICKLY SIGNAL= ING TH 
E GUARDS" :GOT0178ELSE4 

61 IFNO3 30RR<>135THENPRINT"WHEE 
... THAT WAS FUN.":GOT04ELSEPRI 
NT"A SUCCESSFUL JUMP. ..", "YOU HA 
VE CLEARED THE PIT. " : R=13 3 : O (33 ) 
=134:GOT014 

62 IFR(R)<>12THENPRINT"HOW IN TH 
E WORLD WILL YOU DO THAT? 11 : GO 
T04ELSEINPUT"WHAT TYPE OF STROKE 
? <1> BUTTER=FLY <2> FREE STYLE 

<3> DOG PADDLE ";A$:A=VAL(A$ 
) :PRINT@416,STRING$(94,32) ; : PRIN 
T@416,""; :ONA GOT063 , 64 , 65 :GOT04 

63 PRINT "YOU SHOULD GO OUT FOR T 
HE OLYM= PICS":GOT066 

64 PRINT"A LIBERAL; NO DOUBT": GO 
T066 

65 PRINT"HOW ABOUT SOME ALPO?" 

66 PRINT"YOU MADE IT TO THE OTHE 
R SIDE" : IFD (R) =1THEND (R) =2ELSED ( 
R)=l 

67 GOT04 

68 IFN=3 6ANDR=3 6THENFORX=2 4T02 3 8 
STEP24 : FORY=10TO40STEP30 : POKE178 
, 2 : LINE (X, Y) - (X+16 , Y+22) , PSET, BF 
: CIRCLE ( X+4 , Y+1J8 ) , 2 , : NEXTY , X : O ( 
19)=-l:IFO(4)=36THENO(4)=-l 



69 IFN<>18ORR<>50THEN71ELSEP(12) 
=0 : POKE178 , 3 : LINE ( 154 , 6 ) - ( 176 , 54 
) , PSET , BF : DRAW"BM159 , 2 1C0U4R4U4R 
4D4R4D4L4D4L4U4L4 " : CIRCLE ( 158 , 30 
) ,2:POKE178,2:PAINT(165,18) , ,0:P 
OKE17 8 , : IFO ( 5 ) =50THENO ( 5 ) =-1 

70 IFO(6)=50THENO(6)=-1 

71 IFN=24ANDP(4)=1THENPM0DE2,1:P 
CLS0 : PMODE4 , 1 : PRINT"OK" : O ( 24 ) =0 : 
P(5)=1ELSE4 

72 PMODE2,3:PCLS5:PMODE4,l:PRINT 
@256, "AFTER A WHILE; THE CASKET 
BEGINSTO MOVE . . . " : FORK=1TO900 : NE 
XT: PRINT "THEN YOU HEAR A TRUCK E 
NGINE. . ." :PRINT:A$="L25501;1;2;3 
; 6 ; 4 ; 8 ; 9 ; 11 ; 3 ; 2 ; 12 ; 4 ; 6 ; 1 ; " : FORK= 
1TO50 : PLAYA$ : NEXT : FORK=1TO500 : NE 
XT 

73 PRINT :PRINT"AFTER A FEW KNOCK 
S AND BANGS ALLMOTION CEASES AND 

YOU HEAR DIRT HITTING THE CASKE 
T. " : FORK=12TO0STEP-1 : PLAY"V=K; "+ 
LEFT$ (A$ , 21) +"V12P"+STR$ (RND ( 10) 
) :NEXT 

74 IFO(5)O150ORO(6)O150THENPRI 
NT @ 4 16, "SINCE YOU DO NOT HAVE TH 
E OXYGENMASK OR BOTTLE; YOU HAVE 

QUICKLYSUFFOCATED FROM LACK OF 
OXYGEN" ;: GOTO 17 8 

75 IFINSTR ( 1 , "NSEW" , LEFT$ ( AN$ , 1) 
)>0THENA$=LEFT$(AN$,1) :GOT08ELSE 
IFN=270RN=240RN=29THEN76ELSE PRI 
NT "YOU CANNOT GO THERE AT THIS T 
IME":GOT04 

76 IFN=33ANDR=134THENPRINT"GOOD 
TRY BUT THE WALLS ARE TOO SLIPP 
ERY."ELSEIFAN$="WALL"THENPRINT"T 
HIS IS DRIVING ME CRAZY TOO" 

77 IFP(5)=0THENIFN=24ANDR=60THEN 
IFP(4)=0THENPRINT"OK. YOU ARE IN 

THE CASKET" : P (4) =1:D (60) =0: GOTO 
14ELSEPRINT"OK. YOU ARE OUT OF T 
HE CASKET" : P ( 4 ) =0 : D ( 60) =1 : GOT014 

78 IFN=27THENIFR=111THENPRINT"TH 
AT WAS REFRESHING" :R=110:GOTO14E 
LSEPRINT"AH. . . JUST WHAT THE DOC 
TOR" , "ORDERED" : R=lll : GOT014 

79 IFN=15ANDR=134ANDP(8)=1THENPR 
INT" IT WAS QUITE A STRUGGLE BUT 
YOU PULLED YOURSELF OUT" :R=135 : 
(33)=135:GOT014 

80 IFN=29ANDR=140THENPRINT"THE F 
ENCE WAS CHARGED AND NOW SOARE Y 
OU":GOT0178 

81 GOT04 

82 IFN=18ANDR=50THENIFP(11)=1THE 
NPRINT"IT IS ALREADY UNLOCKED"EL 
SEIFO(7)<150THENPRINT"YOU DO NOT 

HAVE THE KEY"ELSEPRINT"YOUR KEY 
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The Intelligent Choice... 




(119.95 CDN) 



ADMIT IT! Your computer always had the power, bui 
never the software. Now. ..Four Star Software 
presents a product unlike any other. Penpal! This is 
a package intelligent enough to help you reach new heights of 
personal productivity. Designed to be learned in less than a day, 
the entire program is quick and easy, powerful but elegant. A 
pleasure to use! 

Penpal provides you with a package that combines the five most 
wanted computer applications into one incredibly easy-to-use in- 
tegrated environment. This sets a new standard of excellence in 
applications software: What would you pay for a program that 
does it all, but does it easily? 

We invite you to compare PENPAL'S list of outstanding 
features with any other software currently on the market for any 
computer! Packages like this cost hundreds more on other 
machines. PENPAL brings the power of a PC to your CoCo at 
an Unbelievable and Unbeatable price! We guarantee 
it. ..if you are not completely satisfied, return it within 30 days 
for a prompt refund. 

For a limited time, take advantage of our low introductory price. 
You won't be disappointed you did! 

Order your personal copy of PENPAL today to finally realize 
the full potential of your Color Computer. Available directly 
from Four Star Software or enquire at your local Computer 
dealer. 



Twelve function Keys and a continuously displayed reminder 
line make this program easy to use. No complicated key com- 
binations or commands to remember! 
On-line help function 
Hi-res 5 1 x 24 display screen 

Common formats and commands in all five modules make 
this package easy to learn and user friendly. 
Fast and effective 255 by 255 spreadsheet is very versatile. 
Flexible text editor includes all common features found on 
others plus centering, justification, and pagination. Efficient 
database includes advanced indexed sorting capability and 
much, much more! 

Create full color, presentation quality graphs with variable 
size labels directly from your spreadsheet in pie, line, dot or 
bar formats using the Graph-it function. Incredible! 
Upload and download files, access networks, or com- 
municate with other users with built-in Telecom feature. This 
is not iii'-i a simple dumb terminal package! 
Modules interface with each other to form a truly integrated 
package unlike any you have ever experienced. These are not 
just seperate programs that are selectable from central menu 
like others offer! 

Comes in an attractive binder set, with reference manuals. 
Requires 64K and minimum of one disk drive. 



Order Hotline 
416-858-STAR 



Four Star Software 

Box 730, Streetsville Post Office 
Mississauga, Ontario 
Canada L5M 2C2 



Dealer enquiries welcome 
write or call for our 
free Catalogue. Add S3.00 
for shipping and handling 
overseas order Add $8.00 



Mind-tingling action! 

THE SECOND RAINBOW BOOK OF 



Twenty-four of the most challenging Adventure games ever 
compiled await you in this latest offering from The Rainbow 
Bookshelf. Journey through time, fight World War III, win 
the heart of a beautiful and mysterious princess. Experience 
the titillations of the most rugged Adventurer without ever 
leaving your seat. 

Order The Second Rainbow Book of Adventures and among the 24 program 
listings you'll receive are: 
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Yellow Submarine — Meet the Beatles and attempt to 

outlast the Blue Meanies while enjoying some of the 

Fab Four's all-time musical hits. 

Ring Quest — Regain possession of a magical ring and 

save a kindom. 

Time Tripper — Lost in another dimension. 



Chief Inspector — Who killed B.L. Brown? 

Sir Randolf Returns — The sequel to a favorite from our 

first Adventure book. 

Silverton House — Where's the money been stashed? 

Ice Princess — Just one glance at this beauty will steal 

your heart. 



Experience other traditional and contemporary challenges from these winning authors: Mark Fetherston, Jeff Crow, Larry Lansberry, 
J.C. Jackson, Robert W. Mangum II, Robert Poppe, David Taylor, Gregory Clark, Steve Skrzyniarz, David L. Dawson, Curtis Boyle, 
Bruce K. Bell, Pat Pugliano, Pat and John Everest, Mike Fahy, Scott Settembre, Darin Anderson, Robert L. Thomas, Terrance Hale, Paul 
Hensel, Philip Courie, Michael Dennison and Robert Dickau. 



The Second Rainbow Book of Adventures sells for only $13.95! 

THREE BONUS PROGRAMS 

WHEN YOU BUY THE SECOND RAINBOW ADVENTURES TAPE! 

That's right. You'll receive a total of 27 fantastic Adventures when you get the Second Rainbow 
Adventures tape. The three bonus games are Castle Thuudo, by Carmen D. Michele; Halls of 
Dungeon Death, by Eric and Mark Riel; and Caves of Kalakh, by Jane Fisher — programs with 
listings too lengthy to include in the book. Save yourself hours of typing listings. Load these great 
Adventures into your computer and run them! 

The Second Rainbow Adventures Tape is only $13.95. 

The tape is an adjunct and complement to the book. Even if you buy the Second Rainbow 
Adventures Tape, you'll need the book for the introductory material and loading instructions. 

Keep your Rainbow Bookshelf up-to-date! 

See Page 126 for additional Rainbow Bookshelf offerings. 
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□ Please send me 
The Second Rainbow 
Book Of Adventures 
for $13.95" 



□ Please send me 
The Second Rainbow 
Adventures Tape 
for $13.95 



Name 




The Rainbow Bookshelf" 



Address 
City 



State 



ZIP 



□ My check in the amount of 



is enclosed.' 



Please charge to my: □ VISA □ MasterCard □ American Express 

Account Number Exp. Date 

Signature 

Mail to: The Second Rainbow Book ol Adventures, 
The Falsoft Building, P.O. Box 385, Prospect, KY 40059 

To order by phone, call: (502) 228-4492 

"Add $1.50 shipping and handling per book. Outside the U.S.. add $4. Allow 4-6 weeks for delivery. 
Kentucky residents add 5% sales tax for book and tape. In order to hold down costs, we do not bill 
U.S. currency only, please. 



WORKED. IT IS UNLOCKED" :P (11) =1 
ELSEPRINT"YOU CANNOT DO THAT" 

83 GOT04 

84 IFN=18ANDR=50THENIFP(11)=0THE 
NPRINT"IT IS ALREADY LOCKED"ELSE 
IFO(7)<150THENPRINT"YOU DO NOT H 
AVE THE KEY"ELSEPRINT l, OK":P(ll) = 
0ELSEPRINT"YOU CANNOT DO THAT" 

85 GOT04 

86 IFO(10)<150THENPRINT"YOU HAVE 
NO SHOVEL"ELSEIFR<>60THENPRINT" 

NO EFFECT"ELSEIFP(4)=1ANDP(5)=1T 
HENIFP(6)=1THENPRINT"Y0U MADE A 
HOLE IN THE CASKET WALL. THE L 
OOSE DIRT ALLOWED YOUTO DIG TO T 
HE SURFACE. ":R=71:GOSUB14ELSEPRI 
NT "THE SIDES ARE TOO HARD." 

87 GOT04 

88 IFO(9)<150THENPRINT"YOU HAVE 
NO DRILL"ELSEIFP(4)OlORP(5)<>10 
RR<>60THENPRINT"WHAT A NICE ROUN 
D HOLE YOU HAVE MADE"ELSEIFP(0) = 
2THENPRINT"A DRAFT OF AIR EXTING 
UISHES Y0URMATCH":P(6)=1ELSEPRIN 
T"TOO DARK" 

89 GOT04 

90 IFO(N)<>150THENPRINT"YOU DO N 
OT HAVE IT TO THROW"ELSEIFN<>150 
RROl34THENPRINT"GOOD THROW. " :GO 
T049ELSEPRINT"YOU HAVE APPARENTL 

Y HAD PRACTICETHE ROPE IS TIGHTL 

Y HOOKED ON THE BRANCH ABOVE." 
:P(8)=l:0(15)=134:P(3)=P(3)-l 

91 GOTO 4 

92 IFN<16ANDO (N) <150THENPRINT"YO 
U DO NOT HAVE THAT" :GOT04ELSEIFN 
>15AND0 (N) OR THENPRINT"THAT IS 
NOT HERE" '.GOTO 4 

93 IFN=1THENPM0DE2,1:PCLS5:PM0DE 
4,1: PRINT" IT IS A NOTE FROM GEOR 
GE RUBIX..A NERVOUS BUT FRIENDLY 

GUARD.": PRINT @0, "I KNOW YOU ARE 
INNOCENT AND HAVEA PLAN FOR YOU 
R ESCAPE. ";ELSE95 

94 PRINT" GET THE OXYGEN MASK FR 
OM THE INFIRMARY. THEN GO TO THE 

MORGUE AND HIDE IN AN OPEN CAS 
KET. YOU WILL BE BURIED BUT I W 
ILL COME DIG YOU UP. YOUR CELL 
DOOR IS UNLOCKED. PLEASE DESTROY 

THIS NOTE.":GOT04 

95 IFN=2THENPMODE2,1:PCLS0:PMODE 
4,1: PRINT"THE LIST SAYS . . . " : P=0 : 
FORK=lTOLEN ( V$ ) STEP3 : PRINT@P , MID 
$ ( V$ , K , 3 ) ; : P=P+4 : NEXT : GOT04 

96 IFN=16THENIFU=3THENPRINT"ETCH 
ED ON THE WINDOW IS . . . " : PRINT@10 
9 , "WARDEN" ; : GOT04ELSEPRINT" YOU A 
RE NOT FACING IT" 



97 IFN=12THENPRINT"IT SAYS... ME 
DICALERT. I WEAR CONTACT LENSE 
S . " , "GEORGE RUBIX"ELSEIFN=30THEN 
PRINT"IT SAYS... DANGER. HIGH VO 
LTAGE."ELSEPRINT"THERE IS NOTHIN 
G TO READ." 

98 GOT04 

99 IFAN$<>"GUN "ANDN03THENPRINT 
"YOU CAN ONLY SHOOT GUNS":GOT04E 
LSEIFO(3)O150THENPRINT"YOU HAVE 

NO GUN.":GOTO4ELSEIFP(1)=0THENP 
RINT"YOUR GUN IS EMPTY" :GOT04ELS 
EP(1)=0 

100 INPUT"AT WHAT ARE YOU AIMING 
" ;A$: IFA$="LOCK"ANDR=69THENIFU<> 
3THENPRINT"YOU ARE NOT FACING IT 
" : P ( 1) =1 : GOT04ELSEPRINT"THE PADL 
OCK FALLS TO THE FLOOR AND THE 
DOOR SWINGS OPEN":P(18)=l:D(69)= 
3:GOT014 

101 IFA$="SPIDER"THENPRINT"YOUR 
SHOT GREATLY ALARMED THE SPIDE 
R WHO INJECTED YOU WITH A DEADL 
Y POISON" :GOT0178 

102 PRINT "YOU SHOULD NOT PLAY WI 
TH GUNS": GOTO 4 

103 INPUT"ARE YOU SURE ";A$:A$=L 
EFT$ (A$ , 1) : IFA$="Y"THEN179ELSE4 

104 INPUT"SAVE TO DISK OR TAPE 
R ABORT ";A$:A$=LEFT$(A$,1) :IFA$ 
="A"THEN4ELSEIFA$="D"THENDN=1ELS 
EDN=-l:PRINT@448,"POSITION TAPE. 

PRESS PLAY=RECORDAND PRESS <ENT 
ER> . " ; : INPUTA$ 

105 PRINT@0 , "SAVING" ; : GOSUB187 

106 OPEN"0" , DN, "ZONEDATA" : PRINT# 
DN,R?0$(2) :PRINT#DN,MID$(N$,5,4) 
: FORK=0TO18 : PRINT#DN , P (K) ; : NEXT : 
FORK=1TO140:PRINT#DN,D(K) ;:NEXT: 
F0RK=1T037:PRINT#DN,0(K) ;:NEXT:C 
LOSE 

107 EXEC32211:GOT04 

108 IFAN$="GUN "ORN=3THENIFO (3) < 
150THENPRINT"YOU HAVE NO GUN": GO 
TO4ELSEIFO(4)<150THENPRINT"YOU H 
AVE NO AMMO":GOT04ELSEP(l)=l:PRI 
NT"CHAMBER IS LOADED" : GOT04 

109 INPUT"LOAD FROM DISK OR TAPE 
OR ABORT" ;A$:A$=LEFT$(A$,1) : IFA 

$="A"THEN4ELSEIFA$="D"THENDN=1EL 
SEDN=-1 : PRINT@448 , "POSITION TAPE 
. PRESS PLAY AND PRESS ENTER." 
; : INPUTA$ 

110 PRINT@0 , "LOADING" ; : GOSUB187 

111 OPEN" I " , DN , "ZONEDATA" : INPUT # 
DN, R, 0$ (2 ) , 0$ : FORK=0TO18 : INPUT#D 
N,P(K) :NEXT:FORK=1TO140:INPUT#DN 
,D(K) :NEXT:F0RK=1T037: INPUT #DN,0 
(K) :NEXT:CLOSE:MID$(N$,5,4)=0$ 
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The Ultimate 
Color Computer 

Enhancements 
for Productivity 
from HJL Products 




To achieve maximum productivity with 
your Color Computer, you have to make 
It as easy as possible to get Information 
Into and out of the system. 

This Is why we developed the HJL 
family of high-performance 
enhancements for ALL MODELS of the 
Color Computer. 

The Keyboard - $79.95 

The overwhelming favorite of serious 
Color Computer users worldwide, the 
HJL-57 keyboard has the smooth, 
consistent feel and reliability you need 
for maximum speed with minimum 
Input errors. Includes 4 Function Keys 
and sample function key program. 
Installs In just a few minutes with no 
soldering. 

The Numeric Keypad - $89.95 

The NumberJack is a self-contained, 
cable-connected keypad for heavy-duty 
number-crunchers. Besides the number 
keys, It has all the cursors, symbols 
and math keys, Including autoshlfted 
(one-touch) ADD and MULTIPLY. 
Comes complete with 3-foot cable and 
all necessary connectors for quick and 
easy installation without soldering. 



The Monitor Adapter - $25.95 

This universal driver works with all 
monochrome monitors, and is easily 
installed without clips, jumpers or 
soldering (except In some later CoCo 2s 
with soldered-in video chips). Here's 
crisp, clear, flicker-free monitor output 
with all the reliability you've come to 
expect from HJL Products. 

The Monitor ■ $89.95 

The GoldStar high-resolution amber 
monitor brings you the monochrome 
display that's preferred by most 
computer professionals today. Once 
you've used it you'll never connect your 
computer to a TV set again. The 12- 
inch diagonal CRT has an etched non- 
glare faceplate. (Requires adapter sold 
below) 

The BASIC Utility • $25.95 

Quick Basic Plus, a high-performance 
programming utility, can be used with 
any color computer that has four func- 
tion keys. 26 pre-defined BASIC 
statements, 10 user-defined macros at 
a time (you can save as many sets of 
macros as you like), automatic line- 
numbering, word wrap, global search, 



and instant screen dump to printer, 
make this software the BASIC pro- 
grammer's dream come true. Comes 
with re-legendable 3-way reference 
chart. Specify disk or cassette. 

The HJL Warranty 

Every HJL product comes with a full, 
one-year warranty and the exclusive 
HJL 15-day unconditional guarantee 
(except software). 

Pick a Pair & Save 15% 

Now, for a limited time, we'll give you 
15% off the price of any two or more 
products shown here. Just mention 
this ad when you order. 

Call Now, Toll Free 

1-800-828-6968 

In New York 1-800-462-4891 
International calls: 716-235-8358 




Ordering Information: Specify model (Original, F-verslon, or CoCo 2 Model Number). Payment by C.O.D., check, 
MasterCard, or Visa. Credit card customers Include complote card number and expiration date. Add S2.00 lor 
shipping, 3.50 to Canada; except monitors (call lor shipping charges belore ordering monitors). New York state 
residents add 7% sales tax. Dealer Inquiries Invited 



PRODUCTS 

Div. of Touchstone Technology Inc. 

955 Buffalo Road • P.O. Box 24954 
Rochester, New York 14624 



112 EXEC32211:GOT014 

113 ONRND(4)GOT0114,115,116,117 

114 PRINT" YOU ARE ON YOUR OWN.": 
GOT04 

115 PRINT"ARE YOU SURE YOU ARE C 
UT OUT FORTHIS." :GOT04 

116 PRINT "YOU ARE TRAVELING IN A 
DIFFERENTDIMENSION . " : GOT04 

117 PRINT"YOUR SOLUTION IS THE K 
EY TO THE IMAGINATION. ":GOT04 

118 X=0:PMODE2,1:PCLS5:PMODE4,1: 
PRINT@0,"YOU HAVE"; : F0RK=1T036 : I 
FO (K) >149THENPRINTTAB ( 11) 0$ (K) : X 
=1 

119 NEXT:IFX=0THENPRINTTAB(11) "N 
OTHING." 

120 G0T07 

121 IFO(N)<150THENPRINT"YOU DO N 
OT HAVE THAT":G0T04ELSEIFN<>11TH 
ENPRINT"YOU CANNOT TURN "AV$" TH 
AT":GOT04ELSEIFV=2 6THENIFO(ll)=2 
00THENPRINT"OK" : ( 11) =150ELSEPRI 
NT"ALREADY OFF" 

122 IFV=27THENIFO(11)=150THENPRI 
NT"OK" : ( 11) =200ELSEPRINT"ALREAD 

Y ON" 

123 G0T014 

124 IFN=21ANDR=52THENLINE(139,8) 
-(165,36) , PSET, BF: CIRCLE (152, 22) 
,3,5:0(22)=R ELSEPRINT"THAT HAD 
NO EFFECT" 

125 G0T04 

126 IFO(N)O150THENPRINT"YOU DO 
NOT HAVE THAT"ELSEIFN=1THENPRINT 
"GOOD IDEA. THEY WILL NEVER FIND 

THE "AN$" ON YOU.":0(l)=145ELSE 
PRINT"THAT COULD BE DANGEROUS. B 
ESIDESYOU ARE NOT EVEN HUNGRY." 

127 G0T014 

128 IFN=2 3ANDR=53THENPRINT"A DOO 
RWAY IS REVEALED! ":D(53) =9 :P(14) 
=0: GOTO 3 5 

129 PRINT"BE CAREFUL. YOU MIGHT 
HURT YOUR BIG T0E.":G0T04 

130 IFO(N)O150THENPRINT"YOU DO 
NOT HAVE IT":G0T04ELSEIFNO120RR 
<>13 1THEN13 2ELSEIF0 ( 14 ) =150THENP 
RINT"THE SPIDER WAS DISTRACTED B 

Y ITSSHINE LONG ENOUGH FOR YOU T 
CUTYOURSELF LOOSE AND ESCAPE": 
R=132 : ( 12 ) =-1 : P ( 3 ) =P ( 3 ) -1 : G0T01 
4 

131 PRINT"THE SPIDER WAS MOMENTA 
RILY DIS= TRACTED; BUT WITHOUT A 

KNIFE YOUCANNOT ESCAPE" : G0T0178 

132 PRINT" I WOULD NOT ADVISE THA 
T": GOTO 4 

133 P(2)=P(2)-l:PRINT"YOUR SCORE 
IS"P(2)" MOVES .": G0T04 



134 Q$=INKEY$ : IFQ$="^"THENY=Y-30 
ELSEIFQ$=CHR$ (10) THENY=Y+30ELSEI 
FQ$=CHR$(8)THENX=X-24ELSEIFQ$=CH 
R$(9)THENX=X+24ELSEIFQ$=CHR$(13) 
THENRETURN 

135 IFY<10THENY=10ELSEIFY>40THEN 
Y=40 

136 IFX<24THENX=24ELSEIFX>216THE 
NX=216 

137 POKE178,K:LINE(X,Y)-(X+4,Y+4 
) , PSET, BF : POKE178 , Z : LINE (X, Y) - (X 
+4,Y+4) ,PSET,BF:GOT0134 

138 IFX<1THEN188ELSEP0KE491,X:IF 
P ( 5 ) =1ANDR=60THENPMODE2 , 1 : PCLS0 : 
PM0DE4 , 1ELSEEXEC32714 

139 G0T016 

140 FORX=40TO220STEP180: CIRCLE (X 
,80) ,16,1,. 3,0, .5:CIRCLE(X,80) ,8 
,0, .3,0, .5:CIRCLE(X,64) ,16,0, .3, 
0, . 5: CIRCLE (X, 60) ,16,0, .3:PAINT( 
X,60) ,0,0:N=X-14:DRAW"BM=N;,80E2 
R2F2M-8 , -16NU4BR32NU4M-8 , +16E2R2 
F2":NEXT 

141 DRAW"C0BM128,90R5E5U32G5L5H5 
D32NF5BU4M-48 , -24D2M-4 , -2U26M+4 , 
+2ND24M+48,+20BR15M+45,-27D24NM- 
45 , +32D2M+4 , -2U25NM-4 , +2U2H2M-54 
, -14L2M-57 , +20G2D2BR16M+40 , +16R8 
M+38 , -22M-40 , -12L2M-44 , +16D2H2U2 
M+46,-17RM+42,+12D2G2" 

142 DRAW"BM0,60M+70,-20BR118BU8M 
+68, +6" :POKE178,1:PAINT(2,90) , ,0 
: PAINT (128, 30) , ,0 : POKE178 , 60 : PAI 
NT(100,50) , ,0: PAINT (150, 60) , ,0:P 
AINT(130,60) , ,0:POKE178,2:PAINT( 
40,70) , ,0:PAINT(220,70) , ,0:PAINT 
(130,55) , ,0: PAINT (2, 90) , ,0:POKE1 
78, 64: PAINT (2, 2) , ,0 

143 G0T016 

144 PMODEl,l:PCLS6:PMODE4,l:DRAW 
"BM0,85C0M+101,-2 5NU60M+155,+30" 
: IFO ( 12 ) =R THENCIRCLE ( 100 , 70 ) , 9 , 
5, .5 

145 G0T016 

146 DRAW"BM0,85C0M+100,-25NU60M+ 
136, +35" 

147 FORX=0TO100STEP8:LINE(X,85-X 
/4 ) - ( 100 , X* . 6 ) , PSET : LINE ( X+4 , 8 5 - 

(X+4)/4)-(0,85-(X+4)*.6) ,PSET:NE 
XT : FORX=0TO112STEP8 : LINE (0 , X* . 7) 
- (X* . 85 , ) , PSET : NEXT : FORX=20TO0S 
TEP-5 : LINE ( 100 , X+35 ) - (0 , X) , PSET : 
NEXT : FORX=0TO100STEP12 : LINE (X , ) 
-(100,35-.35*X) ,PSET:NEXT 

148 FORX=0TO9 6STEP8: LINE (100, .6* 
X)-(100+X,0) , PSET: LINE (X+ 100, 60+ 
X/4 ) - ( 100 , 60- . 6*X) , PSET : NEXT : FOR 
X=104TO13 6STEP8 : LINE (X+100 , 60+X/ 
4)-(X,0) , PSET: NEXT : F0RX=142TO155 
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STEP6 : LINE (X+100 , 9 5 ) - (X , fS ) , PSET : 
NEXT: FORX=160TO250STEP6: LINE (X,0 
)-(255,250-X) ,PSET:NEXT 

149 FORX=4TO60STEP6: LINE (X+100, 6 
0+X/4) -(198+X,0) , PSET: LINE (X+160 
,74+X/4) -(255, X) , PSET: NEXT: FORX= 
0TO24STEP6 : LINE (X+224 , 90+X/4) - (2 
55,62+X) ,PSET:NEXT:POKE178,2:PAI 
NT (128, 90), ,0:FORX=0TO6STEP3:POK 
E178 ,X/3 : LINE (30+X, 20+X) - ( 60-X, 4 
0-X) , PSET, BF: NEXT 

150 G0T016 

151 FORX=0TO2 55STEP2:DRAW"BM=X; , 
25C0U10U"+STR$(RND(15) )+"BM=X;,3 
5RU10U"+STR$(RND(15) )+"BM=X;,95R 
M+"+MID$(STR$(RND(3) ) , 2) +•• , -"+MI 
D$(STR$(RND(20)+25) ,2)+"BM=X; ,95 
RU10U"+STR$(RND(10) ) :NEXT 

152 POKE178,1:PAINT(2,50) , ,0:FOR 
X=1TO100:PRESET(RND(255) , RND (10) 
+25) :NEXT 

153 G0T016 

154 DRAW"BM0,75C0R255U50H20L10G1 
0L70M-100 , +30L45" : CIRCLE ( 180 , 65 ) 
,40,0,1,. 46, .05: PAINT (2, 2) ,0,0 :P 
OKE178,l:PAINT(2,70) , ,0:POKE178, 
2: PAINT (2, 90) , ,0 

155 FORX=1TO10: CIRCLE (40, 20) ,X,5 
: NEXT : FORX=1TO100 : PRESET (RND (255 
) ,RND(20)+75) : PSET (RND (255) ,RND( 
75) ,5) : NEXT: PAINT (180, 65) ,0,0:PA 
INT(2,70),0,0 

156 DRAW"BM0,75C0R255": CIRCLE (18 
0,65) ,40,0,1, .46, .05:GOTO16 

157 DRAW"BM0,65C0M+73,-10E2R2U2E 
2R2U2E2R2U2E44R4F44F2R2D2F2R2D2F 
2R2D2M255 , 75" : CIRCLE ( 128 , 75) , 60 , 
0, .2 : CIRCLE (128,78) , 60 ,0 , . 2 , . 5, 1 
:POKE178,2:PAINT(128,90) , ,0 

158 P0KE178,1: PAINT (128, 75) , ,0:P 
AINT(2,2) ,0,0:PAINT(250,2) ,0,0:P 
M0DE3 , 1 : FORK=0TO7 : D=8*K+4 : X=12 6- 
K*8:Y=13 6+K*8:DRAW"BM=X;,0C6D=D; 
BM=Y ; , 0D=D ; " : NEXT : DRAW"BM+20 , +4U 
65BR30D74BM-224,-12U70BR30D60":P 
M0DE4 , 1 

159 G0T016 

160 PMODE2,1:PCLS0:PMODE4,1:DRAW 
"BM128 , 48C5NU48NE48NR96NF48ND48N 
G4 8NL9 6NH4 8 " : FORK=0TO4 8STEP8 : Y=4 
8-K : DRAW" BM12 8 , =K ; R=Y ; F=Y ; G=Y ; L= 
Y ; L= Y ; H=Y ; E= Y ; R= Y ; " : NEXT 

161 G0T016 

162 PMODE2,1:PCLS0:PMODE4,1:GOTO 
16 

163 DRAW"BM128,70C0M-50,-30M+16, 
-6F3 6U40NM-3 6 , +4M+3 6 , +4G3 6M+50 , - 
30NH10M-16 , -6H12NM+18 , +8M-22 , -2N 
D10M-22 , +2NG12M-20 , +8G10" : P0KE17 



8,1:PAINT(2,2) , ,0:PMODE4,1 

164 G0T016 

165 PRINT@37,1;TAB(69)2;TAB(70) " 
B" ; : FORK=18T06 6STEP2 4 : CIRCLE ( 50 , 
K) ,10,0:NEXT:PRINT@266,R$(R(R) ) : 
PRINT§298 , STRING$ ( 10 , 32 ) : PRINT© 2 
98,"";:IFR=31THENPRINT"N"ELSEPRI 
NT"E" 

166 PRINT@416, "WHICH FLOOR <1;2; 
B>";:INPUTA$:IFA$="2"THENPRINT"A 

HOST OF GUARDS AWAITS YOU.": GOT 
0178ELSEIFA$="1"THENIFR=32THENR= 
31:PRINT"UP WE GO. . . "ELSEPRINT"Y 
OU WERE ON THE FIRST FLOOR" 

167 IFA$="B"THENIFR=31THENR=32:P 
RINT"DOWN WE GO. . . "ELSEPRINT"YOU 

WERE ALREADY IN THE BASEMENT" 

168 GOT04 

169 H=0:PMODE2,1:PCLS0:PMODE3,1: 
DRAW"BM0,95C6R255BM5,90U50E40R16 
5F40D50L245" : PAINT ( 2 , 2 ) , 6 , 6 : X=12 
8:Y=8 6 

170 PRINT@266,R$(R(R) ) 

171 PRINT@416,"YOU HAVE ENTERED 
THE LASER OB= STACLE COURSE. YO 
U MUST TRAVERSETHIS DANGEROUS CO 
URSE . " : FORK=1TO2000 : NEXT : PRINT§4 
16, "USE THE 4 ARROW KEYS TO GET 
THE WHITE CURSOR TO THE TOP OF T 
HE SCREEN. PRESS <ENTER>" ; : INPU 
TA$ 

172 A=RND(165)+45:B=RND(165)+45 

173 A$=INKEY$:IFA$=CHR$(8)THENX= 
X-2ELSEIFA$=CHR$ ( 9 ) THENX=X+2ELSE 
IFA$=CHR$ ( 10 ) THENY=Y+2ELSEIFA$=C 
HR$(94)THENY=Y-2 

174 IFY<4THENPRINT@416,STRING$(6 
4,32)" CONGRATULATIONS ; YOU MADE 
IT" :R=22 : GOT014ELSEIFPPOINT (X, Y) 
<>5THEN172ELSEPSET(X,Y,8) :DRAW"B 
M=A ; , 0C7D=Y ; BM=B ; , 0D=Y ; " : PRESET ( 
X Y) 

17 5 DRAW" BM=A ; , 0C5D=Y ; BM=B ; , 0D=Y 
;":IFA=X THEN177 

176 GOT0172 

177 H=H+1 : IFH=1THENPRINT§224 , "WO 
UNDED" : GOT0172ELSEIFH=2THENPRINT 
@224, "FATALLY WOUNDED" :GOT017 8 

178 F0RK=1T05:PLAYT$:NEXT 

179 PCLS5:POKE491,10:EXEC32714:P 
RINT@288,"FOR YOU THIS ADVENTURE 

IS OVER.", ,, : INPUT" CARE TO PLAY 
AGAIN" ; A$ : IFLEFT$ (A$ , 1) ="N"THEN 
POKE113,0:EXEC40999ELSE2 

180 PMODE2,3:PCLS5:PMODE4,l:PRIN 
T@256,"THE JEWEL BRINGS ONLY DOO 
M TO THOSE WHO POSSESS IT. GEO 
RGE IS TRAPPED FOR ETERNITY IN T 
HE POOL" : F0RK=1T05 : PLAYT$ : NEXT 
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XTERM 



1 Menu orienled 

1 Upload/download Ascii 

or XMODEM protocol 
1 Execute OS-9 commands 

from within XTERM 



OS-9 Communications program. 

• Definable macro keys 

• Works with standard serial port. RS232 
PAK. or PBJ 2SP Pack. Includes all drivers 

• Works with standard screen XSCREEN. or 
WORDPAK 80 column board 



$49.95 



with source S89.95 



XMENU 

Creates a menu driven environment lor OS-9. 
• Create your own menus • Works with standard screen, 

ff XSCREEN. WORDPAK, O-PAK 

$29.95 with source $59.95 



OS-9 hi-res screen 
51/64/85 chars per line • Easy menu operation 

$ I 9.95 with source S39.95 



XDIR & XCAL 



Hierarchial directory 

• Full sorting 

• Complete pattern matching 

$24.95 with source S49.95 



OS-9 calculator 

• Decimal. Hex, Binary 

• +, — . \ /, AND, OR. XOR, NOT 



OS-9 disassembler 

$34.95 



XWORD 



OS-9 word processing system. 

• Works with standard text screen, XSCREEN, WORDPAK, or O-PAK 

• True character orienled lull screen editing 

• Full block commands 

• Find and Replace commands 

• Execute OS-9 commands Irom within 

• Proportional spacing supported 

• Full printer control, character size, emphasized, italics, overstnke, underline, 
super/sub-scripts 

• 10 header/footers 

• Page numbering in decimal or Roman numerals 

• Margins and headers can be set different lor even and odd pages 



$69.95 



with source $124.95 



Mail merge capabilities lor XWORD 
$24.95 with source $49.95 



OS-9 spelling checker, with 20000 and 40000 word dictionaries 

$39.95 
XTRIO 

XWORD/XMERGE/XSPELL 
$11 4.95 with XWORD/XMERGE source $199.95 



OS-9 lull screen editor 
$39.95 with source $79.95 



AND FOR RS DOS 



SMALL BUSINESS ACCOUNTING This 
sales-based accounting package is designed lor 
Ihe non-accountmg oriented businessman It also 
contains the flexibility for the accounting oriented 
user to set up a double entry journal with an almost 
unlimited chart ol accounts. Includes Sales Entry, 
transaction driven Accounts Receivable and Ac- 
counts Payable, Journal Entry, Payroll Disburse- 
ment, and Record Maintenance programs. System 
outputs include Balance Sheet. Income Statement, 
Customer and Vendor status Reports, Accounts 
Receivable and Payable Aging Reports, Check 
Register. Sales Reports. Account Status Lists, and 
a Journal Posting List. $79.95 



ACCOUNTS RECEIVABLE Includes detail 
ed audit trails and history reports for each customer, 
prepares invoices and monthly statements, mailing 
labels, aging lists, and an alphabetized customer 
listing The user can delme net terms lor commer- 
cial accounts or finance charges for revolving 
accounts. This package functions as a standalone 
A/R system or integrates with the Small Business 
Accounting package. $59.95 



These programs are user friendly and menu 
driven. Sample transactions are included. Each 
package features a hi-res screen. Each requires 
a printer, a minimum of 32k and at least I disk 
drive. 



PAYROLL Designed for maintaining personnel 
and payroll data for up lo 200 hourly and salaried 
employees with 8 deductions each. Calculates 
payroll and lax amounts, prints checks and main- 
tains year-to-date totals which can be automatical- 
ly transferred to the SBA package. Computes each 
pay period's totals for straight time, overtime and 
bonus pay and determines taxes to be withheld. 
Additional outputs include mailing list, listing of 
employees, year-to-date federal and/or state tax 
listing, and a listing of current misc. deductions. 
Suited for use in all states except Oklahoma and 
Delaware. $59.95 



DMS Database Management System Search, 
sort, calculated fields, disk and tape inter- 
faces. $24.95 



CBK Complete check register with statement 
balancing. Includes full amortization program and 
wage analysis program $24.95 



AUT085 Hi-res screen. 51/64/85 characters 
per line, inverse characters, automatic line 
numbering. $19.95 



MICROTECH 
CONSULTANTS 

1^1 /*> 1906 Jerrold Avenue 
■ Ww.St. Paul, WIN 55112 
Dealer Inquiries Invited 
. OS-9 is a trademark of Microware 



Ordering Information 

Add $3.00 shipping & handling. MN residents add 6% sales tax 
Visa, Mastercard, COD (add $2.50), personal checks. 



€6 1 SO 633-6 161 



181 PRINT" YOU NOW RETURN TO CIVI 
LIZATION WITH THE CASKET NOTE P 
ROVING YOUR INNOCENCE" : FORK=l 
T05:PLAYT$:NEXT 

182 PMODE2,3:PCLS5:PMODE4,l:PRIN 
T@ 2 5 6, "GEORGE WAS NEVER FOUND. I 
T WAS ASSUMED HE ESCAPED TO SOU 
TH" , "AMERICA. " : F0RK=1T05 : PLAYT$ : 
NEXT 

18 3 PRINT: PRINT "BUT YOU KNOW GEO 
RGE HAS ESCAPED TO A PLACE BEYON 
D SPACE AND", "TIME. A PLACE KNOW 
N AS THE. . .":F0RK=1T05:PLAYT$:NE 
XT 

184 PCLS5:POKE491,10:EXEC32714:P 
RINT@288,"YOU HAVE WON THE ADVEN 
TURE","IN"P(2) "MOVES": PRINT : PRIN 
T"CARE TO PLAY AGAIN?" 

185 A=RND(235)+10:B=RND(25)+10:F 
ORK=5TO0STEP-5 : FORX=1TO10 : DRAW'B 
M=A ; , =B ; C=K ; NU=X ; NE=X ; NR=X ; NF=X ; 
ND=X ; NG=X ; NL=X ; NH=X ; " : NEXTX , K 

186 A$=INKEY$ : IFA$="Y"THEN2ELSEI 
FA$="N"THENPOKE113,0:EXEC40999EL 
SE185 

187 POKE360, PEEK (492) :POKE361,PE 
EK(493) :POKE363,PEEK(494) :POKE36 
4, PEEK (495) : POKE322 11 , 48 : RETURN: 
'get initial ram hooks 

188 FORK=0TO3:Z=84-12*K:FORW=2TO 
0STEP-1 : ONW+1GOSUB189 , 192 , 195 : NE 
XTW,K:GOT016 

189 IF(D(R+K*C)ANDW(0) )<>W(0)THE 
NX=223:GOSUB197:X=192-64*K:DRAW" 
BD6L=X ; D=Z ; R=X ;U=Z ; " : K=4 

190 RETURN 

191 'right walls 

192 X=254:GOSUB197:IF(D(R+K*C)AN 
DW(1) )=W(1)THENDRAW"BD6L3 2D=Z;R3 
2"ELSEDRAW"M-32,+6;D=Z;M+32 / +6" 

193 RETURN 

194 'left walls 

195 X=0:GOSUB197:IF(D(R+K*C)ANDW 
( 2 ) ) =W ( 2 ) THENDRAW" BD6R3 2 D=Z ; L3 2 " 
ELSEDRAW"M+32,+6;D=Z;M-32,+6" 

196 RETURN 

197 DRAW"BM"+STR$ (ABS (X-32*K) ) +" 
, "+STR$ ( 6*K) : RETURN 

198 ' 

199 FORK=0TO24:READR$(K) :NEXT:DA 
TAA JAIL CELL, A HALL, AN EMPTY RO 
OM, ARSENAL, STORAGE ROOM, INFIRMAR 
Y,WARDEN'S OFFICE, SHOP, KITCHEN, I 
SOLATION WARD, MORGUE, FIELD, RIVER 

BANK, SAUNA ROOM, HOT TUB, A LONEL 
Y ROAD 

200 DATA CAVE OPENING, TUNNEL, PIT 
, CLEARING, A CAVERN, WEB, POOL, E LEV 
ATOR, LASER TEST ROOM 



201 FORK=0TO140:READD(K) ,R(K) :NE 
XT:DATA2, ,2,, 3, 1,3, 1,3, 1,7, 1,3,1 
,3,1,7,1,3,1,0,0,2,1,7,1,7,1,1,1 
,14,1,3,1,2,1,14,1,3,1,5,1,2,24, 
11,1,11,1,1,8,14,1,3,1,5,1,10,1, 
1,3,12,1 

202 DATA8, 23, 2, 23, 3, 1,3, 1,15, 1,1 
,4,10,1,3,1,3,1,9,1,6,1,3,1,7,1, 
7,1,11,1,3,1,7,1,3,1,7,1,1,5,8,1 
,2,6,8,2,12,1,2,2,3,1,15,1,1,2,1 
0,1,1,10,2,2,3,1,3,1,9,1,2,7,3,1 
,11,1,3,1,1,1,1,9 

203 DATA6,11,7,11,7,15,7,11,7,11 
,7,11,7,11,1,12,7,11,5,11,14,11, 
15,11,15,15,15,11,15,11,15,11,15 
,11,1,12,15,11,13,11,10,11,11,11 
,11,15,11,15,11,15,11,15,11,11,1 
,12,15,11,13,11,2,17,3,17,3,17,7 
, 17 , 7 , 17 , 3 , 16 , 3 , 15 , 3 , 15 , 11 , 15 , 13 
,13 

204 DATA, 14, 2, 17, 7, 17 ,15, 17, 13,1 
7,6,17,5,17,6,17,1,20,12,15,6,17 
, 3 , 17 , 11 , 17 , 11 , 17 , 9 , 17 , 10 , 17 , 13 , 
17,12,17, ,22,12,15, ,21,2,17,2,17 
, , 18 , 3 , 17 , 9 , 17 , 10 , 17 , 11 , 17 , 1 , 17 , 
8,19 

205 F0RK=1T037:READ0$(K) ,0(K) :NE 
XT 

206 DATANOTE,l,PAPER,7,RIFLE,-l, 
AMMO , -1 , MASK, -1 , BOTTLE , -1 , KEY , -1 
, MATCHES , 24 , DRILL, -1 , SHOVEL, -1 , F 
LASHLIGHT , 100 , BRACELET , 111 , CONTA 
CT, 106, KNIFE, 112, ROPE, 123 

207 DATAWINDOW,9,GUNCASE,2 9,CABI 
NET , 50 , BOX , -1 , DOOR , 9 , PICTURE ,52, 
SAFE , -1 , PANEL, 53 , CASKET, 60 , TOOLS 
,65, RIVER, 78, HOT TUB, 110 , GAS , -1, 
LINK FENCE, 140, SIGN, -1, SPIDER, 13 
1 , WEB ,131, PIT ,134, POOL, 119 , BLOOD 
, 135 , CUPBOARDS ,36, JEWEL, 129 

208 V$="LOOEXAGETTAKSTRPUTDROOPE 
JUMSWICLOGO CLIUNLLOCDIGDRITHRRE 
ASHOQUISAVLOAHELINVOFFON MOVEATK 
ICGIVSCO" 

209 N$="NOTEPAPERIFLAMMOMASKBOTT 
KEY MATCDRILSHOVFLASBRACCONTKNIF 
ROPEWINDGUNCCABIBOX DOORPICTSAFE 
PANECASKTOOLRIVETUB GAS FENCSIGN 
SPIDWEB PIT POOLBLOOCUPBJEWE" 

210 V(1)=8:V(2)=4:V(3)=2:V(4)=1: 
S$="ARSSTOINFMORWARSHOKITFIEA LS 
AUHOTCLERIVCAVA CWEBPITPOOELELAS 
" : K=RND ( -TIMER) : FORK=15T017 : P (K) 
=RND(35) :NEXT 

211 PMODE4 , 1 : COLOR0 , 5 : SCREEN1 , 1 : 
T$="T5L804GP8G#P8GP8EP8":F0RK=1T 
06 : PLAYT$ : NEXT : P ( 10 ) =RND ( 9 ) *2 4 : P 
( 14 ) =2 : PCLS5 : CLS : R=2 : A$="W" : GOTO 
8 /^ 
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s Battle the 
st of Disk Drives 




New Lower Price 

Un-DISK Drives $49*95? 

$34.95 

You Bel! There are emply spaces in your 32K 
and 64K CoCo. The Preble VDOS Un-DISK 
helps you (ill Ihem up with PROGRAMS! 



Un-DISK uses your computer's extra 
memory like a fast disk drive. 

Un-DISK can store BASIC and MACHINE 
LANGUAGE programs. 

Un-DISK is INVISIBLE. Yup! Un-DISK 
does not interfere with normal Color Com- 
puter Operation. 

Un-DISK appears only when you type the 
magic word VDOS. 

Un-DISK comes with comprehensive in- 
structions which you may not need be- 
cause: 

Un-DISK is self-prompting and easy lo 
use! 

Un-DISK is provided on cassette. 

Un-DISK is faster than a slow clumsy 
DISK DRIVE and best of all . . . 

Un-DISK is CHEAPER than a DISK DRIVE! 

Un-DISK will work even if you already own 
a disk but WHY BUY A DISK AT ALL - ? 

Un-DISK should be in the library of every 
serious CoCo user even if you own a disk 
says Frank J. Esser, independent reviewer 
for rainbow Magazine! 



OK sure, disk drives ARE NICE I own one. 
But if your finances are limited, the Un-DISK 
can give you much of the power of the 
mechanical drive. Even if you already own a 
disk the Un-DISK can work like a super fast 
extra disk. 

EXTRA. . .EXTRA. . .EXTRA. ..EXTRA. . . 
Additional Power For S14.95 

Only with VDUMP for the Un-DISK! 

• VDUMP lets you make a cassette backup 
copy of everything stored in the Un-DISK 

• VDUMP lets you save 5, 10, 15 or more 
programs on a single cassette tape file. 

• VDUMP lets you switch Un-DISKs. Wilh a 
single load operation replace a group of 
financial programs with a sel of children's 
programs. (The new VDUMP tape over- 
writes the old.) 

• VDUMP can allow you to save a whole lot 
of rainbow on tape in a SINGLE file. 



The Preble VDOS Un-DISK $34.95 

The Preble VDUMP S14.95 

Shipping & handling 

U.S. and Canada S1 50 

or $5.00 to other foreign points 

VISA and MasterCard accepted 



%L& 




VDUMP is the perfect companion 
Preble VDOS Un-DISK. 



lo the 



Available from Doctor Preble's Programs, 
naturally! Bringing you fine Color Computer 
Products Since 1983! 



Order From: 

Dr. Preble's Programs 

6540 Outer Loop 

Louisville, KY 40228 

(502) 966-8281 

Canadians may order from Kelly Software 
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You must solve the secret of this 
mysterious maze to save the people of 
your village ... J 



program bg ©ipmww JL ^tl*g 



Muhra, leader of the Catella Village, you and 
your entire family have been captured and taken prisoner 
by the vile Doghedra and his barbaric warriors. 
Knowing you as peaceful people who never carry defense 
weapons, the capture was harmless. But, the intentions were 
not, for Doghedra has planned your imprisonment to help his 

viilagi prosper. And, if the scheme 
works, he will reign supreme. 
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Since the people of your village are 
extremely agricultural, and Doghedra's 
are not, his first demand is for your 
people to grow sufficient grain and 
produce to feed his pernicious tribe 
through the winter. Second, the first- 
born daughters from each family of 
your village must be brought to his 
camp to become subservient wives for 
his warriors. Finally, 20 of your strong- 
est men will have to go to work in 
Doghedra's mines, and for each man 
that dies, one will be chosen to replace 
him. If all demands are met, you and 
your family will be freed. If not, all of 
you will encounter a torturous death. 

Your family, although distressed, 
knows since you are a proud represen- 
tative of your village, that Doghedra's 
demands will never be met. But, they do 
not know that you are only one of a few 
who remembers the long-forgotten 
custom of these warriors. Fortunately, 
Doghedra is another who knows that a 



Thomas Riley is an auditor for the stale 
of New York. His main interests in 
software are business applications and 
games. Developing educational soft- 
ware for his son is his next goal. 



condemned man is permitted to request 
a challenge. To honor the custom, your 
plea is granted. 

Of course, the request does not dis- 
turb the fearless leader; if you survive 
the challenge he has in mind you will 
make him the richest and most powerful 
leader of the land, for you are to enter 
the maze of Moycullen to recover the 
treasure within. 

The maze was built generations ago 
by a powerful race of people to safe- 
guard their riches. But, the entire race 
was annihilated during war, leaving no 
one to pass on the secret of the maze. 

Doghedra has you just where he 
wants you. Since hundreds of his 
strongest warriors were never seen 
again after entering the maze, he knows 
whatever happens, satisfaction will be 
his reward. However, surviving the 
maze and recovering the treasure is the 
only way to save your family. 

Loading and Playing Instructions 

The Maze of Moycullen is a text 
Adventure that runs on a 16K Color 
Computer by entering PDKE25,G:NEW 
before loading. The command is needed 
to clear sufficient memory for the 
program. 



Traveling through the maze and 
performing the necessary task is simpli- 
fied with the use of one-letter direc- 
tional commands, as well as verb and 
noun responses. For example, enter 'N' 
to GO NORTH, or T' for TAKE, then 
l A' for APPLE to take the apple when 
prompted with TAKE WHAT? 

A bird's-eye view of each room is 
graphically displayed in the upper left 
corner of the screen. In all the rooms, 
the floor is shown in black, while the 
walls are depicted in blue and buff. By 
viewing the graphics display, an avail- 
able exit can easily be chosen. 

All valid verbs are displayed in the 
upper right section of the screen as are 
the items in the player's possession. The 
bottom half of the screen prints the 
activities of the occupied room, any 
objects within the room and in the 
player's possession, and prompts the 
player for the one-letter commands. 

(Any questions regarding The Maze 
of Moycullen may be directed to Mr. 
Riley at RD #1, Box 144FI, Johnson- 
ville, NY 12094. Please include an 
SASE when writing for a reply.) □ 

— Jutta Kapfhammer and Philip Helm 
A dventure Contest Judges 
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16K users, before loading: PDKE25,S:NEW 
The listing: MOYCULEN 

1 CLS: PRINT§108, "THE MAZE" : PRINT 
@170,"OF MOYCULLEN" : PRINT@2 3 4, "B 
Y TOM RILEY" 

2 TD$=CHR$(128) : FOR Y=331T0338:P 
RINT@Y , TD$ ; : NEXTY : PRINT§3 40 , TD$ ; 
:PRINT§3 65,TD$; : PRINT@3 69 , TD$ ; :P 
RINTQ372 , TD$ : PRINT@395 , TD$ ; : PRIN 
T@3 97 , TD$ ; : PRINT@399 , TD$ ; : PRINT@ 
401,TD$;:PRINT@403,TD$;TD$ 

3 PRINT@427,TD$; : PRINT@431,TD$ ; : 
PRINT@43 6,TD$; : FOR Y=459 TO 468: 



PRINT@ Y , TD$ ; : NEXTY 

4 PLAY"03L8CDL4.EL8DL4CCDC02L2AL 
4GL2EL4GAL16AGA03CL2DL8CDL2EL4DL 
2CL4EL202A03L4C02L2GL403CL202EL4 
DL2C03L4C02L2G03L4C02L2E03L8C02B 
03L2C02L4B03L2 . CL2C" 

5 READ D:PRINT@D,"*";:PLAY"L4B": 
PRINT@D," ";:IF D=3 3 9THENGOTO10E 
LSEGOT05 

7 DATA363, 364, 396, 428, 429,43)3,39 
8, 3 66, 3 67, 3 68, 400, 432, 433, 434, 40 
2,370,371,339 

10 CLS : GOSUB50000 : PRINT@7 , "N" ; : P 
RINT§97 , "W" ; : PRINT§109 , "E" ; : PRIN 
T§231,"S"; :PRINT§258,"I SEE"; 
100 GG=0:BB=0:JJ=0:RR=0:AA=0:OO= 
0:MM=0:FF=0:UU=0:NS$=" NOTHING SP 
ECIAL":IM$="NOT A VALID MOVE":W$ 
=CHR$(175) :P$=CHR$(207) :YC$="YOU 

CAN'T TAKE THAT" : YK$=" YOU CAN'T 

KILL THAT" 
1100 GOSUB50800 
1102 GOSUB50500 
1104 GOSUB50200 
1106 GOSUB50300 
1108 GOSUB50900 
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1110 PRINT@290,NS$:GOSUB60000 


OTO1204 


112)3 IF Z$="N"THENGOTO2100ELSEIF 


1300 GOSUB50800 


Z$="E"THENGOTO1200ELSEPRINT@353 


1302 GOSUB50100 


, IM$ : PLAY " L4 AB" : PRINT@ 3 52 , " " : GO 


1304 GOSUB50900 


TO1110 


1306 GOSUB50200 


1200 GOSUB50700 


1310 PRINT@290,NS$:GOSUB60000 


1202 GOSUB60100 


1320 IF Z$="E"THENGOTO1400ELSEIF 


1204 GOSUB50900 


Z$="W"THENGOTO1200ELSEPRINT@353 


1206 GOSUB50200 


, IM$ : PLAY"L4AB" : PRINT@353 , " " : GO 


1210 IF FF=0THENPRINT@2 90,"FLAMI 


TO 1310 


NG TORCH"ELSEPRINT@290,NS$ 


1400 GOSUB50500 


1215 GOSUB60000 


1402 GOSUB50700 


1220 IF Z$="N"THENGOTO2200ELSEIF 


1404 GOSUB50200 


Z$="E"THENGOTO1300ELSEIF Z$="W" 


1406 GOSUB50400 


THENGOTO1100 


1408 GOSUB50900 


1230 IF Z$="T"ANDFF=0THENPRINT@3 


1410 IF UU=0THENPRINT§290,"UGLY 


53 , "TAKE" : PRINT@385 , "what" ; : GOTO 


CYCLOPS"ELSEPRINT@290, "DEAD CYCL 


1250ELSEIF Z$="T"THENPRINT@353 , " 


OPS" 


THERE IS NOTHING TO TAKE ": PLAY " L 


1415 GOSUB60000 


4AB":PRINT@353," ":GOTO1210 


1420 IF Z$="N"ANDUU=1THENGOTO2 40 


1240 PRINT@353 , IM$ : PLAY"L4AB" : PR 


0ELSEIF Z$="N"THENGOTO1450 


INT§353," ":GOTO1210 


1425 IF Z$="W"ANDUU=1THENGOTO130 


1250 GOSUB60010 


0ELSEIF Z$="W"THENGOTO1450 


1260 IF Z$="F"THENPRINT@385,"FLA 


1430 IF Z$="K"ANDUU=0THENGOTO146 


MING TORCH" :PRINT@417, "FLAMING T 


0ELSEIF Z$="K"THENPRINT@353 , "SHE 


ORCH TAKEN" : FF=1 : PLAY"L4CD" : GOTO 


IS ALREADY DEAD" : PLAY" L4AB" : PRI 


1270ELSEPRINT@385 , YC$ : PLAY"L4AB" 


NT@353," ":GOTO1410 


1270 PRINT© 3 53," ": PRINT: PRINT: G 


1440 PRINT@353 , IM$ : PLAY"L4AB" : PR 




Authorized Star Micronics Service Center * Call (or return authorization number. 

THE WAITING IS OVER! 

THE SUPER COSMOS CONNECTION 

SERIAL TO PARALLEL CONVERTER WITH BUFFER! 

YOU JUST CANT BUY A BETTER 
SERIAL/PARALLEL CONVERTER! 

ORDER YOURS TODAY 
- 8K SUPER COSMOS CONNECTION 

ONLY $129.95 — 

8K RAM CHIP SOLD SEPARATELY - $15.95 each 
3 FOR $42.95 
16K VERSION -$144.95 
24K VERSION -$154.95 
32K VERSION - $169.95 



• SERIAL TO PARALLEL CONVERSION 

• 110 TO 19,200 BAUD, 7 OR 8 BIT 

• 8K BYTES STANDARD BUFFER 
(USER EXPANDABLE TO 32K IN 8K STEPS) 

• COPY /CLEAR, LED PUSH BUTTON (MULTIPLE COPIES) 

• MODEM SWITCH AND ALL CABLES 

• COMPLETE WITH POWER PAK AND SIMPLE INSTRUCTIONS 

• WORKS WITH ANY PARALLEL PRINTER OR YOUR MONEY BACK 

• HIGHEST QUALITY CONSTRUCTION, TWO-YEAR WARRANTY 

IF YOU'D RATHER BE USING YOUR COMPUTER THAN WAITING 
FOR YOUR PRINTER THE WAIT IS OVER. 



TEST RESULTS: (19,056 BYTE PROGRAM 
LISTING AT 9600 BAUD.) 



32K SUPER COS-CON 

36.8 Seconds 



OTHER INTERFACE 

4min. 59.8 sec. 



m 



8K SUPER COSMOS CONNECTION 

AND STAR SG-10 PRINTER 

$379.00 Package S&H Included! 



NO SURCHARGE FOR 
CREDIT CARDS 



Reviewed in Dec. 1985 Rainbow 
Shipping Included! 



Dealer Inquiries on Company Letterhead invited. 
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Move your Co Co into the "big leagues " with 
£tite Sojtivat* and PBJ Word Pak II 

FULL 80 COLUMN CAPABILITY 



No Tools— Everything plugs together 



■•'ELITE SOFTUURE t PBJ UORJ-PS' 

|*t last... sou can give tOLR Color Ctwuttr a full 90 cna-ecler •__,. 
dlwlaj, (WO have powerful softuare that's easy to 'ae. Elite Soflmre an) 
the PBJ iera-f». . . truly a uiming ccttinetion. 

II'i easy,,, all scu ml for an 80 toliwi display la *n>"» II, a "'" Cable 
(for dirt users), and a ronitor. Everything pluss together. 10 hantajrt 
•edifications are needed. 

IxaJim uainj tht pilar of a projra» lit* Elilf*ord uilli an 90 eoliati 
J practically displays ycur final dooavnt. Just looV 
... you see Right-Side text justification. Pag* Hacenrg. 
Bottoa Page Hargln. Page Br**, Top Hergin, and «uto-Um Cantering. 
Elite**rd/PBJ can display even wre' ElllnSel.'PBJ will find your spelling 



•nd Just la* at Ellt*«Celc/P»J ulth en 90 mlian 



Elite»Word/PBJ' 



Disk or Tape) 80 column display 
$79.95 





• 


No Hardware modifications 
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Elite»Calc/3.0/PBJ" (Disk only) 80 column display 
S79.95 



Elite«Spel/PBJ - (Disk only) 80 column display 
S49.95. Only S 20.00 when purchased with 
Elite«Word/PBJ. Elile-File/PBJ- (Disk only) 
80 column display S79.95. Elite»Comm/PBJ - 
(Tape or Disk) 80 column display $49.95. 



Hardware required: 
WORD-PAK-RS 

Our Price S89.95 
$3.00 Shipping/Handling 
"Y" Cable Connector $25.00 



Disk Manager/PBJ . . . Lets you move files from 
one disk to another. Also, purge files or move them 
to tape. Works with one or more disk drives. List 
$39.95. 

hot available thru Radio Shack. 



SPECIAL OFFER — For a limited time, you can buy 
our widely popular Elite*Calc/3.0 at a reduced price 
and get the powerful Calc-List utility ABSOLUTELY 
FREE. Order Elite*Calc/3.0 (Tape or Disk) at $59.95 
plus $3.00 shipping, and we'll include the companion 
Calc-List program ABSOLUTELY FREE. Hurry, this 
offer positively expires April 18, 1986. ACT NOW. 
ORDER TODAY! 



£/ke Saturate 



This offer not available 
thru Radio Shack 



201 Penn Center Blvd., Suite 301, •Pittsburgh, PA 15235 • (41 2)795-8492 



£lite Software 



WELL RESPECTED 



HIGHLY ACCLAIMED 



Elite»Word is a terrific word processor with an im- 
pressive list of features, yet it's easy to learn and use. 
-Stuart Hawkinson, HOT COCO 



I like Elite* File . . . it's power and speed have to be 
seen to be appreciated. 

-Ed Lowe, RAINBOW 



Bruce Cook's Elite»Calc is, . . . potentially one of the 
great Color Computer programs. ... is the easiest to 
use and most intuitive of the major CoCo speadsheet 
calculators." 

-Scott Norman, HOT COCO 



WORD PROCESSOR 

Elite»Word is highly respected for its powerful 
features AND excellent ease-of-use. Don't compro- 
mise one for the other . . . Elite«Word is ready to do 
your letters and reports. 32K req. 

Elite* Word (Disk) -Radio Shack "90-0184 S69.95 

Elite«Word(Tape)-RadioShack«90-OI83 S69.95 

Elite* Word /OS-9- Radio Shack "90-0 1 86 S79.95 

Elite" Word / PBJ" (Disk or Tape) 80 column display S79.95 



SPELLING CHECKER 



Ellte«Spel checks your text against its powerful 
24,000 word dictionary, and does the job FAST. 
You won't wait long with Elite«Spel reading your 
text. 32K req. 

Elite'Spel (Disk onlyl-Radio Shack 090-0185 . 539.95 
Elile'Spel (When purchased with 

Elite»Word from ELITE) SI 5.00 

Elile»Spel /PBJ" (Disk only) 80 column display. S49.95 





TERMINAL PROGRAM 



Elite»Comm turns your CoCo into a powerful 300 
baud terminal, and it's smooth and easy to use. 

Elite»Comm (Tape or Disk) S39.95 

Elite'Comm / PBJ - (Tape or Disk) 

80 column display S49.95 




Too often, "power" is achieved at the expense of 
simplicity of operation. Elite Software has more than 
met that challenge with their Elite»Word . . . 
-Don Lloyd, ONLINE TODAY -COMPUSERVE 



Not all software "plays" the same . . . 

Our programs have been widely recognized 
for their ease-of-use, powerful features, 
performance speed, and cross-file com- 
patability. 

Elite Software DOES make a difference. 



i-Lite. ^o^turare 



SPREADSHEET 

Elite»Calc/3.0 gives you more features than the 
widely acclaimed Ellte»Calc. You get Window 
Lock, 4 screen displays, expanded worksheet 
storage and more. 32K req. 

Elile-Calc/3.0 (Disk) -Radio Shack "90-0 1 88. . . S69.95 
Elite«Calc/3.0 (Tape) -Radio Shack »90-0 1 97 . $69.95 

Elite'Calc (Original ver. 1.2) Tape or Disk S39.95 

Elite»Calc/3.0 / PBJ- (Disk only) 80 column display S79.95 



DATABASE MANAGER 



Elite»File is the database manager that handles 
more total records, larger records, and manipulates 
data faster. Whether your data is inventory items or 
recipes, Ellte'Flle is the correct choice. 32K req. 

Elite'File (Disk only) -Radio Shack "90-0189 . . S74.50 
Elitc«File/PBJ- (Disk only) 80 column display S79.95 

'Requites PBJ Woid Pak hardware 
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Buy direct: Add 53.00 shipping 
PA residents add 6% sales tax 



Hilt 9 Softtwata 

now at Radio JliaeK stores 

Available via Eifyaaa Orrja* 

1— a »>•*» il • 1 M B! ■ * « '•"*! CoooWar 



201 Penn Center Blvd., Suite 301, -Pittsburgh, PA 15235 • (412)795-8492 



INT§353," ":GOTO1410 

1450 PRINT? 3 5 3, "BEFORE YOU CAN E 

SCAPE, THE CYCLOPS SEPERATES 

YOUR HEAD FROM YOUR NECK. T 
00 BAD"; :PLAY"L104C03C02C":CLS:G 
OTO22 60 

1460 PRINT@353,"KILL":PRINT@385, 
"what" ; :GOSUB60010 

1470 IF Z$="U"THENGOTO1480ELSEPR 
INT§385 , YK$ : PLAY"L4AB" : PRINT@353 
," ": PRINT :G0T014 10 
1480 PRINT@385,"UGLY CYCLOPS": PR 
INT@417, "WITH what"; :GOSUB60010 
1490 IF Z$="B"ANDBB=1THENG0T0149 
5ELSEIF Z$="B"THENPRINT§417 , "YOU 

DON'T HAVE THAT" : PLAY" L4AB" : PRI 
NT0353 , " " : PRINT: PRINT: GOTO1410 
1492 IF Z$="F"AND FF=1THEN G0T01 
495ELSE IF Z$="F"THEN PRINT§417, 
"YOU DON'T HAVE THAT" : PLAY"AB" : P 
RINT@3 53 , " " : PRINT : PRINT : G0T0141 
ELSE PRINT@417,"THAT WON'T WOR 
K" : PLAY"AB" : PRINT@3 53 , " " : PRINT: 
PRINT: GOTO 1 4 10 

1495 IF Z$="B"THEN PRINT@422 , "BR 
OADSWORD" :UU=1 : PLAY"03C01C02C" : P 
RINT@3 53 , " " : PRINT : PRINT : G0T0141 
ELSE PRINT@353,"YOU MANAGE TO 
START HER CLOAK ON FIRE. A VER 
Y ANGRY CYCLOPS PROCEEDS TO EAT 

YOU ALIVE" : PLAY"L104A01A02A" : CL 
S:GOTO22 60 
2100 GOSUB50600 
2102 GOSUB60400 
2104 GOSUB50600 

2110 IF RR=0THENPRINT@290,"RATS" 
ELSEPRINT@290, "BURNED RATS" 
2115 GOSUB60000 

2120 IF Z$="N"ANDRR=0THENGOTO215 
0ELSEIF Z $="N"THENG0T03 100ELSEIF 

Z$="S"ANDRR=0THENGOTO2150ELSEIF 

Z$="S"THENGOTO1100ELSEIF Z$="E" 
THENGOTO2200 

2140 IF Z$="K"ANDRR=0THENGOTO216 
0ELSEIF Z$="K"THENPRINT@353 , "THE 
RE IS NOTHING TO KILL" : PLAY" L4AB 
":PRINT@353," ":GOTO2110 
2145 PRINT@353,IM$:PLAY"L4AB":PR 
INT@3 53," ":GOTO2110 
2150 PRINT@3 53, "BEFORE YOU CAN L 
EAVE, THE RATS SURROUND YOU. AS 

YOU ARE DEVOURED, YOU THI 
NK - 'MY POOR FAMILY' ";:PLAY" LI 
GFGL4GFG" : CLS : GOTO2260 
2160 PRINT@353,"KILL":PRINT@385, 
"what"; :GOSUB60010 

2170 IF Z$="R"THENGOTO2180ELSEPR 
INT@385,YK$:PLAY"L4AB":PRINT@352 
," ": PRINT :G0T02 110 



2180 PRINT§385,"RATS":PRINT@417, 
"WITH what" ; :GOSUB60010 
2190 IFZ$="F"ANDFF=1THENPRINT@42 
2, "FLAMING TORCH" :RR=1 : PLAY" L2 01 
C02C" : PRINT@353 , " " : PRINT : PRINT: 
G0T02 110ELSEPRINT@4 17 , "YOU DON ' T 

HAVE THAT":PLAY"L4ABA":PRINT@3 5 
2 , " " : PRINT : PRINT : PRINT : G0T02 115 
2200 CLS: PRINT: PRINT "THE WALL SW 
INGS AWAY AT YOUR TOUCH. AS 
YOU STEP INTO THE ROOM, YOUR 
FOOT FAILS TO STRIKE ANY FLOOR. 

TOO LATE YOU REALIZEIT IS AN OP 
EN SHAFT!" 

2220 FOR X=1TO50/0:NEXTX 
2230 CLS(0) :PLAY"L305C04C03C02CO 
1CL100O5AO2" 

2240 CLS: PRINT: PRINT "YOUR SHATTE 
RED BODY LIES AT THE BOTTOM OF A 

THIRTY-FOOT SHAFT. YOUR LAST T 
HOUGHT IS OF YOUR FAMILY - WH 
WILL BE EXECUTED ATSUNDOWN." 
22 60 PRINT '.PRINT: INPUT" DO YOU WI 
SH TO TRY AGAIN (Y/N)";AN$ 
2280 IF AN$="Y"THENCLS:GOTO10ELS 
EEND 

2 300 GOSUB50400 
2302 GOSUB60300 
2304 GOSUB50200 
2306 GOSUB50900 

2310 IF AA=1THENPRINT@290,NS$ELS 
EPRINT@290,"ANGRY WIZARD" 
2 315 GOSUB60000 
2320 IF Z$="W"THENGOTO2200ELSEIF 

Z$="N"ANDAA=1THENGOTO3300ELSEIF 

Z$="N"THENGOT03 355 

2 330 IF Z$="K"ANDAA=1THENPRINT@3 
53, "THERE IS NOTHING TO KILL": PL 
AY"L4AB":PRINT§353," ":GOTO2310E 
LSEIF Z$="K"THENPRINT@3 53 , "KILL" 
:PRINT§385, "what" ; :GOTO2370 
2340 IF Z$="C"ANDMM<>1THENPRINT@ 

3 53, "YOU HAVE NOTHING TO CAST":P 
LAY"L4AB":PRINT@353," ":GOTO2310 
ELSEIF Z$="C"THENPRINT@353 , "CAST 
":PRINT@385,"what"; :GOTO23 60 
2350 PRINT@353 , IM$ : PLAY"L4AB" : PR 
INT@353," ":GOTO2 310 

2360 GOSUB60010 

2365 IF Z$="M"THENPRINT@385,"MAG 

IC SPELL" : MM=- 1: PRINT @ 4 17, "THE W 

IZARD IS IMMOBILIZED. ":PLAY"L1CD 

E" : PRINT§3 53 , " " : PRINT : PRINT : PRI 

NT§241," ";:GOTO2306 

2368 PRINT§3 85, "YOU CAN'T CAST T 

HAT" : PLAY"L4AB" : PRINT@3 53 , " " : PR 

INT:GOTO2 310 

2370 GOSUB60010 

2375 IF Z$="A"THENPRINT@385,"ANG 
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RY WIZARD" :PRINT@4 17, "WITH what" 

;:GOTO2380ELSEPRINT@385,YK$:PLAY 

"L4AB" : PRINT@353 , " " : PRINT : G0T02 

310 

2380 GOSUB60010 

2385 IF Z$="B"ANDMM=-1THENG0T023 

90ELSEPRINT@353, "BEFORE YOUR WEA 

PON FINDS ITS MARK, BOLTS OF E 

NERGY FROM THE WIZARD'S FINGERS 

TURN YOU AND ALL YOUR POSSESS 
IONS INTO ASH.":PLAY"L101B02BL20 
1BO2BL4O1BO2B":CLS:GOTO2260 
2390 PRINT@417, "BROADSWORD" :AA=1 
:PRINT@439, "WIZARD VANISHES AS 

BLADE STRIKES HIM" ; : PLAY"L205EO 
3E01E04E02E" : PRINT0353 , " " : PRINT 
: PRINT : PRINT : GOT02 3 10 
2400 GOSUB50600 
24)32 GOSUB50300 
2404 GOSUB50900 
2410 PRINT@290 , "LIZARD" : GOSUB600 

2420 IF Z$="N"THENGOTO3400ELSEIF 

Z$="S"THENGOTO1400 
2430 IF Z$="K"THENGOTO2450 
2440 PRINT@353 , IM$ : PLAY"L4AB" : PR 
INT@353," ":GOTO2410 
2450 PRINT§353,"KILL":PRINT@385, 
"what" ; : GOSUB60010 

2460 IF Z$="L"THENGOTO2470ELSEPR 
INT@385,YK$:PLAY"L4AB":PRINT@353 
," ":PRINT:GOTO2410 
2470 PRINT@385, "LIZARD" :PRINT@41 
7 , "WITH what" ; : GOSUB60010 
2480 IF Z$="B"THENPRINT@422,"BRO 
ADSWORD":GOTO2490ELSEIF Z$="F"TH 
ENPRINT@422,"FLAMING TORCH" : GOTO 
2490ELSEPRINT@417,"THAT WON'T WO 
RK" : PLAY"L4AB" : PRINT@353 , " " : PRI 
NT:PRINT:GOTO2410 

2490 PLAY"L2CL105BBBL402C" : CLS : P 
RINT: PRINT "THE LIZARD SCREAMS CA 
USING A STONE TO FALL FROM TH 
E CEILING - YOU ARE CRUSHED BE 
NEATH IT . " : PLAY " L1ABGFE " : CLS : GOT 
02260 

3100 GOSUB50500 
3102 GOSUB50900 
3104 GOSUB50400 

3110 IF BB=0THENPRINT@290,"BROAD 
SWORD"ELSEPRINT@290,NS$ 
3115 GOSUB60000 
3120 IF Z$="N"THENGOTO4100ELSEIF 

Z$="S"THENGOTO2100 
3130 IF Z$="T"ANDBB=0THENGOTO314 
0ELSEPRINT@ 3 5 3 , IM$ : PLAY" L4 AB" : PR 
INT@353," ":GOTO3110 
3140 PRINT@353,"TAKE":PRINT@385, 
"what" ; :GOSUB60010 



3150 IF Z$="B"THENGOTO3160ELSEPR 
INT@385 , YC$ : PLAY"L4AB" : PRINT@353 



" ": PRINT :GOT03 110 



3160 PRINT @385 , "BROADSWORD" : PRIN 

T@417 , "BROADSWORD TAKEN" : BB=1 : PL 

AY"CCC" : PRINT@353 , " " : PRINT: PRIN 

T:GOTO3102 

3200 GOSUB50100 

3202 GOSUB60200 

3204 GOSUB50300 

3206 GOSUB50900 

3210 IF JJ=0THENPRINT@290,"JEWEL 

"ELSEPRINT@290,NS$ 

3215 GOSUB60000 

3220 IF Z$="E"THENGOTO3300ELSEIF 

Z$="S"THENGOTO2 200 
3230 IF Z$="T"ANDJJ=0THENGOTO324 
0ELSEPRINT@353 , IM$ : PLAY"L4AB" : PR 
INT@353," ":GOT03215 
3240 PRINT@353,"TAKE":PRINT@385, 
"what" ; :GOSUB60010 

3250 IF Z$="J"THENGOTO32 60ELSEPR 
INT§385,"YOU CAN'T TAKE THAT": PL 
AY"L4AB":PRINT@352," ": PRINT: GOT 
03215 

3260 PRINT@385, "JEWEL" :PRINT@417 
, "JEWEL TAKEN" : PLAY"CDA" : JJ=1 : PR 
INT@353," ": PRINT: PRINT :G0T03 20 6 
3300 GOSUB50500 
3302 GOSUB50600 
3304 GOSUB50700 
3306 GOSUB50800 
3308 GOSUB50900 

3310 IF JJ=1ANDAA=0THENPRINT@290 
, "ANGRY WIZARD" : GOTO3 340ELSEPRIN 
T§290,NS$ 
3315 GOSUB60000 
3320 IF Z$="N"THENGOTO4300ELSEIF 

Z$="S"THENGOTO2300ELSEIF Z$="E" 
THENGOTO3400ELSEIF Z$="W"THENGOT 
03200 

3330 PRINT@353 , IM$ : PLAY"L4AB" : PR 
INT@353," ":GOT03315 
3 340 GOSUB60000 
3350 IF Z$="K"THENGOTO3370ELSEIF 

Z$="C"THENGOTO33 60 
3355 PRINT@ 3 5 3, "THE WIZARD SAYS 
•OLAN COLAIN' YOU FIND YOURSELF 

THE SIZE OF A FLY AND TRAPPED I 
N THE WEB OF A VERY HUNGRY SPIDE 
R. " : PLAY"L103A04A01A02A" : CLS : GOT 
02260 

3360 IF MMOlTHENPRINT@353,"YOU 
HAVE NOTHING TO CAST" : PLAY" L4AB" 
:PRINT@353," " :GOTO3340ELSEPRINT 
@353, "CAST" :PRINT@385, "what"; :G0 
SUB60010 

3365 IF Z$="M"THENPRINT@3 85,"MAG 
IC SPELL":MM=-1:PRINT@417,"THE W 
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NOW DO YOU SHARE A RAINBOW? 



It's simple — 

Give a rainbow gift 

certificate . . . 



Share the rainbow with your 
friends a gift subscription to the 
premier information source for the 
Color Computer. Then, each month, 
all year-round, they'll enjoy the 
spectrum of rainbow programs, 
articles and information written 
exclusively for their CoCo! 

First, they'll receive a handsome 
card announcing your gift. Then, 
they'll be reminded of you each 
month when they receive up to 300 
pages of the rainbow — including 
as many as 24 programs, 15 regular 
columns and up to 20 product re- 
views. 

When you give a rainbow gift 
certificate, you'll also be safeguard- 
ing your own collection. No more 
frantic searching for those back 
issues you've lent to a friend. 

Give a rainbow gift certificate and 
let your friends in on something you 
already know — the rainbow is the 
perfect companion for the Color 
Computer! 



Please begin a one-year (12 issues) gift subscription to 

THE RAINBOW for: 

Name 



Address 
City 



.State 



ZIP 



From: 

Name 



Address 
City 



.State 



ZIP 



□ My payment is enclosed 

Bill to: □ VISA □ MasterCard □ American Express 

My account # Exp. date 

Signature 

Mail to: 
Rainbow Gift Certificate, The Falsoft Building, P.O. Box 385, Prospect, KY 40059 

To order by phone, call: (502) 228-4492 



Subscriptions to THE RAINBOW are $31 in the United States; U.S. $38 in Canada. The surface rate 
to other countries is U.S. $68; the air rate, U.S. $103. Kentucky residents add 5% sales tax. U.S. 
currency only, please. All subscriptions begin with the current issue. Please allow 5 to 6 weeks for 
delivery. In order to hold down non-editorial costs, we do not bill. 



IZARD IS IMMOBILIZED" :PLAY"L2CDE 

" : PRINT@3 53 , " " : PRINT : PRINT : PRIN 

T@241," ";:GOTO3340 

3367 PRINT@385,"YOU CAN'T CAST T 

HAT" : PLAY"L4AB" : PRINT@353 , " " : PR 

INT:GOTO3340 

3370 PRINT@353,"KILL":PRINT@385, 

"what" ; : GOSUB6J8J310 

3375 IF Z$="A"THENGOTO3380ELSEPR 

INT@385 , YK$ : PLAY"L4AB" : PRINT@353 

," ":PRINT:GOTO3 340 

3380 PRINT© 3 8 5, "ANGRY WIZARD": PR 

INT@417,"WITH what"; :GOSUB60010 

3385 IF Z$="B"ANDMM=-1THENG0T03 3 

90ELSEPRINT@353, "BEFORE YOUR WEA 

PON FINDS ITS MARK, BOLTS OF E 

NERGY FROM THE WIZARD'S FINGERS 

TURN YOU AND ALL YOUR POSSESS 
IONS INTO ASH.":PLAY"L101B02B03B 
O2B":CLS:GOTO2260 

3390 PRINT@422 , "BROADSWORD" :AA=1 
:PRINT@439, "WIZARD VANISHES AS 

BLADE STRIKES HIM. " : PLAY"L205EO 
1E04E03E02E" : PRINT§353 , " " : PRINT 
: PRINT : PRINT : GOT03 30 8 
3400 GOSUB50700 
3402 GOSUB50900 
3404 GOSUB50400 

3410 PRINT@290,NS$:GOSUB60000 
3420 IF Z$="N"THENGOTO4400ELSEIF 

Z$="S"THENGOTO2400ELSEIF Z$="W" 
THENGOTO3 300 

3430 PRINT@353 , IM$ : PLAY"L4AB" : PR 
INT0353," ":GOTO3410 
4100 GOSUB50100 
4102 GOSUB50900 

4110 IF OO=0THENPRINT@290,"ORANG 
E SPHERE"ELSEPRINT@290,NS$ 
4115 GOSUB60000 
4120 IF Z$="S"THENGOTO3100ELSEIF 

Z$="T"ANDOO=0THENGOTO4140 
4130 PRINT@353 , IM$ : PLAY"L4AB" : PR 
INT@353," ":GOT04115 
4140 PRINT@353 , "TAKE" : PRINT@385 , 
"what":GOSUB60010 

4150 IF Z$="O"THENGOTO4160ELSEPR 
INT@385 , YC$ : PLAY"L4AB" : PRINT@353 
," ": PRINT :GOT04 115 

4160 PRINT@385, "ORANGE SPHERE" :P 
RINT§4 17, "ORANGE SPHERE TAKEN" :P 
LAY"L2DCD" : 00=1 : PRINT@353 , " " : PR 
INT : PRINT : G0T04 102 
4200 GOSUB50400 
4202 GOSUB50200 
4204 GOSUB50700 
4206 GOSUB50900 

4210 PRINT@290, "STAIRS LEADING D 
OWN":GOSUB60000 
4220 IF Z$="W"THENGOT04225ELSEPR 



INT@353 , IM$ : PLAY"L4AB" : PRINT@353 

," ":GOTO4 210 

4225 GOSUB50800 

4 2 30 PRINT@2 90,"A SMALL OPENING 

AND STAIRS" :GOSUB60000 

4235 IF Z$="E"THENGOTO4200ELSEIF 

Z$="W"ANDGG=1THENG0T04245ELSEIF 

Z$="W"THENGOTO4 250 
4240 PRINT@353,IM$:PLAY"L4AB":PR 
INT@353," ":GOTO4230 
4 245 CLS: PRINT" AS YOU COME THR 
OUGH THE OPEN- ING DOGHEDRA'S GU 
ARDS SEIZE YOU AND STRIP YOU OF 
ALL POSSESSIONSYOU ARE BROUGHT B 
EFORE DOGHEDRA. BEHIND HIM THE SU 
N IS BISECTED BY THE HORIZON." 
424 6 PRINT" DOGHEDRA SPEAKS ' YO 
U HAVE RETURNED WITH THE TRE 
ASURE FROM THE MAZE OF MOYCULLEN 
. YOU ARE A GRAND WARRIOR." 

4247 PRINT" AS I PROMISED, YOU 
AND YOUR FAMILY MAY GO FREE. 
FURTHER, NO LONGER WILL WE INV 
ADE YOUR LANDS, YOU AND YOUR P 
EOPLE MAY LIVE IN PEACE . * " 

4248 PLAY"02L4G03CCL8DCL402AGG03 
CCDL2 . EL4DDDDEGAGEL2 . G02L4AL16AB 
03C02BL4AGEG03C02BL2AL4GCEGL8AGL 
2EL8 . CL16EL4DCCL2C" 

4249 FOR Q=1TO2000:NEXTQ:CLS:GOT 
02 2 60 

4 2 50 CLS: PRINT" AS YOU COME THR 
OUGH THE OPEN- ING, DOGHEDRA'S G 
UARDS SEIZE YOUAND STRIP YOU OF 
ALL POSSESSIONSYOU ARE BROUGHT B 
EFORE DOGHEDRA. BEHIND HIM THE SU 
N IS BISECTED BY THE HORIZON." 
42 51 PRINT" DOGHEDRA SPEAKS ' YO 
U HAVE RETURNED FROM THE MAZ 
E OF MOYCULLEN ALIVE. YOU 
ARE A GREATWARRIOR. HOWEVER, YOU 

FAILED TO RETURN WITH THE GOLDE 
N TREASURE AS YOU WERE CHARGED. 

YOU AND YOUR FAMILY WILL BE E 
XECUTED. " 

4 2 52 PRINT" AS A GREAT WARRIOR 
IT IS YOUR HONOR TO DIE FIRST SO 

AS NOT TO SEE YOUR LOVED ONES S 
UFFER. '"; 

4253 FOR X=1TO1000:NEXTX 
4260 FOR X=1TO25:PLAY"O1V20L4BL8 
V10BBB" :NEXTX 

4275 CLS: PRINT: PRINT" YOU ARE S 
TRAPPED TO THE SACRIFICIAL 

STONE. A LARGE SWORD IS RA 
ISED ABOVE YOUR HEAD AND... 
ii 

4280 FOR X=1TO10:PLAY"O1V20L4BL8 
V10BBB":NEXTX 
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4285 CLS(0):FOR X=1TO1000 :NEXTX 


000 


4290 GOTO2260 


4420 IF Z$="N"THENGOTO5400ELSEIF 


4300 GOSUB50700 


Z$="S"THENGOTO3 400 


43J32 GOSUB50400 


4430 PRINT@353 , IM$ : PLAY"L4AB" : PR 


4304 GOSUB50300 


INT@353," ":GOTO4410 


43^6 GOSUB50900 


5100 GOSUB50300 


4308 GOSUB50500 


5102 GOSUB50900 


4310 IF MM=0THENPRINT@2 90, "MAGIC 


5110 IF GG=0THENPRINT@2 90, "GOLD 


SPELL"ELSEPRINT@290,NS$ 


COINS"ELSEPRINT@290 , NS$ 


4320 GOSUB60000 


5120 GOSUB60000 


4330 IF Z$="N"THENGOTO5300ELSEIF 


5130 IF Z$="E"THENGOTO5200ELSEIF 


Z$="S"THENGOTO3 300 


Z$="T"ANDGG=0THENGOTO5150 


4340 IF Z$="T"ANDMM=0THENGOTO435 


5140 PRINT§353,IM$:PLAY"L4AB" : PR 


0ELSEPRINT@353 , IM$ : PLAY"L4AB" : PR 


INT@353," ":GOTO5120 


INT@353," ":GOTO4320 


5150 PRINT@353 , "TAKE" : PRINT@385 , 


4350 PRINT@353,"TAKE" :PRINT§385, 


"what" ; :GOSUB60010 


"what" ; : GOSUB60010 


5160 IF Z$="G"THENGOTO5170ELSEPR 


4360 IF Z$="M"THENGOTO4 3 70ELSEPR 


INT@385 , YC$ : PLAY"L4AB" : PRINT@353 


INT@3 85,YC$:PLAY"L4AB":PRINT@3 53 


," ": PRINT :GOTO5120 


," ":PRINT:GOTO43 20 


5170 PRINT§385,"GOLD COINS" : PRIN 


4 370 PRINT© 3 85, "MAGIC SPELL" : PRI 


T@417,"GOLD COINS TAKEN" : PLAY" L3 


NT@417, "MAGIC SPELL TAKEN": PLAY" 


C03L2C04L1C" :PRINT@353, " " : PRINT 


L203C02C" :MM=l:PRINT@353, " " : PRI 


: PRINT : GG=1 : GOTO5102 


NT : PRINT : GOTO4306 


5200 GOSUB50200 


4400 GOSUB50700 


5202 GOSUB50800 


4402 GOSUB50300 


5204 GOSUB60300 


4404 GOSUB50900 


5206 GOSUB50900 


4410 PRINT@290, "COBWEBS" :GOSUB60 


5210 PRINT@290, "IDOL ON SOUTH WA 



DDDDD 

DDDDD 

tBHUB 
DDDDD 
DDDDD 
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COLOR COMPUTERS 



LIST OUR 

PRICE PRICE 



TANDY COMPUTERS price prVce 

26-1 070 Model 4D Desktop 64K 2 FD& DeskmaleS1 199.00 S 895.00 

25-1000 Model 1000 1FD 128K & Deskmate 999.00 705.00 

25-1001 Model 1000 1 FD& 10 Meg HD256K 1999.00 1475.00 

25-3000 Model 1 200 1 FD & 1 Meg HD 256K 2499.00 1 525.00 

25-3001 Model 1200 Two FD 256K 1499.00 1200.00 

25-4000 Model 3000 One FD 51 2K 2599.00 1900.00 

25-4010 Model 3000 1 FD& 20 Meg HD 512K 3599.00 2600.00 

26-3901 Model 600 Port Comp 32K 1 3'/:- Disk 1599.00 1 195.00 

25-1021 CM4 Color Monitor 299.95 225.00 

25-1022 CM10 Color Monitor 459.95 380.00 

25-3010 VM-3 Monochrome Monitor 219.00 185.00 

26-51 1 1 VM-1 Monochrome Monitor 199.95 165.00 

26-51 12 CM-1 Color Monitor 599.00 510.00 

25-3043 Graphics Adaptor T-1 200, T-3000 . 299.00 185.00 

25-3047 Deluxe Graphics Adapt T-1 200. T-3000 499.95 395.00 

25-3130 MS-DOS 2.1 1/Basic Tandy 1200 89.95 75.00 

25-4 1 04 MS-DOS 3.1 BasicDeskmate Tandy 3000 99.95 85.00 

CALL TOLL FREE 1-800-248-3823 

For Technical Questions and Information on our complete line ol 
computer accessories and current prices: 

CALL 1-517-625-4161 

Mon., Wed. & Fri. 9-9, Tues. & Thurs. 9-6, Sat. 9-3 

All prices and offers may be changed or withdrawn without notice. Advertised prices are 
cash prices COD accepted ($1000 charge per carton on COD Call lor lunher 
COD information.) M.C . Visa, add 2%. AX. add 3% All non-detective items re- 
turned will be subject to 1 0% restocking lee Detective items require return merchan- 
dise authorization Call lor R.M A. Number before returning. Delivery is suh|ect to 
product availability 

124 SOUTH MAIN STREET • PERRY, Ml 48872 



26-3136 16K Standard Color Computer 2 
26-3127 64K Extended Color Computer 2 
26-3131 Disk Drive for Color Computer 
26-3130 Disk Drive 1 for Drive 

26-3008 Joystick 

26-3012 Deluxe Joystick (EACH) 
26-3018 Extended Basic Kit ... 
26-1208 CCR-81 Tape Recorder 
26-1 173 DCM-3 Direct Conned Modem 



$119.95 

199.95 

299.95 

199.95 

19.95 

29.95 

39.95 

59.95 

59.95 



5 99.00 

169.00 

240.00 

169.00 

16.95 

25.00 

36.00 

50.00 

50.00 



SOFTWARE 



30001210 Telewriter 64 Tape 
30001220 Telewriter 64 Disk 

30001110 VIP Writer 

30001 140 VIP Database . . . 
30001 150 VIP Terminal Disk 
30001170 VIP Integrated Software 
30001130 SS/DD 10 Pack Diskettes 



S 49.95 
59.95 
69.95 
59.95 
49.95 
149.95 
21.00 



E 42.00 
49.00 
59.00 
49.00 
45.00 
139.00 
14.00 
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PRINTERS AND ACCESSORIES 

26-1276 DMP-105 80 cps Dot Matrix $199.95 $169.00 

26-1280 DMP-1 30 Dot Matrix 349.95 285.00 

20001025 EPSON LX-80 Printer 369.95 225.00 

20001515 EPSON LX-80 Tractor Feed 29.95 25.00 

20021070 OKIDATA 182 Printer 299.00 245.00 

20041020 STAR SG-10 Printer 299.00 250.00 

300091 1 BOTEK Serial to Parallel Interlace 59.00 

MMaaMMMi^BM PERRY COMPUTERS • 
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LL" :GOSUB60000 

5220 IF Z$="E"THENGOTO5300ELSEIF 

Z$="W"THENGOTO5240ELSEIF Z$="P" 
THENGOTO5250 

5225 IF Z$="T"THENPRINT§353,"IDO 
L IS ATTACHED TO THE WALL" ; : PLAY 
"L4AB":PRINT@353, " ":GOTO5210 
5230 PRINT§353 , IM$ : PLAY"L4AB" : PR 
INT@353," ":GOTO5210 
5240 GOSUB50700 

5245 PRINT@3 53,"THE WALL SWINGS 
AWAY AT YOUR TOUCH TO REVEAL 
A HIDDEN ROOM »: PLAY "L2 01 BEG " : PRI 
NT@353," ": PRINT :G0T05 100 
5250 PRINT@353 , "PUT" : PRINT@385 , " 
what"; :GOSUB60010 

5260 IF Z$="J"ANDJJ=1THENG0T0528 
5ELSEIF Z$="0"ANDOO=lTHENGOT0527 
0ELSEPRINT@3 85, "YOU CAN'T PUT TH 
AT ANYWHERE ": PLAY "L4AB" : PRINT§ 3 5 
3," ": PRINT: GOTO 5 2 10 
5270 PRINTS 3 8 5, "ORANGE SPHERE" :P 
RINT@417,"IN what"; :GOSUB60010 
5275 IF Z$="I"THEN PRINT@420 , "ID 
OL":PRINT@448, "SHARPENED STONES 
FLY FROM IDOL'SMOUTH PIERCING YO 
UR HEART" ; : PLAY"L10O4ABAL2O1BAG" 
:CLS:GOTO22 60ELSE GOTO5280 
5280 PRINT@417,"YOU CAN'T PUT AN 
YTHING THERE" : PLAY"L4AB" : PRINT§3 
53," ": PRINT: PRINT :G0T05 2 10 
5285 PRINT@385, "JEWEL" :PRINT@417 
,"IN what"; :GOSUB60010 
5290 IF Z$O"I"THENGOTO5280ELSEP 
RINT@420,"IDOL":JJ=-1:GOSUB50600 
:PRINT@449,"A HIDDEN ROOM APPEAR 
S" ; : PLAY"L103A02B01A02B" : PRINT@3 
53 , " " : PRINT : PRINT : PRINT : GOSUB60 
000 

5295 IF Z$="S"THENGOTO4200ELSEPR 
INT@353,"THE WALL SWINGS BACK QU 
ICKLY" : PLAY"01C" : PRINT@384 , "AS I 
T SLAMS SHUT THE IDOL BREAKSLOOS 
E AND TOPPLES UPON YOU. YOUARE 
PINNED BENEATH IT. MY GUESS IS 
YOU WILL STARVE TO DEATH."; 
5297 PLAY"04L1A05L5A02L1BGEC" : CL 
S:GOTO22 60 
5300 GOSUB50100 
5302 GOSUB50400 
5304 GOSUB50600 
5306 GOSUB50900 
5308 GOSUB50700 

5310 PRINT§290,NS$:GOSUB60000 
5320 IF Z$="W"THENGOTO5200ELSEIF 

Z$="S"THENGOTO4 300 
5330 PRINT@353 , IM$ : PLAY"L4AB" : PR 
INT@3 53," ":GOTO5310 



5400 GOSUB50100 

5402 GOSUB50900 

5410 PRINT§290,"FUNNY HOLES IN W 

ALLS": PLAY "L4AB" 

5420 PRINT@352,"YOUR FOOT STRIKE 

S A STONE THAT SINKS SLIGHTLY. 

INSTANTLY, POISON-TIPPED AR 
ROWS SHOOT FROM THE WALLS. YOU 
ARE DEAD.":PLAY"L101AA02C01AA02C 
":CLS:GOTO2 2 60 

50000 F$=CHR$(128) : FOR Y=32 TO 1 
92 STEP 32 

50010 FOR X=2 TO 12 : PRINT@ (Y+X) , 
F$ ; : NEXTX : NEXTY : RETURN 
50100 FOR X=34 TO 44 : PRINT@X, W$ ; 
: NEXTX : RETURN 

50200 FOR X=194 TO 204 : PRINT@X, W 
$ ; : NEXTX : RETURN 

50300 FOR X=34 TO 194 STEP 32: PR 
INT@X , W$ ; : NEXTX : RETURN 
50400 FOR X=44 TO 204 STEP 32: PR 
INT@X , W$ ; : NEXTX : RETURN 
50500 FOR X=3 5 TO 43 : PRINT@X, F$ ; 
: NEXTX : RETURN 

50600 FOR X=195 TO 203 : PRINT§X, F 
$ ; : NEXTX : RETURN 

50700 FOR X=66 TO 162 STEP 32: PR 
INT@X , F$ ; : NEXTX : RETURN 
50800 FOR X=76 TO 172 STEP 32: PR 
INT@X,F$; : NEXTX : RETURN 
50900 IF GG=1 THEN PRINT@145 , "GO 
LD" ; 

50910 IF BB=1 THEN PRINT@177 , "BR 
OADSWORD" ; 

50920 IF JJ=1 THEN PRINT@152 , " JE 
WEL" ; 

50930 IF 00=1 THEN PRINT@273 , "OR 
ANGE SPHERE"; 

50940 IF MM=1 THEN PRINT@241 , "MA 
GIC SPELL"; 

50950 IF FF=1 THEN PRINT@209 , "FL 
AMING TORCH"; 

509 60 PRINT@ 17, "NORTH SOUTH" ;:P 
RINT@49,"EAST WEST"; :PRINT@81, 
"TAKE PUT" ; : PRINT@113 , "KILL 
CAST"; : RETURN 
60000 PRINT@352,"*"; 
60010 Z$=INKEY$ 

60020 IF Z$="" THEN GOTO 60010 
60030 RETURN 

60100 FOR X=3 4 TO 44 : PRINT@X, P$ ; 
: NEXTX : RETURN 

60200 FORX=194 TO 204 : PRINT@X, P$ 
; : NEXTX : RETURN 

60300 FOR X=34 TO 194 STEP 32: PR 
INT@X,P$; : NEXTX : RETURN 
60400 FOR X=44 TO 204 STEP 32: PR 
INT@X,P$; : NEXTX: RETURN 
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I RAINBOW 



This IRA/Keogh Plan estimator 
allows for payroll deductions 



Loop 



Until 



Done 



By Bruce W. Ronald 



1 don't like it when the computer 
solves a complex problem a split 
second alter I press ENTER. This 
program is quite the reverse. It could 
chug away for 20 minutes calculating a 
30-year projection using daily com- 
pounding and weekly contributions. 

This program almost didn't see the 
light of print. 1 had written it because 
I couldn't find any such program, and 
almost immediately after submission 
the August 1984 RAINBOW arrived with 
Leonard Hyre's very fine, fast and 
accurate IRA estimator, 

1 was surprised when RAINBOW said 
it wanted to publish my much slower 
estimator. At first I thought maybe they 
didn't like blindingly fast programs 
either, but on reflection I discovered my 
program does do a few things Mr. 

Bruce Ronald, an advertising copywrit- 
er, holds a bachelor 's degree in speech. 
He has written a science fiction thriller. 
Our Man in Space, and the book of the 
musical, Dracula. Baby. He and his 
wife. Virginia, coauthored two prize- 
winning local histories of Dayton and 
its suburb. Oak wood — the latter on the 
Co Co. 



Hyre's does not. It error traps excess 
contributions — anything over $2,000 
annually for wage earner IRAs and 
$2,250 for spousal IRAs. (If this 
amount is increased, as planned, you 
will need to edit program lines 440, 450 
and 730.) It allows for contributions 
made the way many of us make them, 
via payroll deduction. This program 
allows annual, monthly, twice monthly, 
biweekly and weekly contributions. 

This is what 1 would call a boilerplate 
program. If something didn't work, I'd 
add another line or another GOSUB 
routine. Here's an example, which 1 
added after the original submission, 
that speeds the program up dramati- 
cally for those persons who contribute 
annually or monthly and have their 
interest compounded quarterly or 
monthly. 

Look at Line 825. It instructs the 
computer that those with quantity 
compounding and annual contributions 
skip both the monthly and daily loops 
required for the twice monthly, bi- 
weekly and weekly contribution rou- 
tines. Line 835. within the monthly 
loop, allows for monthly contributions 
while avoiding the time-consuming 



daily loop. Lines 985 and 995 do the 
same within the monthly compounding 
loop. This results in a considerable 
speedup, from about 28 seconds per 
year to three seconds or less. 

But for daily compounding and/or 
twice monthly, biweekly or weekly 
contributions, the daily loops are re- 
quired, forcing the computer to loop 
360 times each year. 

Quick Notes 

If you do not have a printer, you may 
eliminate lines 520, 550 and 590, and all 
lines that begin PRINTB-2. To eliminate 
the introduction (just read it in the 
listing), don't type in Line 20 and the 
subroutine between 1490 and 1690. 

Lines 1510 and 1520, for example, 
illustrate an interesting anti-ugly tech- 
nique that Dave Barr. president of one 
of Dayton's two Color Computer clubs, 
showed me. Type your line number and 
print, then advance the cursor to the last 
space on the line and enter your quo- 
tation mark. This forces the text to 
appear as you will see it on the screen. 
It avoids unsightly gaps and lets you 
hyphenate words, if needed. This tech- 
nique, although it obviously chews up 
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memory, is ideal tor programs with a lot 
of text, such as an Adventure game. 

Why no high-speed poke? My com- 
puter can handle it and it does speed up 
execution, but not so much as I would 
expect. If you wish to add it, put it in 
the three daily loop routines at 840, 
1000 and 1160 as POKE S5495,0:FOR 
2=1 TD 30. But if you are using a printer, 
you must POKE 65494 ,0 before each of 
the three printer GOSUBs. It should run 
on a 16K machine if you PCLEflR 1 
before loading. 

There is a slight cheat in the last line 
of the program — it adjusts biweekly 
and weekly contributions from 24 to 26 
and 48 to 52 respectively. 

Now make your CoCo work to show 
you how rich you'll be someday! 

(Mr. Ronald can be reached at 101 
Forrer Blvd., Dayton, OH 454 19, phone 
513-294-8808. Please include an SASE 
when writing.) □ 





IRA/KEOGH Estimator 


THIS PLAN 


RUNS FROM 1986 TO 2)126 




INTEREST 


ASSUMED IS 11.5 1 COMPOUNDED DAILY 


WITH CONTRIBUTIONS OF 5 2PPP ANNU. 


19B6 


Contribution: ""S2,P0P.0P 


YEAR-END TOTAL: • • ««S2 , 24 3 . 71 


I9B7 


Contrlbut ion: ""52, PPP 


PP 


YEAR-END TOTAL: ' •••54 , 76P.81 


1908 


Contribution: ""52. PPP 


PP 


YEAR-END TOTAL: •••'57 , 584 . 64 


1989 


Contribution: ""S2 , ppp 


PP 


YEAR-END TOTAL: •••Sip, 752 . 55 


199P 


contribution:"* '$2, pop 


PP 


YEAR-END TOTAL: •••514, 3P6. 49 


1991 




PP 


YEAR-EHD TOTAL: •••$18 ,293 . 48 


1992 


Contribution : ••••$2, (!())! 


PP 


YEAR-END TOTAL: • «"S22 ,766 . 3P 


1993 




PP 


YEAR-EHD TOTAL: •••527 , 784 . 14 


199-1 


Contrlbut ion :*"*S2, POP 


PP 


YEAR-EHD TOTAL: •••533 , 4 1 3 . 4 2 


1995 


Contrlbut Ion:"" 52, PPP 


iM 


YEAR-END TOTAL: •• '539 , 728 . 65 


1996 


contribution: *"*S2, ppp 


PP 


YEAR-END TOTAL: •••54 6,813 . 4P 


1997 


Contribution: ""52, PPD 


PP 


YEAR-EHD TOTAL:«"S54,761.45 


1998 


contribution: ""52, ppp 


PP 


YEAR-END TOTAL: •••563 , 678 -PP 


1999 


Contrlbut Ion: **"S2, PPP 


PP 


YEAR-END TOTAL: •••573,681. P5 


WW 


Contrlbut Ion: ""52, ppp 


PP 


YEAR-EHD TOTAL: •••584 , 9P3 .pp 


2PP1 




PP 


YEAR-EHD TOTAL: •••597 , 492 . 36 


2(1)12 


Contrlbut Ion: ""52, PPP 


PP 


YEAR-EHD TOTAL: ««S1 11 , 615 . 8P 


2(1)13 


Contrlbut Ion: ""52, ppp 


PP 


YEAR-EHD TOTAL: • -5127 , 460 . 2 1 


2004 


contribution: ••••52, PPP 


pp 


YEAR-EHD TOTAL: »'S145 , 235 . 3P 


»»3 


Contrlbut Ion: ""52,PPP 


PP 


YEAR-END TCTAL:"S165,176.34 


2)1)16 




PP 


YEAR-EHD TOTAL: »*S187,54 7.26 


VffPI 


Contribution: ••••$2,(1)1)! 


PP 


YEAR-EHD TOTAL: • '5212 , 644 . 1 3 


20P8 


Contribution: ""52, PPP 


PP 


YEAR-END TOTAL: "5240, 799 . 12 


2PP9 


Contr i but i on : • • • • 52 , ppp 


PP 


YEAR-END TOTAL: "5272 , 384 . BB 


2P1P 


contr ibut ion : • • • • 52 , ppp 


IV 


YEAR-EHD TOTAL: "S3P7 , B 19 . 46 


2)111 


Contribution: ••••$2, P0P 


IV 


YEAR-EHD TOTAL: • »S347 , 57 1 . 84 


2(112 


Contribution: •••'52, ppp 


PP 


YEAR-EHD TOTAL: ••5392, 168 . 16 


2)113 


Contribution: ••••52, ppp 


PP 


YEAR-EHD TOTAL: •• 5442 , 198 . 67 


2)114 


Contribution: ••••52, ppp 


PP 


YEAR-EHD TOTAL:"549B,325.54 


2)J15 


Contribution: ••••52, ppp 


PP 


YEAR-EHD TOTAL: "5561 , 291 . 63 


2)J16 


Contribution: ""52, ppp 


PP 


YEAR-EHD TOTAL: "563 1 , 93p . 3p 


2(117 


Contribution: ••••52, ppp 


PP 


YEAR-END TOTAL: "5711 , 176 . 51 


2818 


Contribution: ••••52, PPP 


PP 


YEAR-END TOTAL: "S8PP, p79 .p9 


2)319 


Contribution: ""52, ppp 


PP 


YEAR-END TOTAL: • «SB99 , B14 . 7P 


202)1 


Contribution: ••••52, ppp 


PP 


YEAR-EHD TOTAL: 51 ,PH , 7P3 . 38 


2(121 


Contrlbut ion : •• " 52 , ppp 


PP 


YEAR-EHD TOTAL:51,137,226.pi 


2(122 


Contribution: ••••52, PPP 


PP 


YEAR-EHD TOTAL: 51 , 278 ,04 3 . 92 


2)123 


Contr ibutlon:""S2,PPP 


PP 


YEAR-EHD TOTAL: 51 , 436 , 020 . 91 


2)124 


Contribution: ••••52, ppp 


PP 


YEAR-EHD TOTAL: 51 , 61 3 , 247 . 84 


2)125 


Contribution: ••••S2,ppp 


PP 


YEAR-EHD TOTAL: 51 , 812 , 07p . 37 


2(126 


Contrlbut Ion: ••••52, PPP 


PP 


YEAR-EHD TOTAL: 52 , 035, 119 .98 


TOTAL COHTRI!)UTIOHS:«"S82,ppp.0P INTEREST EARNED: $1, 953 , 119 . 98 


FOR A HAN 


AT 65 THIS WOULD RESULT III MONTHLY 


PAYMEHTS OF 5**525,852.64 



f< m 


....49 1050.. 


..196 


340 


....88 1340 .. 


3 


490 ... 


...86 1500 .. 


....10 


680 


...78 1600.. 


.153 


790 


...84 END.. 


103 



The listing: IRAKEDGH 

1 REM SCARCELY ELEGANT BUT IT 
WORKS . 

2 REM BY BRUCE W RONALD 

3 REM 101 FORRER BLVD 

4 REM DAYTON, OHIO 45419 

5 REM *********************** 

10 CLEAR 500 

20 GOSUB 1490 

30 CLS 

40 PRINT" IRA/KEOGH ESTIMA 

TOR" 

50 PRINT: PRINT 

60 PRINT"THIS PROGRAM WILL SHOW 

YOU HOW" 

70 PRINT "FUNDS INVESTED IN AN IR 

A OR" 

80 PRINT"KEOGH CAN ACCRUE TO SIG 

NIFICANT" 

90 PRINT "SUMS OVER THE YEARS." 

100 FOR Q=l TO 1800: NEXT Q:CLS 



110 PRINT: PRINT: 

120 PRINT "YOU NEED TO INPUT SOM 

E DATA:" 

130 INPUT"YEAR YOU STARTED (OR W 

ILL START) YOUR PLAN";S1 

140 INPUT"YEAR YOU WILL FINISH Y 

OUR PLAN";S2 

150 Y=S2-S1+1 

160 PRINT "ANSWER THE NEXT QUESTI 

ON WITH A DECIMAL AMOUNT. EXAMPL 

E: ENTER 11 1/2% AS .115" 

170 INPUT"ANTICIPATED ANNUAL RAT 

E OF INTEREST"; I 

180 IF I>1 THEN PRINT "DECIMAL V 

ALUE , PLEASE . " : GOTO 170 

190 INPUT"TO BE COMPOUNDED? Quar 

tery/Monthly/Daily" ;C$ 

200 IF C$="Q" THEN C1$="QUARTERL 

Y" 

210 IF C$="M" THEN Cl$="MONTHLY" 

220 IF C$="D" THEN C1$="DAILY" 

2 30 PRINT "CONTRIBUTIONS TO BE M 

ADE — " 

240 PRINT" 

Annually?" 
2 50 PRINT" 

Monthly?" 
2 60 PRINT" Twic 

e a month?" 
270 PRINT" 
Bi-weekly?" 
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DERBY CITY SOFTWARE 

"The Place to Shop for ALL your COCO Needs' 



MasterCard 



X 



*** Guaranteed 



The Lowest Prices 



The Latest Versions 



Guaranteed *»* 



SUPER 'COMBINATION' SPECIALS! 



.(Dl S 52.00 (Save-13%) 
(D) $104.50 (Save-25%) 
(D) S 89.50 (Save-25%) 
(D) $143.00 (Save-28%) 



.(D) S 17.95 
(D)S 59.50 
(D) $119.75 
(D) $100.00 

• (D) $ 22.00 

(D)$ 92.00 

(O) $ 63.00 

(D)$ 78.50 



(D)$ 
Pf 

(D)$ 
(D)S 
(D)$ 
(D)S 
(D)$ 



26.75 
96.50 
67.25 
82.25 
26.95 
67.40 
82.35 



(Dl $101.10 
(D) $104.85 



WORD PROCESSING 

Telewriter 64 

TW 64+Dynacalc 

TW 64+Pro-Coloi-File 2.0 enhanced 
TW 64+Pro-Color-File'Dynacalc .'. 

Telepatch 

TW 64+Telepatch 

TW 64+Telepatch+Dynacalc. . . . 
TW 64+Telepatch+Pro-ColorFile . . 

Telegraphies 

Telegraphics+CoCo Max II 

TW 64+Telegraphics 

TW 64 +Telegraphics* Telepatch . . 

Master Design 

Master Design+CoCo Max III . . 

TW 64+Master Design 

TW 64+Master Design • Telepatch 

Font Generator 

TW 64+Font Generator . 
TW 64 + Font Generator i Telepatch 
TW 64+Font+patch tfelegraphics 
TW 64 + Font+paich + Mast. Desg 

DATABASE MANAGEMENT 

Pro-Color-File 2.0 enhanced 

TW 64+Pro-Color-File 2.0 enhanced 
TW 64+Pro-Color-File ' Dynacalc 
TW 64+Pro-Color-File ' Telepatch 
TW 64+P-C-F * patch < giaphtcs 
TW 64+P-C-F + patch * M Desigr 

Pro-Color-Forms 2.0 

Pro-Color-File + Pro-Color Foi'"5 
Pro-Color-File+P-C-Foims'TW 64 
PC-File<PC-Forms'TW 64 tpatch 
PC-File+PC-Forms+TW 64 icalc 
File+Forms+TW 64 tpatch icalc 

E-Z Base 

SPREADSHEET 

Dynacalc (D) $ 71.95 

Dynacalc * Dynagraph (D) S 87.90 

Dynacalc * Sidewise (Dl $ 92.30 

Dynacalc + Dynagraph • Sidewise (Dl $108.60 

TW 64 ♦ Dynacalc .... (D) $104.50 

TW 64 t Dynacalc • Dynagraph (D) $119.75 

TW 64 t Dynacalc • Sidewise (D) $123.60 

TW 64+Dynacalc+graph + paich (D) $134.85 

TW 64fDynacalc+Sidewise+patch (D) $138.60 

TW 64+calc+graph+wiseipatch (D) $151.50 

TW 64 » Dynacalc 4 Pro-Coloi File (D) $143.00 
TW 64tDynacalc'P-C-File' patch (D) $158.25 

TW 64+calc + Filefpatch'graph <D) $172.50 

Dynagraph (D) 

Dynagraph I Sidewise (D) 

Sidewise (D) 



(Save 
(Save 
(Save 
(Save 
(Save 
I Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 



10%) 
25%) 
25%) 
28%) 
11%) 
12%) 
25%) 
25%) 
11%) 
12%) 
25%) 
25%) 
10%) 
25%) 
25%) 
25%) 
25%) 



(D) $ 53.95 (Save-10%) 
(D)$ 89.50 (Save-10%) 
(D) $143.00 (Save-28%) 
(D) $100.00 (Save-28%) 
(D) S1 18.00 (Save-28%) 
(D) $122.25 (Save-28%) 

.(D) S 26.95 (Save-10%) 
(D) $ 76.40 (Save-15%) 
(D) $112.25 (Save-25%) 
(D) $127.25 (Save-25%) 
(D)S 165.45 (Save-28%) 
(D) $177.00 (Save-29%) 

.(D) S 22.45 (Save-10%) 



COMMUNICATIONS 

Colorcom/E 

Colorcom/E i Colorama BBS 
C-Com/E+B8S+ Time Module ■<>■ BBS 
Colorcom/E t TW 64. . . 
Colorcom/E r TW 64 i Telepatch 
C-com/EtTW 64 t patch + PC-File 
C-com/E+TW 64 > patch i Dynacalc 
com/E + TW 64 i patch ♦ File ' calc 

Colorama BBS 

Colorama BBS'Time Module loi BBS 
Time Module for Colorama BBS . . . 



S 17.95 
$ 39.95 
$ 22.20 



(D) $ 42.45 
(D) $119.90 
(D) $167.85 
(D) $ 76.90 
(Dl $ 90.00 
(D) $132.85 
(D) $146.85 
(D) $188.80 
(D)$ 89.95 
(D1S135.90 
(D) $ 53,95 



(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 
(Save 

(Save 
(Save 
(Save 



(Save 
(Save 
(Save- 
(Save 
(Save* 
(Save 
(Save 
(Save 



10%) 
12%) 
12%) 
13%) 
25%) 
25%) 
25%) 
25%) 
25%) 
26%) 
28%) 
28%) 
28%) 
10%) 
11%) 
11%) 



15%) 
20%) 
20%) 
30%) 
30%) 
30%) 
30%) 
30%) 



GRAPHICS 

CoCo Max II (Requires 'Y' Cable! . . .(Dl $ 71.95 
CoCo Max II upgrade for Max I owners(D) $ 18.00 

Max Edit (Font Generator-Max I & II (D) $ 17.95 

TW64+PC-File + Dynacalc'Max II. . (D) $209.85 

TW 64+Telegraphics * CoCo Max II .(D) $123.50 

TW 64+Telegraphics I patch • Max. (D) $133.00 

TW 64+Master Design + CoCo Max II (D) $127.25 

TW 64+Master Design * patch i Max (D) $136.65 

TW 64+graph + patch i max i EDIT (D) $147.40 

TW64 + Design t patch i max • EDIT (D) $151.00 

All orders add S3.00 shipping 6. handling, Ky. rosidents add 5% 
C.O.D. add $2.00- Visa/Master Card/Checks/Cash also welcomed. 



(Save-10%) 
(Save-15%) 
(Save-10%) 



(Save-10%) 
(Save-10%) 
(Save-10%) 
(Save-25%) 
(Save-25%) 
(Save-28%) 
(Save-25%) 
(Save-28%) 
(Save-28%) 
(Save-28%) 



OTHER SUPER 'COMBINATION' SPECIALS ! ! 

■ Buy any two ol the following programs SAVE 5%! 

' Buy any three of the lollowmg programs SAVE 10%! 

* ' Colorcom/E ♦ any one of the following SAVE 15%! 

• " Colorcom/E I any twool the following SAVE 18%! 

• ' • Telewriter 64 ♦ any one ol the following SAVE 20%! 

■ " ' Telewriter 64 i any two ol the following SAVE 25%! 

These discounts pertain to only 'MAJOR SYSTEMS UTILITIES' 
and software listed in 'MUSIC AND SPEECH SYSTEMS' sections. 

MAJOR SYSTEMS UTILITIES 

CoCo Checker (Complete system diagnostic) ID) $ 19.00 

Tape/Disk Utility (D) $ 24.00 

Disk Utility 2.1 A ID) $ 24.00 

OS-9 Solution (Disk Utility 2.1 for OS-9 . . . . (D) S 39.00 

OS-9 Thunder RAM RAM Disk (D) $ 24.00 

Spit-N Image 3.2 (D) $ 29.00 

CoCo Util (MS DOS CoCo file t.ansler (D) $ 29.00 

Disk Sort & Order ( JDOS or RS DOS SS or OS) (D) S 20.00 

IConvert RSDOS Disk to JDOS Disk Unsectored Data on Disk!) 
(Save 25 30 percent ot physical lite ot your disk drives!!) 

Valet . . . (D-T)$ 21.00 

I A totally unuiue approach to household based liling systems.) 
(Soon to be reviewed in Rainbow Valet - "personal servant".) 

Ill vou order any other program & mention that you would like) 
(to order valet also you will qct a SI 0.00 added discount!!) 

CGP-1 15 Printer/Plotter Screen Dump (D-T) $ 21.00 

Gemini-Epson Screen Dump IDT| $ 19.00 

DMP-100 & Compatibles Screen Dump (D-T) $ 19.00 

The CoCo Greeting Card Desiqne. (D) $ 24.00 

Schematic Drafting Processor ... . . ID) $ 29.00 

MUSIC & SPEECH SYSTEMS 



K. 



(D)$ 
(D)$ 
(D)$ 
(D)$ 
(R)$ 
(D)$ 
T-D)$ 
. $ 



Ears .. (Requires Y' C.ililel 

Supei Voice . . (Requites *Y' Cable 

Radio Shack Speech & Sound Tianslatoi 

Symphony (Requires 'Y' Cable!. 

Stereo Pak . (Requites 'Y' Ctlhlol 

Synthei 77 Plus . 

CoCo MIDI 

Piano Keyboard (2 1 1? Octabe 32 Notes) . 

Piano Keyboaid 14 Octave 49 Noies) 

Musica 2 . (T-D 

Music Theoiy ... ((D 

Music Libiary (100 oi 200 ot 300 o. 400 in 5001 (T-D 

Music Library (All Five Libraries] (T-D 

Supei Voice Songbook (Vol. 1 oi Vol 2) (D 

Super Voice Songbook (Both Volumes) 

Teimialk (T)$ 38.50- 

DISKETTES& TAPES 



97.50 

75.00 

23.50 

78.50 

38.50 

28.50 

38.50 

80.00 

$120.00 

S 28.00 

$ 48.00 

$ 29.00 

$100.00 

$ 19.00 

D) $ 37.00 

Dl$ 48.50 



Its wr tabs I iletiniu y 



5 1/4" Diskettes . 

(Tyvec envelopes ib 
C-6 Cassette Tapes 
CABLES SWITCHES & MORE 

40Pm (Dual) 'Y'C.ibi.' ...... 

40 Pin (Tuple! Y' Cable. 

RS-232c 2 Position Switch . . 

RS?32c 3-Pnsition Switch 

DOS Swuchei (Jum|».'i select any 24 28 Put Combination) 

Univeisal Video Diivn (Mono or Coloi Momtois) . . 

CHIPS UPGRADES & EPROM PROGRAMER 

64K Upgrade (Set ol 8 4164s 150ns) 

64K Upgrade (Set ol 2 4464s A' Models only) 

C809E CPU Chip 

Inttomcs EPROM Piogiamei ... 

27128 (28 Pin 16K EPROM) 

27128 ('Burned' with yom program • Guaranteed work) 

'Any EPROM burned with youi program you supply chi 

DISK CONTROLLERS 



75 cents each 

laiamee) 
50 cents each 



$ 29.50 

S 36.00 

$ 29.00 

$ 39.00 

$ 35.00 

$ 29.00 



$ 16.00 

$ 39.00 

$ 15.00 
$139.00 

$ 5.00 

$ 25.00 

$ 20.00 



DISTO Supeicontrollei 
I Includes i D( >s 



. . . S 99.75 
3.2R fin sockets and I xnn I'arallel Port) 

$19.75 
$39.75 
S99.75 
$59.75 
. $135.00 



(D) - DISK IT) TAPE (D-T 

3825 Batdstown Road S 
(502> 



Parallel Printei Adaptei 

Real Time Clock . . . 

Display 80 (80 column Clock Punier Adapter! 

MPROM Programei (EPROM piogramer) 

JFD-CP ( JDOS i 24 Pin socket and Parallel Ponl 

DISK DRIVES 

TEAC 54A 140 Ti.ick Gold Edge Connectois SS/DD-Baie) . $125.00 
TEAC 55B (40 TiackGold Edge Connectois DS/DD Baie) . $135.00 

PRINTER & PRINTER INTERFACE 

GEMINI SG 10 $249.00 

1 20 cps True descenders 2K Buffer T ractoi and F r iclion F eeds. 
Roll. Ian lold and single page. One lull year warranty and "Near 
Letter Quality" mode. F ulldot addressable graphics! 

PBH 'BRITE FACE' Parallel Primer Interface $ 59.00 

F irst 'intelligent' serial to parallel interface! Auto sui 600 
to 9600 baud rates without turning any switches! 

SG-10 Printer and Briteface Interlace Together $300.00 

(Gemini Epson Screen Dump is FR 1 ' with this purchase!) 

- DISK OR TAPE (R) ROMPAK 

uile 232 Louisville. KY 10218 

454-6809 ——— 



A 



280 PRINT" 

Weekly?" 

290 PRINT 

300 INPUT"ENTER FIRST LETTER OF 

YOUR CHOICE";D$ 

310 IF D$="A" THEN Z$=" ANNUALLY" 

320 IF D$="A" THEN M=l 

3 30 IF D$="M" THEN Z$="MONTHLY 

340 IF D$="M" THEN M=12 

350 IF D$="T" THEN Z$="TWICE MON 

THLY" 

360 IF D$="T" THEN M=24 

370 IF D$="B" THEN Z$="BI-MONTHL 

Y" 

380 IF D$="B" THEN M=26 

390 IF D$="W" THEN Z$="WEEKLY" 

400 IF D$="W" THEN M=52 

410 INPUT"HOW MUCH PER PAYMENT"; 

C 

420 INPUT"TYPE OF IRA:Wage earne 

r/Spousal";T$ 

430 IF T$="W" GOTO 440 ELSE 450 

440 IF (C*M)>2000 AND T$="W" THE 

N T4=2000: GOSUB 7 20 

450 IF (C*M)>2250 AND T$="S" THE 

N T4=2250:GOSUB 720 

460 INPUT "AMOUNT, IF ANY, AT STAR 

T OF YEAR"; A 

470 PRINT"NOTE. IF YOU ARE CONTR 

IBUTING ONAN ANNUAL BASIS, THIS 

PROGRAM ASSUMES THE CONTRIBUTI 

ON IS MADE" 

480 PRINT "AT THE START OF THE Y 

EAR. IF THIS IS NOT THE CASE, 

YOU SHOULD START ONE YEAR LATER 
ii 

490 PRINT"IF ANY DATA IS INCORRE 

CT, PRESS break AND TYPE run TO 

GET CORRECT DATA INTO THE PROGRA 

M. 

500 T=A: PRINT: PRINT 

510 TC=M*(C*Y) :E=M*C 

520 INPUT"OUTPUT TO Screen OR Pr 

inter" ;0$ 

530 CLS:PRINT"THIS COMPOUNDING W 

ILL TAKE UP T045 SECONDS PER YEA 

R. PLEASE BE PATIENT .": PRINT 

540 IF 0$="S" GOSUB 1350 

550 IF 0$="P" GOSUB 1400 

560 IF C$="Q" GOSUB 800 

570 IF C$="M" GOSUB 960 

580 IF C$="D" GOSUB 1120 

590 IF 0$="P" GOTO 640 

600 PRINT TAB (2) "TOTAL CONTRIBUT 

ION : " ; 

6L0 PRINT USING"**$###,###.";TC+ 

A 

620 PRINT TAB (2) "INTEREST EARNE 



D:"; 

630 PRINT USING "**$###,###.##"; 

(T-TC) :GOTO700 

640 PRINT#-2," TOTAL CONTRIB 

UTIONS : " ; 

650 PRINT#-2,USING"**$###, ###.## 

" ; TC+A ; 

660 PRINT#-2," INTEREST EARNED:" 

670 PRINT#-2, USING "**$###,###.# 
jmi . (T-TC) 

680 PRINT#-2,"FOR A MAN AT 65 TH 
IS WOULD RESULT IN MONTHLY PAYME 
NTS OF $"; 

690 PRINT#-2, USING »**$##,###.## 
";T/ (12*6. 56) :REM ANOTHER APPROX 
IMATION 

700 PRINT :PRINT"TO RUN AGAIN WIT 
HOUT INTRODUC- TION,TYPE 'CLS:R 
UN120-" 
710 END 

720 CLS:PRINT"FOR AN IRA, YOU CA 
NNOT INVEST" 

730 PRINT "MORE THAN $2000 PER Y 
EAR AS A WAGE EARNER, NOR MORE 
THAN $2250IF IT IS A JOINT ACCO 
UNT WITH ONLY ONE SPOUSE WORKI 
NG." 

73 5 PRINT" YOUR ";Z$;" CONTRIBUTI 
ONS MAY NOT EXCEED $";(T4/M) 
740 PRINT" HOWEVER A KEOGH ACCOUN 
T CAN GO MUCH HIGHER. DO YOU WI 
SH TO CHANGE YOUR AMOUNT?" 

750 INPUT"Yes/No";Tl$ 
7 60 IF T1$="N" THEN RETURN ELSE 
IF T1$="Y"THEN C=0 
770 INPUT "HOW MUCH";C 
780 IF (C*M)>2000 AND T$="W" GOT 
720 ELSE RETURN 

790 IF (C*M)>2250 AND T$="S" GOT 
7 20 ELSE RETURN 

800 FOR L=l TO Y:REM QUARTERLY L 
OOP 
810 IF D$="A" THEN T=T+C 



EXPAND YOUR COCO! 


ADD FEATURES FROM THE LARGER COMPUTERSI 


DISK OWNERS 


TAPE USERS 


Up io 4 operating systoms. or 


Up to 32K of your favorite 


2 DOS'S and your best programs 


programs in a ROM PACK! 


in one chip. Goes inside 


Menu driven. Just plug it in 


DISK CONTROLLER 


and EXEC 


EASY INSTALLATION - FREE DETAILS 


WRITE TO: 


INOVATIVE SYSTEMS 1 




1 10 Sail Road SEND 


S 1 5.00 UP 


Roma, NY 13440 S.A.S.E. NOW! 
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820 FOR K=l TO 12 

825 IF D$="A" GOTO 870 

8 30 IF D$="M" THEN T=T+C 

835 IF D$="M" GOTO 870 

840 FOR Z=l TO 30 

850 GOSUB 1700 

8 60 NEXT Z 

870 IF K=3 THEN T=T+T*(I/4) 
880 IF K=6 THEN T=T+T*(I/4) 
890 IF K=9 THEN T=T+T*(I/4) 
900 IF K=12 THEN T=T+T*(I/4) 
910 NEXT K 
920 GOSUB 1290 
930 S1=S1+1 
940 NEXT L 
950 RETURN 

9 60 FOR L=l TO Y : REM MONTHLY LOO 
P 

970 IF D$="A" THEN T=T+C 

980 FOR K=l TO 12 

985 IF D$="A M GOTO 1050 

990 IF D$="M" THEN T=T+C 

995 IF D$="M" GOTO 1050 

1000 FOR Z=l TO 30 

1010 GOSUB 1700 

1040 NEXT Z 

1050 I2=T*(I/12) 

1060 T=T+I2 

1070 NEXT K 

1080 GOSUB 1290 

1090 S1=S1+1 

1100 NEXT L 

1110 RETURN 

1120 FOR L=l TO Y:REM DAILY LOOP 

1130 IF D$="A" THEN T=T+C 

1140 FOR K=l TO 12 

1150 IF D$="M" THEN T=T+C 

1160 FOR Z=l TO 30 

1170 GOSUB 1700 

1180 I3=T* (1/360) 

1190 T=T+I3 

1200 NEXT Z 

1210 NEXT K 

1220 GOSUB 1290 

1230 S1=S1+1 

1240 NEXT L 

12 50 RETURN 

1290 IF 0$="P" GOSUB 1440 

1300 PRINT: PRINT SI;" CONTRIBUT 

IONS: " 

1310 PRINT USING"**$###, ###.##"; 

E 

1320 PRINT"YEAR-END TOTAL:"; 

1330 PRINT USING"**$###,###.##"; 

T 

1340 RETURN 

1350 PRINT " IRA/KEOGH ESTI 

MATOR" 



13 60 PRINT: PRINT: PRINT"THIS PROG 
RAM RUNS FROM";Sl "TO ";S2;'»." 
1370 PRINT "INTEREST IS"; (1*100) 
;"% COMPOUNDED " 

1380 PRINT Cl$ 

1390 PRINT "WITH CONTRIBUTIONS M 

ADE OF $";C;Z$ -.RETURN 

1400 PRINT# -2, TAB (20) "IRA/KEOGH 

ESTIMATOR" 

1410 PRINT#-2:PRINT#-2 

1420 PRINT#-2, "THIS PLAN RUNS F 

ROM";Sl;"TO";S2 

1430 PRINT#-2, "INTEREST ASSUMED 

IS "; (1*100) ;"% COMPOUNDED ";C1 

$;" WITH CONTRIBUTIONS OF $";C;Z 

$ : RETURN 

1440 PRINT :PRINT#-2, SI, " Contri 

but ion: " ; 

1450 PRINT#-2,USING"**$###,###.# 

# " » E ; 

1460 PRINT#-2," YEAR-END TOTAL: 
ii . 

1470 PRINT#-2,USING"**$### / ###.# 

#";T 

14 80 RETURN 

1490 PRINT"AN IRA IS A TAX-DEFER 
RED WAY TO BUILD A NEST EGG FOR 
YOUR RE- TIREMENT. YOU MAY INV 
EST UP TO" 

1500 PRINT "$2000 OR UP TO 15% 
F YOUR EARN-ED INCOME , WHICHEVER 

15 LOWER PERYEAR. COUPLES WITH T 
WO INCOMES MAY HAVE TWO IRAS , EA 
CH SUBJECT" 

1510 PRINT " 

TO THE SAME MAXIMUMS. THERE IS A 
'SPOUSAL 1 IRA FOR COUPLES WITH 
ONLY ONE WAGE-EARNER. EACH must 
HAVE AN IRA. THE MAXIMUM AMOUNT 
IS THE LOWER OF 15% OF INCOME" 
1520 PRINT " 

OR $2 2 50. THEY NEED NOT BE EQUAL 
ii 

1530 INPUT"PRESS ENTER TO CONTIN 

UE";Y$ 

1540 Y$=INKEY$:IF Y$=" " THEN 15 

40 ELSE 1550 

1550 CLS: PRINT " 

THE MAXIMUM ALLOWED IN ANY ONE 

ONE SPOUSAL ACCOUNT IS $2000." 

15 60 PRINT" THE KEOGH PLAN IS 

FOR SELF- EMPLOYED PEOPLE AND A 

LLOWS CON- TRIBUTIONS OF UP TO T 

HE LOWER OF15% OR $30,000." 

1570 PRINT" YOU MAY START TO R 

ECIEVE YOURFUNDS FROM EITHER PLA 

N AT 59 1/2 YEARS OF AGE AND YOU 

MUST START" 
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1580 PRINT"BY 7j3 1/2. THE MONEY C 

AN BE TAKENALL AT ONCE OR IN INS 

TALLMENTS . " 

1590 PRINT" THE MONEY WILL BE 

TAXED AS INCOME BUT YOU MAY BE 

IN A LOWERBRACKET AT THIS TIME. 
it 

1600 PRINT: INPUT" PRESS ENTER 

TO CONTINUE ";Y$ 
1610 Y$=INKEY$:IF Y$=" "THEN 161 
ELSE 17 30 

1620 CLS: PRINT" THIS IS BUT A 
BRIEF OVERVIEW OF THE IRA AND K 
EOGH PLANS." 

1630 PRINT" CHECK ALL THE FACT 
S WITH AN ACCOUNTANT OR AN INVE 
STMENT PLANNER AT YOUR BANK, 
S&L, CREDIT" 

1640 PRINT " 

UNION OR BROKERAGE HOUSE TO 
AVOID ANY PROBLEMS. THERE ARE 
SEVERE PENALTIES FOR EARLY WITH- 
DRAWAL." 

1650 PRINT " 

BUT THIS IS THE BIGGEST BREAK 
THE 'LITTLE MAN' HAS EVER RE- 
CIEVED FROM HIS GOVERNMENT." 
1660 PRINT: PRINT 

1670 INPUT"PRESS ENTER TO RUN TH 
E PROGRAM" ;Y$ 

1680 Y$=INKEY$:IF Y$=" " THEN 16 
80 

1690 RETURN 

1700 IF D$="T" AND 2=15 THEN T=T 
+C 

1710 IF D$="T" AND Z=30 THEN T=T 
+ C 

1720 IF D$="B" AND Z=15 GOSUB 17 
90 

1730 IF D$="B" AND Z=30 GOSUB 17 
90 
1740 IF D$="W" AND Z=7 GOSUB 179 

j3 

1750 IF D$="W" AND Z=14 GOSUB 17 

90 

1760 IF D$="W" AND Z=21 GOSUB 17 

90 

1770 IF D$="W" AND Z=28 GOSUB 17 

90 

1780 RETURN 

1790 T=T+(C*1.083) : RETURN : REM AP 

PROXIMATION TO ADJUST BI-WEEKLY 

AND WEEKLY CONTIBUTIONS TO MONTH 

LY LOOP 
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FIGHTER 
PILOT jf 





Fighter Pilot 

An original arcade gomel Wave after 
wave of allocking aircraft attempt to 
shoot vou down as vou maneuver your 
tighter into the wild blue yonder, 
blasting enemy fighters, bombers and 
paratroopers out of the sky. Joystick or 
keyboard operation "Pause game" 
feature. Disk version saves high ;coros 
12K 100% Machine Language. 

Tape $24.95 
Disk $29.95 

Mission of 
Vengeance 

A fantasy graphics adventure You are 
Garotte Severinn. master thlet, spy. and 
assassin. Your mission is to kill the evil 
wizard Neemon. recover the holy 
xepter of Tosh, and escape trom 
Neeman's castle. The reward Is a 
fortune in gold, but beware.. .many 
dragons and monsters stand between 
you and the gold 1 32K, one disk drive 
required 

Disk or Amdek $24.95 



Pumpman 

You'l dig this 100% machine language 
arcade game! The Pumpman carries a 
pump thai he fires at aliens Pooky and 
Dragon as they change forms and 
chase him around under the ground. 
15 different screens, "pause game' 
feature. As fun and challenging as the 
original arcade version! 32K, one 
joystick required 

Tape $24.95 
Disk $29.95 



Hires + 

High Resolution 
Screen Enhancer 

HIRES ■ ij a programmer's utility that 
adds a number ot features to BASIC A 
high resolution screen with true upper 
and lower case letters and variable 
screen width, scroll protect, key repeat, 
error-trapping, visual inpul routine, 
reset protection, fiue break disable 
and morel 16K tape. 



$19.95 



Menu Maker 

The Ultimate in easy disk access and 
organization! Menu Maker is a 100% 
machine longuage utility that allows 
you to place attractive, customized 
menus on all ot your diskettes and. with 
one one key press, load any program of 
your choice. Menu Maker is com- 
patible with RS DOS 1.0 and 1 1 <soon 
with others!) and supports multiple- 
drive systems 32<, one disk drive 
lequired 

Disk or Amdek $24.95 



Magazine Index 
System 

MI.S. helps you organize and keep 
track of those important magazine 
articles. Features include transfer utility 
insuring compatibility with other data- 
base programs, fast search rouitnes. 
and the saving of data in a com- 
piessed format tor mote records per 
disk I6K, one disk drive required. 

$14.95 



Software 
Closeout!! 

We're Blowing Out All 

Tom Mix • Mark Data 

Prickly-Pear 

Petrocci • Sugar 

Call Or Write For 

Lowest Prices Anywhere! 

Quantities Limited 

Write For Free Catalog! 

Gift Certificates 
Available 



Eagle $24.95* 

Lunar lander 32K. Joysticks Requfci 

Marooned! $29.95 

Adventure 32K. Disk Only 

Blackjack Dealer $24.95" 

VVitn feelei Deai'- .- 

Sketchpad $19.95 

Graphics Plowing Picg*a«i 32V Disl -« '*. 

Alpha -40' $19.95 

Formats -10 ■ Tracks. More' 32k Disk Or*y 

Teslmaker $29.95 

Creates l/f IWC lesti Disk Only 

Maycode $24.95' 

680* Disassemoioi J2K 

• Add $5.00 For Disk 

We'll Ship Your Order 
For Only $1.00! 

Software Only - Hardware Shipped 

At Cost 

Outside USA ■ S2.00 Per Program 



Saauaro < 303 > 728-4937 

&ZY**m.Xm*% po ** 1864 

OOf I War G Telluride, CO 81435 

CO. Residents Add 7% Tax • COD. Orders Add $3.00 
Dealer Inquiries Invited! 
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MORETON BAY SOFTWARE 



MORE GOOD SOFTWARE 

GRAPHICOM 

3 disk package $29.95 

64K EXB disk 
SAM DIAMOND 

graphic adventure .... $29.95 

32K EXB disk 
HOT SLOT 

casino simulation .... $24.95 

32K EXB disk or tape 
ECLIPSE 

excellent pixel editor. . $19.95 

64K EXB disk 




THE MOTION PICTURE 

A complete animation development system for your CoCo! 
An object oriented graphic screen developer. Using this 
tool you can quickly and simply animate your pictures. 
Take standard graphic screens that you develop and 
incorporate them into MOTION PICTURES. Animate up 
to eight frames, yielding smooth animation. Generate 
screens from objects and build screens from stored object 
files. Included are routines to display animation from 
BASIC. We believe you'll like this program, so we make 
this offer: We will send you a demonstration disk for $4.00 
which you can apply as a credit if you buy the program. 
Requires 64K. Disk. $39.95. 



MORE KEYS 

At last a quality numeric keypad for 
your Color Computer. This 15 key 
numeric pad plugs inside your com- 
puter and gives you the convenience 
of rapid numeric data entry. Dimen- 
sions: length 6V2" (165mm). width 4" 
(101 mm), height 3" (76 mm). Baked 
black enamel finish. Specify computer 
model. MORE KEYS complete with 
cable and connector. 
$69.95 




DOUBLE DRIVER I 

The BEST monitor driver available. 
Color composite, monochrome and 
audio output. For original CoCo D. E 
and F boards. $24.95. 

MONO II 

Mono II for Color Computer 2. An 
excellent monochrome monitor driver 
that has audio output also. Specify 
model needed. 

$24.95. 





RESET-POWER-SWITCHES ? ,her kit *J d u $2 11 00 
A REAL IMPROVEMENT shipping and handling. 

Move the power switch and reset 

switch where they belong. An LED 

power on light too! High quality parts. g m 

D and E boards totally solderless. The ° 9 9 

F board and some models of the 

CoCo II require soldering. 

Reset 1 Coco 1 $24.95 
Reset 2 CoCo 2 $27.95 

64K UPGRADES 

E Board (solderless - 

pictured) $39.95 

F Board $26.95 

««gr-v/3fc«, CoCo 2 (except 26-3134A&B and 

^ 26-3136A&B) $26.95 

CoCo 2 (models 26-3134A&B and 
26-3136A&B $39.95 

Guaranteed Pretested Hav ing trouble with your CoCo? We 
have the chips you need. Call us. 
(805) 962-3127 



DOUBLE DRIVER II 

Finally a monitor driver for 
the Color Computer II that 
lets you use a monochrome 
and a color monitor 
simultaneously. We're proud 
of this new driver. The six 
transister circuit provides op- 
timal signal mixing and signal 
gain. Excellent monochrome 
output and better quality 
resolution in the color ouput 




than any driver we have 
seen. Audio output also. Fits 
all models of the Color Com- 
puter II. $29.95. 





PLANETARIUM 




A five program celestial 
package. A star gazer's aid. A 
program to familiarize you 
with the appearance of the 
major constellations. 21 first 
magnitude stars. Moon 
phases. Day or night sky. 
Any latitude. 33 constella- 
tions. Charts planet locations 
from A.D. to the year 
10.000. Requires 16K 
Extended Basic. $19.95 



THE COCO-SWITCHER 

A QUALITY PIECE OF HARDWARE 

The CoCo Switcher allows you to hook up 
three peripherals to your RS-232 jack. Con- 
nect your modem, printer and any other 
RS-232 compatible peripheral to the CoCo 
Switcher. An LED on the CoCo Switcher 
shows if your computer is on or off at a glance, 
The LED flickers when transmitting or receiv- 
ing data. 
$39.95 plus $2.00 shipping and handling 



TON BAY SOFTWARE 

A Division of Moreton Bay laboratory 

316 CASTILLO STREET 

SANTA BARBARA 

CALIFORNIA 93101 

(805) 962-3127 

Ordering informalion 
Send $2.00 shipping and handling per order. We ship 
within 1 working day on receipl of order. Blue Label 
Service available. California residenls add 6% sales tax. 





REAL ESTATE 



16K 
ECB 



, RAINBOW 
J 7 "^ ■ 



Are you selling your home and need to find out a fair 
asking price? With a few simple questions answered, it's 
easy to figure 



Assessing the Market Value 

of Your Home 



By Harry W. Hallstrom 



Back a couple of years ago 1 was 
inlerested in selling my home, 
but not quite sure what I should 
be asking as a fair price. The first thing 
I did. as I'm sure just about everyone 
does, was get out the phone book. After 
a careful selection of three real estate 
agents, 1 gave each one a call. When all 
were met and given the grand tour each 
asked me, "What are you asking as a 
selling price range?" Now wait a minute, 
I thought, they are supposed to tell me 
what a good asking price is. In time they 
all did, but they were all different. The 
price spread was almost $20,000 on a 
house that is about SI 20.000 in value. 
That's when I decided there must be a 
better way to accurately determine the 
true market value of a home. 

After thinking about it for several 
weeks, I realized that all real estate is 
assessed by the city or town to which 
you pay taxes. Most cities/ towns also 



Harry Hallstrom is a self-taught com- 
puter programmer and hobbyist who 
works in a large telecommunications 
company as a CAD/ CAM designer 
using a VAX 1 1/780. He has an asso- 
ciate 's degree in mechanical engineering 
and lives in Northfield, Connecticut 
with his wife and two daughters. 



reassess properties every so often — 10 
years seems to be the average time span 
between assessments. With that infor- 
mation, I wrote House Value to help 
determine the current market value of 
a piece of property. Three pieces of 
information are required to run the 
program: What year did you purchase 
your home or when was it last assessed, 
at how much was it assessed and what 
is the percentage of assessment? 

Most homeowners know the answers 
to these three questions. If you do not 
know, there are several ways to find out. 
The first is to call the city hall and ask 
the tax collector. Another way is to call 
the bank holding the mortgage on your 
home and ask if they can help you with 
those questions. If you get an itemized 
tax bill, usually the assessed value and 
percentage of asessment is furnished on 
the bill. 

House Value takes the assessed value 
and determines the actual value based 
on the percentage of assessment. Once 
that is determined, the national infla- 
tion rate is added to each year from the 
year of purchase or last assessment to 
the present year. 

How the Program Works 

Type in the listing and save a copy to 
disk or tape before running. You are 



greeted with a title screen and the first 
data entry point, "year home was 
bought?" Enter the year your home was 
purchased or the last year of assess- 
ment, which ever is later. For example, 
if your home was purchased in 1968 but 
reassessed in 1975, then enter 1975. You 
must enter a year between 1968 and 
1985. and as a four-digit year. Lines 13 
through 1 7 look for this entry and verify 
if the year is between 1968 and 1985. I 
used 1968 as the earliest year allowed, 
figuring most real estate property has at 
least been reassessed since that time. 

The next data entry point is "assessed 
value at purchase?" Here again, this 
means at the time of purchase or latest 
assessment. Enter this figure as a dollar 
figure (the '$' sign is not necessary). 
Keep in mind if you have added some- 
thing permanent to the property since 
buying or assessment to add that to the 
assessed value. Suppose you added a 
$5,000 solar system last year; by all 
means add $5,000 to the assessed value. 
Lines 18 through 21 look for this entry. 

The last piece of information you 
have to enter is the "percent of assess- 
ment?" Lines 22 through 26 look for this 
data. Lines 27 through 31 perform the 
necessary mathematical calculations to 
determine present value. Once the 
assessment figure is entered the screen 
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redisplays the data and the true market 
value based on 100 percent assessment. 
You are prompted to hit any key to 
continue. Lines 27 through 36 perform 
this function. You are then asked if you 
want a screen listing of "house value 
each year" or "present value?" Lines 37 
through 43 look for a keyboard entry 
and verify it is the correct key input. 

Lines 44 through 62 are the years 
from 1968 to 1985. Based on your 
earlier input the program continues 
down the lines until it finds the year 
match. At that point, the new market 



value is calculated based on the national 
inflation rate. Note that Line 62 as- 
sumes an inflation rate of 4 percent. 
When the exact figures are published by 
the federal government you might want 
to correct this line. In any case, they 
won't be far from 4 percent. Lines 63 
through 67 display the "present market 
value" with a pause for user input to run 
the program again or end. Lines 68 
through 71 restart the program or end 
it, depending on your input. Lines 72 
through 76 are the subroutine used to 
cycle through each year if you selected 



a yearly listing of the increasing market 
value. 

House Value can easily be modified 
to direct the data to a printer. I didn't 
have any need for that, so it wasn't 
done. Feel free to use and modify this 
program any way you wish. If there is 
enough interest in a printer version I 
will work something out and perhaps 
add it as a later article. 

(Any questions you may have about 
this program can be sent to the author 
at Marsh Road, Northfield, CT 06778. 
Please enclose an SASE for a reply.) D 



#f 



19 .... 


....57 




41 .... 


...31 




32 .... 


....12 




63 .... 


....41 




END 


163 









The listing: HOUSEVAL 



PROG NAME ' HOUSEVAL. B AS 

HARRY W. HALLS TROM 
MARSH ROAD 
NORTHFIELD, CT. ,06778 

VERSION 1.6 



1 
2 
3 
4 
5 
6 
7 
8 

9 CLS:EY=0 

10 PCLEAR1 : CLEAR1000 

11 CL$=STRING$(254,32) 

12 FOR 1= 10 2 9 TO 10 50: RE ADX: POKE I, 
X: NEXT: FOR I=1065TO1078 :READX: PO 
KEI,X: NEXT: FOR I=1094TO1113 :READ 
X:POKEI,X:NEXT 

13 PRINT@96,STRING$(32,&H3D) ; 

14 PRINT@165, "YEAR HOME WAS BOUG 
HT" :PRINT@198," , YYYY» " ; :LINEINP 
UT YR$ 

15 IF YR$<"1968" OR YR$>"1985"TH 
EN SOUND200 , 3 : PRINT : PRINTTAB ( 1 ) " 
ENTER A YEAR BETWEEN 1968-1985": 
FORT=1TO3000 : NEXT: PRINT@128 , CL$ : 
GOT014 

16 IF LEN(YR$)<4 OR LEN(YR$)>4 T 
HENPRINT@128 , CL$ : GOT014 

17 YR=VAL(YR$) 

18 PRINT@160,CL$ 

19 PRINT@163, "ASSESSED VALUE AT 
PURCHASE 

20 PRINT@203, "$" ; :LINEINPUT AV$ 

21 IF LEN(AV$)=<0 THENPRINT@128 , 
CL$:GOT019 



2 2 PRINT@160,CL$ 

23 PRINT@169,"% OF ASSESSMENT 

24 PRINT@210,"%":PRINT@207, ; : LIN 
EINPUT AA$ 

25 AA=VAL(AA$) : IF AA=<0 OR AA>10 
THENPRINT@128,CL$:GOT02 3 

26 PRINT§160,CL$ 
AV=VAL(AV$) :AA=VAL(AA$) 
IF AA=100THEN 31 
AA=100-AA 
NV=AV*(AA/100) :MV=AV+NV:GOT03 



27 
28 
29 

30 
2 

31 
32 



MV=AV 

PRINT@165, "HOUSE PURCHASED: " 



;yr$ 

3 3 prints 2 2 9, "assessed value"; :p 

RINTUSING" $###,###" ;AV 

34 PRINT@290, "MARKET VALUE", -YR;: 

PRINTUSING"$###, ###" ;MV 



35 
36 
37 
38 
AR 
39 
40 
41 



PRINT@394,"HIT ANY KEY 

EXEC44539 

PRINT© 1 60, CL$ 

PRINT@166,"LIST VALUE eACH YE 



PRINT@207,"OR 
PRINTS 2 31, "LIST 



PRESENT VALUE 



PRINT@327, "ENTER e OR p 



:LINEINPUT A$ 

42 IF A$="E" THEN EY=1 ELSE IF A 
$="P"THEN 43 ELSE41 

43 PRINT@128,CL$ 

44 IF YR=1968 THEN SV=MV* .042 :MV 
=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 
B72 'INFLATION=4.2% 

45 IF YR=1969 THEN SV=MV* .054 : MV 
=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 
B72 'INFLATION=5.4% 

46 IF YR=1970 THEN SV=MV* . 055 :MV 
=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 
B72 , INFLATION=5.5% 

47 IF YR=1971 THEN SV=MV* . 3 4 : MV 
=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 
B7 2 ' INFLATION=3 . 4 % 
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48 IF YR=1972 THEN SV=MV* .034 :MV 


60 IF YR=1984 THEN SV=MV* .04 :MV= 


=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 


MV+SV:YR=YR+1:IF EY=1 THEN GOSUB 


B7 2 ■ INFLATION=3 . 4 % 


72 'INFLATION=4.0% 


49 IF YR=1973 THEN SV=MV* .088 :MV 


61 PRINT@128,CL$ 


=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 


62 IF YR=1985 THEN SV=MV* .04 :MV= 


B72 'INFLATION=8.8% 


MV+SV:YR=YR+1:IF EY=1 THEN GOSUB 


50 IF YR=1974 THEN SV=MV* . 122 :MV 


72 ' INFLATION=4.0% 


=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 


63 PRINT@128,CL$ 


B7 2 ■ INFLATI0N=12 . 2 % 


64 PRINT@ 16 6, "PRESENT VALUE @";Y 


51 IF YR=1975 THEN SV=MV* . 07 :MV= 


R 


MV+SV:YR=YR+1:IF EY=1 THEN GOSUB 


65 PRINT@235,USING"$#,###,###";M 


72 'INFLATION=7% 


V 


52 IF YR=1976 THEN SV=MV* .048 :MV 


66 PRINT@362,"HIT ANY KEY 


=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 


67 EXEC44539 


B72 'INFLATION=4.8% 


68 PRINT @1 60, CL$ 


53 IF YR=1977 THEN SV=MV* .068 :MV 


69 PRINT© 3 2 5," RUN AGAIN y/n 


=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 


70 A$=INKEY$:IF A$= MI, THEN70 


B72 'INFLATION=6.8% 


71 IF A$="Y"THEN9 ELSE IF A$="N" 


54 IF YR=1978 THEN SV=MV* .09 :MV= 


THENCLS : PRINTTAB ( 9 ) " PROGRAM ENDE 


MV+SV:YR=YR+1:IF EY=1 THEN GOSUB 


D":END ELSE70 


72 'INFLATION=9% 


72 IF YR=1986 THEN GOTO 63: PRINT 


55 IF YR=1979 THEN SV=MV* . 133 :MV 


@128,CL$ 


=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 


73 PRINTS 19 6," VALUE @" ; YR; "=" ; : P 


B72 ' INFLATION=13.3% 


RINTUSING" $###,###" ;MV 


56 IF YR=1980 THEN SV=MV* . 124 :MV 


74 PRINT@325,"HIT ANY KEY TO ADV 


=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 


ANCE 


B72 'INFLATION=12.4% 


75 EXEC44539 


57 IF YR=1981 THEN SV=MV* .089 :MV 


7 6 RETURN 


=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 


77 DATA 72,79,85,83,69,96,86,65, 


B72 'INFLATION=8.9% 


76,85,69,96,67,65,76,67,85,76,65 


58 IF YR=1982 THEN SV=MV* .039 :MV 


,84,79,82 


=MV+SV:YR=YR+1:IF EY=1 THEN GOSU 


78 DATA 66,89,96,72,110,72,65,76 


B72 ' INFLATION=3.9% 


,76,83,84,82,79,77 


59 IF YR=1983 THEN SV=MV* .038 :MV 


79 DATA 86,69,82,96,113,110,118, 


=MV+SV:YR=YR+l:IF EY=1 THEN GOSU 


96,96,96,96,96,91,67,93,96,113,1 


B72 'INFLATION=3.8% 


21,120,116 



s-s-s 



OUTLINER 



SNAP • STUDY • SYSTEM is quick and simple. 

There are no forms to design or set up. 

Just start entering records as in a book. 

At any time, use the arrow keys to browse 

through chapter headings, pages, items. 

It's easy to add, revise, delete, print. 

A unique and cozy filing system is used. 

There are NO FILE NAMES to remember ! I ! 

RECORD reference notes for books, talks, 
glides, checklists, requirements, 
things ba remember, note, review. 

PLAN' an outline or summary for reports, 
manuscripts, agendas, duties, 
any ideas or projects to be done. 



JOBS FILE PARTIAL PRINTOUT 

HOME 

HOUSE MAINTENANCE 

Change kitchen washers 
Paint utility room 
Replace light bulbs 
Check smoke alarm **** 
Car service MON 9AM 

YARD 

Prune hedge, shrubs 
Gate hinges - fix 
Clean out eave troughs 
Marigolds-seed MAR 1st 

ENGINEERING 
PROJECT ' 200 
Preliminary plan 
etc. ... 



3 sample c iles are 
included (see left) 

32K DIoK, 1 DRIVE 

519.95 U.S. $25 CAN 

(+52 Shipping) 

COZY SOFTWARE 

25142 53 Ave 

Aldergrova 

British Col'imbia 

CANADA VOX1A0 
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Toll Free 

Orders Only 

800-245-6228 



Information 
301-521-4886 



If You Pay Taxes 

You Need Coco-Accountant 
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you've just fought a losing bout with your tax 
return, you need Coco-Accountant in your corner! 
This 32/64K home and small busineess accounting 
program is everything you need to keep track of your 
finances-and make tax time a breeze. 

Just spend a few minutes each month entering 
your data: checks, cash outlays, credit card ex- 
penses or income. In any order. CoCo-Accountant 
takes the whole mess and makes sense out of it. 
Here's what it does: 

■ Lists and totals entries by month, ofsetting in- 
come against expenses. 

■ Lists and totals entries by account, payee or 
income source, for a month or a whole year. 

■ Provides a year-to-date summary by account. 

■ Prints a spreadsheet showing activity by ac- 
count and month for the whole year. 

■ Flags deductible expenses. 

■ Flags expenses subject to sales tax and com- 
putes the sales tax you paid. 

■ Sends reports to screen or printer. Stores da- 
ta on tape or disk. 

Our customers say it's the most useful piece of 
software they own. It's so easy and flexible that 
you II be delighted, too! So stop stuffing your re- 
cords in a shoebox and join the computer age! Co- 
co-Accountant is only $34.95 on tape or disk. 
Please specify memory and whether you want tape 
or disk. 





Baseball Stats 
For Your League! 

If you're a coach, play- 
er or baseball fan, you'll 
love Baseball Statpak! 
This series of programs 
will keep track of a team 
or an entire league, with 
incredible screen displays 
and printouts. 
Batter's Scorecard tracks AB, Hits, Runs, Walks, 
RBI's, HR's, SO's, Errors and On-base Percentage 
for up to 180 players! Pitcher's Scorecard tracks 
Games. IP, Hits, Walks, Runs, SO's and ERA for up 
to 60 pitchers. Team Scorecard will keep standings 
for an entire league! 

Lightning-fast machine language sort on any stat 
makes this an invaluable coaching tool! You've seen 
these stats for the Big Leagues in your newspaper. 
Now you can have them for your league, whether it's 
Little Leauge, High School, College, or Amateur 
Softball! Baseball Statpak is available on 16K Tape 
or 32/64K Disk. Extended Basic Required. Only 
$34.95, on tape or disk. 



Thoroughbred, Harness, Greyhound 




-HORSE RACES- 




-HARNE55 RACE 




Use your Color Computer to improve your performance 
at the track! These 16K programs for Thoroughbred. Har- 
ness and Greyhound racing rank the horses or dogs in 
each race quickly and easily, even if you've never handi- 
capped before. All the information you need is readily avail- 
able from the Racing form, harness or dog track program. 
We even provide diagrams showing you where to find each 
item! 

Thoroughbred factors include speed, distance, past 
performance, weight, class, jockey's record, beaten favor- 
ite and post position. Harness factors include speed, post 
position, driver's record, breaking tendencies, clacs, oark- 



ed-out signs and beaten favorite. Greyhound factors in- 
clude speed, past performance, maneuvering ability, favor- 
ite box, class, kennel record, beaten favorite and breaking 
ability. 

We include complete instruction and a wagering guide 
that tells you which races to bet and which to avoid — one 
of the real secrets of good handicapping. You can buy a 
more expensive handicapper, but we don't think you can 
buy a better one! Thoroughbred, Harness or Greyhound 
Handicapper, $34.95 each on tape or disk. Any two for 
$54.95 or all three for $74.95. 



Federal Hill Software 8134 Scotts Level Rd. Baltimore. Md. 21208 
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ASTRONOMY 



16K 
IX B 



J — U^3j 



Determining altitude and azimuth for your 
given location and time, this program points ■ 
the way to our once-in-a-lifetime celestial 



visitor 



•• . • '. 



Zeroing in on 



Halley's Comet 



By Ronald Ptttus 



Cornel Hallcy and its elongated 
tail filled the nightly heavens 
during the 1910 appearance. 
H alley's current visit finds it farther 
from the earth and thus much fainter. 
In fact, astronomers judge it the least 
spectacular appearance in 2.000 years 
and we won't see it again for 76 years. 
Light "pollution" in modern cities will 
further thwart suburban comet 
watchers. 

Hallcy will be visible again, low in the 
southern sky. during the months of 
February, March and April of this year. 
The best aids for viewing this once-in- 
a-lifetime phenomenon are dark skies, 
binoculars mounted on a camera tripod 
and knowledge of exactly where to 
look. 

The hasic program. HALLEY86, 
computes the comet's exact location for 
your locale, date and local time. The 
comet's coordinates are given as an 
altitude and an azimuth. 



Ron Peiius works in the Jli'hl of oper- 
ations analysis and holds a degree in 
physics. His hobbies include astronomy 
and volunteer work at a science mu- 
seum. He and his teenage son, Jason, 
have co-owned a Color Computer for 
four years. 



Altitude and Azimuth 

To better understand altitude and 
azimuth, picture yourself standing 
inside a large circle marked off into 360 
equal segments and numbered zero to 
35'). When you face the segment marked 
zero you are looking due north. As you 
turn to the cast the numbers increase, 
and at due east you arc looking at the 
segment numbered 90. I he numbers 
continue to increase as you turn and at 
due south the number is ISO. Facing 
west the number has increased to 270, 
This describes azimuth, which corre- 
sponds to conventional compass head- 
ings ranging from zero to 360 degrees. 

Now. hold your arm straight out and 
point to the horizon. This corresponds 
to an altitude ol zero. Start moving your 
arm up. As your arm moves upward the 
altitude increases, and halfway between 
the horizon and straight up the altitude 
is 45. Eventually, with your arm point- 
ing straight up. the altitude is 90 (its 
maximum value). 

Using the Program 

For a I6K computer. PCLERR1 lo 
provide enough memory. The program 
first asks if a printer is connected, then 
offers the opportunity to enter a tem- 
porary latitude and longitude represent- 
ing your location: WANT TO CHF.CK 
I. AT & LONG? To permanently store 
your location in the program, modify 



lines I 10 and 120. Line 1 10 contains 
your Hour Angle (longitude divided by 
15) and Line 120 your latitude. Both 
values must be in decimal form. II you 
find longitude or latitude in degrees, 
minutes and seconds, divide the minutes 
by 60 and seconds by 3,600 and add 
both to degrees. Your value is now in 
decimal. You can find the latitude and 
longitude of many cities in an almanac, 
atlas, or even from a local airport. 

Next, you are asked a scries ol ques- 
tions requiring month, day. year, time 
and time zone lor use in the computa- 
tions. The program accepts standard 
and daylight time for Eastern, Central. 
Mountain and Pacific time zones. For 
other zones modify lines 280-390. Use 
the 24-hour lime system for inputs. For 
example. 3:15 a.m. is 0315 and 10:30 
p.m. is 2230. In other words, add 1200 
to the time beginning with I p.m. 

You now choose Halley's comet ('H') 
or ask for the location of some other 
celestial object CO'). When you select 
Halley's comet, the rest of the operation 
is automatic. II you select some other 
ohjeel, you must enter Right Ascension 
and Declination coordinates for the 
object from an almanac or astronomy 
magazine. 

At this point the program prints the 
azimuth and altitude for eight 15- 
minule intervals. It also makes a paper 
copy if you have a printer. 
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Using Altitude and Azimuth 

Now, how do you use this informa- 
tion to find Halley's comet? Take your 
binoculars outdoors on a clear evening, 
as far from city lights as possible, with 
your listing of altitudes and azimuths. 
Using the azimuth coordinate, turn to 
the correct direction. Then tilt the 
binoculars to the correct altitude or 
elevation. A negative altitude means the 
object is below the horizon and not 
visible. 

This process is quicker and more 
accurate if you use a compass or, better 
yet, mount your binoculars on a camera 
tripod and make a pair of "setting 
circles." A pair of inexpensive plastic 
protractors are easily converted for this 
use. An article by Paul Burke describing 
homemade setting circles and the theory 
of altitude-azimuth conversion appears 
in the April 1982 issue of Astronomy 
magazine. 



Checking the Program 

Here is a sample calculation to check 
the program if you typed it in. Use a 
Longitude of 90 degrees, 12 minutes, 21 
seconds and Latitude of 38 degrees, 37 
minutes, 45 seconds (for St. Louis, 
Missouri). Use the date 1,1,84 and a 
time of 2000.C (8 p.m. Central Standard 
Time). Select 'O' (Other Object) and 
enter the following coordinates for the 
star Betelgeuse in Orion: Right Ascen- 
sion (hours) = 5, Right Ascension (min- 
utes) = 54; Declination (degrees) = 7, 
Declination (minutes) = 24. Your dis- 
play should be: 



TIME 
2000 
2015 
2030 
2045 
2100 
2115 



ALT 


RZ 


3G 


113 


39 


116 


12 


120 


44 


123 


47 


128 


49 


132 



2130 


51 13? 


2145 


53 142 


2200 


54 148 


If it doesn't look like this check lines 


1 100-1400. 




Several abbreviations appear on the 


screen display of this program. They are 


interpreted be 


ow. 


Rfl — 


Right Ascension 


DEC — 


Declination 


DEG — 


Degrees 


MIN — 


Minutes 


SEC — 


Seconds 


HR — 


Hours 


ALT — 


Altitude 


flZ — 


Azimuth 



(You may contact the author of this 
program with any questions at 1228 
Fordyce Lane, St. Charles, MO 63303; 
phone 314-946-7848 after 6 p.m. MST 
Please enclose an SASE when writ- 
ing.) □ 



1^220... 


...102 


1620 


...231 


470 .. . 


...106 


1987 .. 


...85 


690 .. . 


...140 


2060 . . 


....26 


950 ... 


....49 


2093 . . 


...250 


1150 .. 


...238 


END .. 


...183 


1380 


54 















The listing: HALLEY8G 

10 'HALLEY FINDER 

20 '1986 

30 'BY RONALD PETTUS 

40 CLS: PRINT @ 195, " 

COMET FINDER" 

50 PRINT @ 2 62," 



HALLEY ' S 



1986" 



ADJUST FOR TIME ZONE 



60 PRINT @ 295, "BY RONALD PETTUS 
it 

70 FOR 1=1 TO 1500 

80 NEXT I 

90 CLS 

100 CLEAR 100 

110 DATA 6.0137407 

120 DATA 38.629167 

130 DIM M$(308) ,K(19) 

140 PRINT"PRINTER ON? (Y/N) " 

150 PP$=INKEY$ 

160 IF PP$="" THEN 150 

170 CLS: PRINT @ 2 3 4, "LOADING DAT 

A" 

180 READ LC,LX 'READ HOUR ANGLE 

& LAT FROM LINES 110 & 120 

190 FORI=0 TO 18:READK(I) :NEXTI 

'READ YEAR FACTORS FROM LINES 19 

82-2000 

200 CLS 

210 PRINT"WANT TO CHECK LONG & L 

AT? (Y/N) " 



220 A$=INKEY$ 

230 IF A$="" THEN 220 

240 IF A$="Y" GOSUB 1610 

2 50 INPUT" INPUT MONTH, DAY, YEAR (X 

X,XX,XX) ";MO,DY,YR 

2 60 PRINT "INPUT START TIME AND T 
IME ZONE." 

270 PRINT"USE 24 HOUR TIME AND T 

HE ZONES:" 

280 INPUT"E,C,M,P,ED,CD,MD,PD";S 

T,ZN$ 

290 

300 

310 

320 

330 

340 

3 50 
3 60 
370 
380 
390 
400 
410 
NE 
420 
430 

OMET OR OTHER OBJECT (H/O)? 
440 D$=INKEY$ 

IF D$="" THEN 440 

IF D$="0" THEN 820 

IF D$="H" THEN 490 

'FUTURE USE 

IF CK=1 THEN 530 

CLS: PRINT @ 2 34, "LOADING DAT 



i ** 

• ** 

i ** 

IF ZN$="E" 
ZN$="C" 
ZN$="M" 
ZN$="P" 
ZN$="ED" 
ZN$="CD" 
ZN$="MD" 
ZN$="PD" 



IF 

IF 

IF 

IF 

IF 

IF 

IF 

' ** 

' ** 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



U=5 

U=6 

U=7 

U=8 
U=4 
U=5 
U=6 
U=7 



MENU AND SELECTION ROUTI 



i ** 
PRINT"DO 



YOU WANT HALLEY'S C 



450 

4 60 

470 

480 

490 

500 

A" 

510 



FOR 1=1 TO 74:READ M$(I):NEX 
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COMPUTERIZE YOUR BUSINESS 

with COMPUTERWARE® 
Affordable Business Software 



System Requirements 

• 64K memory 

• Dual Disk Drives 




Computerware is proud to present affordable business applications that are easy lo use lor your CoCo! 
We are able to offer our powerful business software without requiring any additional software All you 
need is 64K and two disk drives! 

Computerware's business applications have been in use lor over 5 years, so you know they are proven and well- 
tested. They are not tutorials, though, and do assume you know and use sound accounting principals. However, 
these menu-driven systems are truly user-friendly and are accompanied by comprehensive manuals. 



GENERAL LEDGER $125 

This is a comprehensive double-entry accounting system 
with complete audit trails, closing procedures, and full reporting 
The chart ol accounts is flexible and the system easy to use. 
Reports include the General Ledger, Trial Balance, Balance 
Sheet, Income Statement, and Transaction Register. Your 
financial information is at your fingertips! 

CHECK LEDGER $125 

This is a single-entry bookkeeping system which allows the 
users to define a chart of income and expense accounts. Year- 
to-date totals are maintained for each account as well as com- 
plete checking account history. By just entering your checking 
account information, you can have always-current visibility 
over your income and expense ledgers. Financial statements 
and taxes are a snap! 

PAYROLL S175 

This is the most comprehensive payroll you'll find on a 
micro-computer. Besides collecting key employee information, 
it allows entry of pay rates for standard hours, overtime, and 
salary. Hourly, salary, and commissioned employees may be 
paid weekly, bi-weekly, semi-monthly, and monthly. Two types 
of special monthly deductions are also accommodated. Year- 
to-date, quarterly, monthly and current totals are maintained. 
All federal reporting is done automatically and your state com- 
putations are also included. 



INVENTORY CONTROL S125 

This system is designed to help the retailer, distributor, or 
businessman to keep control of this important factor. It stores 
your cost and quantity information, updates it immediately, 
and offers you key management reports with useful summaries 
at any time With four costs, four locations, selling history, and 
vendor information for each item, you will always have the facts! 

ACCOUNTS PAYABLE $125 

This system can give you the tools to plan your business' 
growth by controlling expenditures and forecasting cash require- 
ments. It helps a small business manage and track its cash 
liabilities by collecting vendor invoice information and report- 
ing the business' cash commitments and payment history. 
Along with standard payables reports, it also includes 
payment forecast reports. 

ACCOUNTS RECEIVABLE $125 

All businesses need to know who owes them money! This 
system provides reliable and timely information regarding the 
status ol all customer accounts. You can know instantly which 
accounts are past due, forecast how much money to expect 
to receive for cash flow planning, and keep on top of your cus- 
tomers' credit positions. Customer name, address, credit limit, 
invoice, and payment information is recorded and reports of 
all information including customer statements are available 
upon your request. 




COMPUTERWARE ® 



P.O. Box 668 • Encinitas, CA 92024 • (619) 436-3512 



Computerware is a federally registered trademark ot Computerware. 



Dealer Inquiries Invited 



T I 'READ HALLE Y DATA FROM LINES 


990 IF PP$<>"Y" THEN 1100 


2047-2120 


1000 PRINT#-2,"DATE:"MO"/"DY"/"Y 


520 CK=1 


R; 


530 DN=INT(275*MO/9)-2*(INT((MO+ 


1010 PRINT#-2,"TIME ZONE:"ZN$ 


9)/12))+DY-30 


1020 PRINT#-2 , "OBJECT : "NA$ 


540 A=DN-4 6:IF A<1 OR A>74 OR YR 


1030 PRINT#-2 , "RA: " ;RH; "H"RM; "M 


<86 OR YR>86 THEN 580 


fl ■ 
/ 


550 GOSUB 720 


1040 PRINT#-2,"DEC:"DD"D"DM"M" 


560 GOSUB 770 


1050 PRINT#-2," TIME", "ALT AZ" 


570 GOTO 880 


1060 PRINT#-2, ,"DEG DEG" 


580 CLS 


1070 '** 


590 PRINT @ 167, "SELECT A DATE F 


1080 '** COMPUTE ALTITUDE & AZIM 


ROM" 


UTH 


600 PRINT @ 199, "02/16/86 - 04/3 


1090 '** 


0/86" 


1100 I=YR-82:IF 1=2 OR 1=6 OR 1= 


610 PRINT: PRINT 


10 OR 1=14 OR 1=18 THEN YF=1 ELS 


620 GOTO 2 50 


E YF=2 


630 'FUTURE USE 


1110 DN=INT(275*MO/9)-YF*(INT( (M 


640 'FUTURE USE 


0+9J/12) )+DY-30 


650 'FUTURE USE 


1120 FOR J=0 TO 8 


660 'FUTURE USE 


1130 UT=U+FIX (ST/100) +((ST/100-F 


670 'FUTURE USE 


IX(ST/100) )*100/60)+(J/4) 


680 '** 


1140 GM=K(I)+(.0657098232*DN)+(1 


690 '** UNPACK DATA FROM DATA ST 


.0027379093*UT) 


ATEMENTS 


1150 LS=GM-LC 


700 '** 


1160 IF LS>24 THEN1170 ELSE 1190 


710 'FUTURE USE 


1170 LS=LS-24 


720 RH=VAL(LEFT$(M$(A) ,2)) 


1180 GOTO 1160 


730 RM=VAL(MID$(M$(A) ,3,2) ) 


1190 LS=LS*15 


740 DD=VAL(MID$(M$(A) ,5,3) ) 


1200 RA=(RH+(RM/60) ) *15 


7 50 DM=VAL(MID$(M$(A) ,8,2) ) 


1210 HA=LS-RA 


7 60 RETURN 


1220 DE=SGN(DD)*(ABS(DD)+DM/60) 


770 NA$="HALLEY'S COMET" : RETURN 


1230 R=57. 29577951 


780 'FUTURE USE 


1240 DR=DE/R:LR=LX/R:HR=HA/R 


790 ■** 


1250 X=( (SIN(DR)*SIN(LR) )+(COS(D 


800 '** INPUT FOR OTHER OBJECTS 


R)*COS(LR)*COS(HR) ) ) 


810 '** 


1260 IF X=l OR X=-l THEN1270 ELS 


820 INPUT"INPUT OBJECT NAME";NA$ 


E X=X-FIX(X) 


830 INPUT"INPUT RIGHT ASCENSION ( 


1270 AR=ATN(X/SQR(-X*X+1) ) 


HRS,MIN) ";RH,RM 


1280 AL=AR*R 


840 INPUT" INPUT DECLINATION (DEG, 


1290 X=((SIN(DR)-SIN(LR)*SIN(AR) 


MIN) ";DD,DM 


))/(COS(LR)*COS(AR) ) 


850 '** 


1300 IF X=l OR X=-l THEN1310 ELS 


860 '** SCREEN LIST ROUTINE 


E X=X-FIX(X) 


870 ■** 


1310 ZR=-ATN(X/SQR(-X*X+1) )+1.57 


880 CLS 


08 


890 PRINT"DATE: "MO"/"DY"/"YR; 


1320 AZ=ZR*R 


900 PRINT"TIME ZONE:"ZN$ 


1330 IF HA>0 THENAZ=360-AZ 


910 PRINT"OBJECT:"NA$ 


1340 UT=(FIX(UT-U)*100)+(UT-FIX( 


920 PRINT"RA:";RH;"H"RM;"M "; 


UT))*60:IF UT>2400 THEN UT=UT-24 


930 PRINT TAB (13) "DEC: "DD"D"DM"M 


00 


ii 


1350 AL=FIX(((AL*10)+.5)/10) 


940 PRINT TAB (3) "TIME" ; TAB (12 ) "A 


1360 AZ=FIX(((AZ*10)+.5)/10) 


LTITUDE";TAB(24) "AZIMUTH" 


1370 PRINT TAB(2)UT;TAB(14)AL;TA 


950 PRINT TAB(13)"(DEG)";TAB(25) 


B(25)AZ 


"(DEG)" 


1380 IF PP$<>"Y" THEN 1400 


960 '** 


1390 PRINT#-2,UT,AL;AZ 


970 '** PRINTER ROUTINE 


1400 NEXT J 


980 '** 


1410 '** 
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Personal Productivity Tools from 

Computerware® 

The Complete 

Electronic 
Organizer 

by Warren Ulrich III 




With this desktop software your 
CoCo becomes your own personal 
administrative assistant. Load 
C.E.O. first thing each workday and 
everything you need is at your 
fingertips! Screens are shown in an 
easy-to-read 51x24 hires display 
with upper and lower case. The 
Macintosh-like icons (pictures for 
commands) make it simple and fun 
to be organized, efficient, and on 
time! 

DATE BOOK: 

You'll never miss an important 
occasion again! C.E.O.'s calendar 
stores an entire years 
appointments. Each day has 
entries for one special occasion, 
one memo, and hourly notes for 8 
am to 5 pm. You can display or 
print any daily schedule or a 
whole week at a time. 

CALCULATOR: 

A full four function calculator is 
at your fingertips! 

CLOCK: 

The accurate real-time software 
clock keeps date and time, beeps 
on every hour, and has a 
convenient alarm you can set to 
remind you of those important 
appointments. Let C.E.O. do your 
clock watching for you! 



FREEFORM FILE DRAWER: 

C.E.O.'s free-form data base 
keeps your important info a few 
keystrokes away. Just type in 
your notes (up to 4600 characters 
with a 48 character title line) the 
same way you'd jot them down 
on a scratch pad. Your notes will 
be neatly organized and saved for 
instant retrieval! The 
sophisticated keyword search 
can scan all of the titles for any 
occurrence of a given phrase, 
making it easy to find notes on 
any topic. And there's room for 
alot of info— up to 479 entries can 
be stored on the data disk! 

You can display or print any or all 
entries upon request. C.E.O.'s 
mini-formatter helps print it in 
easy-to-read style. Now you can 
keep track of clients, business 
notes, minutes of meetings, or 
"whatever" with ease! 

MEMO PAD: 

If you need to jot a note to 
yourself or someone else, just 
pull up C.E.O.'s convenient 
memo pad and type away! When 
you're done,, save and/or print it 
as you see it! Use it for quick 
memos, business 
communications, or personal 
reminders. It's easy, quick, and 
organized! 

REQUIREMENTS: $49.95 

64K and at least one disk drive 
are required. C.E.O. supports two 
drive operation when available. 



To Order 

Add $2 surface or $5 air shipping. 
California residents add 6% sales 
tax. VISA and Mastercard 
welcome. Personal checks are 
held for bank clearance. 

Call or Write to: 

Computerware® 

Box 668 

Encinitas, CA 92024 

(619)436-3512 

Ask for our complete catalog! 

Computerware-* is a federally registered 
trademark of Computerware 



Don't Forget! 



by Warren Ulrich 

With Don't Forget! you can record 
the entire year's occasions and 
daily appointments. Each day has 
4 Special Occasions, 2 Memos, 
and hourly notes for 6 am-9 pm. 
Display or print any daily sched- 
ule — or a whole week. You'll 
remember every important event! 
32K Disk $32.95 




New Version! 

CoCo 
Cookbook 

by N. Manchevsky* 
CoCo Cookbook is more than 
just a recipe index! It is a true 
free format data base. Designed 
to store and retrieve a large 
number of recipes, each can use 
up to 3040 characters with title, 
ingredients, and instructions. To 
store other data just ignore the 
words recipe, etc. and enter 
whatever you want to store and 
retrieve! The powerful keyword 
search lets you find entries with 
any special word (or ingredient)! 
A new, powerful copy feature will 
selectively copy recipes to a new 
diskette using the keyword 
search, helping you to organize 
your info easily and quickly! 
(This feature requires at least two 
drives.) Over 200 recipes are now 
included. These great dishes 
alone are worth the price! 

32K Disk $32.95 




Merge n Mail 

by Cris Erving 
Designed to maintain, merge, and 
print mail list information, it 
includes a mail-merge feature that 
can insert your name and address 
info into letters created with your 
word processor. 64K Disk $32.95 



Personal Finance System 





by BJ Chambless 

Your CoCo is your personal book- 
keeper. Set a monthly budget, 
personal chart of accounts, and 
then enter each transaction. PFS 
compares monthly expenses with 
your budget and prints personal 
financial reports. Tax time is so 
much easier! The special invest- 
ment and loan module calculates 
details of financial transactions 
like mortgage payments, princi- 
pals, amortization tables, interest 
rates, and more so you can ana- 
lyze your current and future 
investments. With PFS you will 
not only keep your finances organ- 
ized but can do important analysis 
as well! 

32K Disk $32.95 



1420 '** CHECK FOR NEW INPUTS 1660 L2=FIX( (LX-L1) *60) 


1430 •** 1670 LI=L2/60 


1440 PRINT "ANOTHER OBJECT? (Y/N) " 1680 L3=INT ( (LX- (Ll+LI) ) *3600) 


1450 A$=INKEY$ 1690 PRINT"LONG: " ;LD ; "D"LM; "M"LS 


1460 IF A$="" THEN 1450 ;"S LAT: " ;L1 ; "D"L2 ; "M 


1470 IF A$="Y" THEN 1480 ELSE 15 "L3;"S" 


70 1700 PRINT" WANT TO CHANGE LONG? ( 


1480 CLS Y/N) " 


1490 PRINT"ANOTHER TIME? (Y/N) " 1710 A$=INKEY$ 


1500 B$=INKEY$ 1720 IF A$="" THEN 1710 


1510 IF B$="" THEN1500 1730 IF A$="N" THEN 17 60 


1520 IF B$="Y" THEN 1530 ELSE 43 1740 INPUT "INPUT LONG (XX, XX, XX) 


DEG,MIN,SEC";LD,LM,LS 


1530 PRINT"ANOTHER DATE? (Y/N)" 1750 LC= (LD+LM/60+LS/3 600) /15 


1540 C$=INKEY$ 1760 PRINT"WANT TO CHANGE LAT?(Y 


1550 IF C$="" THEN 1540 /N) " 


1560 IF C$="Y" THEN 250 ELSE 260 1770 A$=INKEY$ 


1570 END 1780 IF A$="" THEN 1770 


1580 '** 1790 IF A$="N" THEN 1820 


1590 '** CHECK AND CHANGE LAT & 1800 INPUT "INPUT LAT (XX, XX, XX) D 


LONG EG,MIN,SEC";L1,L2,L3 


1600 '** 1810 LX=(Ll+L2/60+L3/3 600) 


1610 LD=FIX(LC*15) 1820 RETURN 


1620 LM=FIX((LC*15-LD) *60) 1982 DATA 6.62240808 


1630 LI=LM/60 1983 DATA 6.60649392 


1640 LS=INT( (LC*15-(LD+LI) )*3600 1984 DATA 6.59057904 


) 1985 DATA 6.64037496 


1650 L1=FIX(LX) 1986 DATA 6.62446008 






1988 DATA 6.59263200 














1989 DATA 6.64242696 




# COLOR BANKBOOK $19.95 




1990 DATA 6.62651304 

1991 DATA 6.61059792 




# BUSINESS BANKBOOK 




1992 DATA 6.59468400 




SYSTEM ONE 




1993 DATA 6.64447896 




FOR ONE DISK DRIUE 




1994 DATA 6.62856504 

1995 DATA 6.61265112 




$49.95 




1996 DATA 6.59673600 




SYSTEM TWO 




1997 DATA 6.64653192 




FOR TWO DISK DRIUES 




1998 DATA 6.63061704 




549.95 




1999 DATA 6.61470312 




# SUPEROISK UTILITY 




2000 DATA 6.59878800 
2047 DATA 2051-1208 




* 9.95 




2048 DATA 2049-1225 

2049 DATA 2048-1242 




# RADIOLOG $ 9.95 




2050 DATA 2046-1259 

2051 DATA 2044-1317 




# WRITE FOR MORE 
INFORMATION. 




2052 DATA 2042-1335 






2053 DATA 2041-1353 








2054 DATA 2039-1412 




AIL PROGRAMS INCLUDE MANUALS , 
REQUIRE 3£K AND 1 DISK DRIVE. 




2055 DATA 2037-1431 




ADD it."" SNIPPING I HANDLING 




2056 DATA 2035-1450 




FLORIDA RES. ADD $/. SALES TAX -^^ 




2057 DATA 2034-1510 






2058 DATA 2032-1530 

r~v rt f~~ <\ t-^ -1 m -a <■»* *-rf *h s*4 ^ i — ■ f— -\ 




^^ 8901 NW 26 ST DEPT R 




2059 DATA 2030-1551 






2060 DATA 2029-1612 






2061 DATA 2027-1634 




SUNRISE, FL 33322 




2062 DATA 2025-1656 

2063 DATA 2023-1719 



88 



THE RAINBOW April 1986 



2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



2021- 
2020- 
2018- 
2016- 
2014- 
2012- 
2010- 
2007- 
2005- 
2003- 
2000- 
1957- 
1954- 
1951- 
1948- 
1944- 
1941- 
1937- 
1932- 
1927- 
1922- 
1916- 
1909- 
1902- 
1854- 
1845- 
1835- 
1824- 
1811- 



1742 
•1806 
1831 
1857 
1924 
1952 
2021 
•2051 
2123 
2156 
2230 
2306 
2344 
2424 
2507 
2551 
2638 
2728 
2820 
2916 
3015 
3117 
3223 
3333 
3446 
3603 
3723 
3845 
4009 



2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



1757- 
1740- 
1722- 
1702- 
1640- 
1616- 
1551- 
1524- 
1458- 
1432- 
1407- 
1344- 
1323- 
1303- 
1246- 
1231- 
1218- 
1206- 
1156- 
1146- 
1138- 
1130- 
1124- 
1118- 
1113- 
1108- 
1104- 
1100- 



•4134 
•4256 
•4414 
•4524 
•4623 
•4706 
•4730 
•4732 
•4709 
•4624 
4517 
4353 
4215 
4028 
3836 
3643 
3450 
3300 
3114 
2934 
2759 
2630 
2506 
2348 
2235 
2127 
2024 
1925 



/^\ 




Makes learning so much FUN . . . 
. . . that kids think it's a game! 

level 1: Echos each key pressed in solid 
block letters and plays a random 
melody. 

level 2: The user echos the random 

number or letter. The computer 
responds with a random melody. 

level 3: The user echos random words 
displayed. The computer echos 
with a random melody. 

$24 16k ECB 

disc or tape 



send for more informal/on: 



Challenger Software 

42 4th Street 

Pennsburg, PA 18073 

Call (215) 679-8792 (Evenings) 



RAINBOW 



For maker 

the fastest, most complete 
office package yet! 

Totally Menu Driven 

Customize with company information 

Complete "on screen" instructions 



FORMS 


STORES 


FIGURES 


letter 


complete forms 


quantity 


invoice 


item list 


list 


quote 


subquotes 


net 


purchase order 


letters 


discount 


mail order 


footnotes 


subtotals 


confirm order 


customer info 


tax 


receipt 




freight, etc. 


SEPARATE CONFIGURE 




PROGRAM 




PRINTS 


for company info 


form feed 


printer options 




letterhead 


quote & inv. » 




envelope 


w/auto sequenc 


ing 


multiple copy 


auto date 


$< 


emphasized 
19 32k ECB disc 



send lor more inlormation: 

Challenger Software 

42 4th Street 

Pennsburg, PA 18073 

Call (215) 679-8792 (Evenings) 



RAINBOW 
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Computer Island Educational Software 

227 Hampton Green, Staten Island, New York 10312 

(718) 948-2748 



PROGRAM TITLE 

PRESCHOOL 

Preschool I • counting 
Preschool II - adding 
Preschool III - alphabet 
Music Marvel-play songs 
Arrow Games - 6 games 
First Games - 6 games 
Mr. Cocohead-facemaker 
Bentley Bear 

LANGUAGE ARTS 

Beyond Words 1-3 parts 
Beyond Words 2-3 parts 
Beyond Words 3-3 parts 
Vocabulary 1-1000 words 
Vocabulary 2-1000 words 
Vocabulary 3-1000 words 
Context Clues 
Cocoiot - jotto game 
Reading Aids - 4 parts 
King Author - writing tool 
Cocowheel of Fortune 
Context Clues 



GRADES MEMORY price PROGRAM TITLE 



GRADES MEMORY PRICE 



Pre-K 
Pre-K 
Pre-K 
Pre-K. 1 
Pre-K, 1 
Pre-K, 1 
K-3 
Pre-K 



3-5 

6-8 

9-12 

3-5 

6-8 

9-12 

4,5,6,or 7 

3-up 

2-4 

2-6 

4-up 

2-3 



FOREIGN LANGUAGES 

French Baseball-200wds. 4-up 
French Baseball-500wds. 4-up 
Spanish Baseball-200wds 4-up 
Spanish Baseball-500wds 4-up 
Italian Baseball-200wds, 4-up 
Hebrew Alphabet beginners 



16K Ext. 
16KExt. 
16K Ext. 
16K-Ext. 
32K-Ext. 
32K-Ext 
16K-Ext. 
32K-Disk 



32K-Ext. 

32K-Ext. 

32K-Ext. 

32K-Ext. 

32K-Ext. 

32K-Ext. 

16K-Ext. 

16K 

16K-Ext. 

16/32 Ext. 

32K-Ext. 

32K-Ext. 



16K-Ext. 
32K-Ext. 
16K-Ext. 
32K-Ext. 
16K-Ext. 
16K-Ext. 



Hebrew Utility 



drawing utility 16K-Ext. 



CRITICAL THINKING PROBLEMS 

Memory Castle-Sunburst 4-up 32K-disk 

Factory by Sunburst 4-up 32K-disk 

Pond by Sunburst 2-up 32K-disk 

Teasers by Tobbs-Sunb. 4-up 32K-disk 

Inner City - simulation 7-up 32K-disk 

Find The Math Sequence 4-up 32K-Ext. 

Stranded-graphic advent. 4-up 32K-disk 

TEACHER/STUDENT AIDS 

Colorgrade - gradebook Adult 32K-disk 

Quizmaker - write quizzes 5-up 32K-Exl. 

ETT typing tutor icucow.vei'ou-y.i 4-up 16K-Ext. 

The Puzzler (Coiotconnociiom 4-up 32K-disk 



11.95 
11.95 
11.95 
11.95 
21.95 
24.95 
16.95 
29.95 



19.95 
19.95 
19.95 
19.95 
19.95 
19.95 
17.95 
11.95 
1995 
29.95 
19.95 
19.95 



11.95 
19.95 
11.95 
19.95 
11.95 
11.95 
15.95 



44.95 
44.95 
44.95 
44.95 
49.95 
19.95 
24.95 



29.95 
24.95 
21.95 
29.95 



24.95 
14.95 
14.95 
24.95 
19.95 
14.95 
17.95 
19.95 
11.95 



16K-Ext. 14.95 
16K-Ext. 14.95 
16K-Ext. 19.95 



MATH 

Opening a Bank Account 4-7 32K-disk 

Dollars & Sense 2-4 16K-Ex1. 

McCoco's Menu 3-5 16K-Ext. 

Moneypak 2-5 32K-Ext. 

Graph Tutor 3-7 32K-Ext. 

Graph-It 7-up 16K-Ex(. 

Math Invaders 1-8 16K-Ext. 

Mathquiz - 4 operations 2-5 32K-Ext. 

Addition & Subtraction 2-3 16K 

Skill Tutor Series 

Division Tutor 3-7 

Multiplication Tutor 3-7 

Factors Tutor 5-8 
Fractions Tutors a programs) 

addition, subtraction or multiplication 4-8 16K-EXt. 

Trigonometry 8-10 32K-Ext. 

Equations Linear 7-9 32K-Ext. 

Equations Quadratic 8-11 32K.Ext. 

Anth. Diagnostic Disk 3-8 32K-disk 

Fraction Diagnostic Disk 4-9 32K-disk 

Verbal Problems Series 

Distance Problems 5-8 32K-Ext. 

Area & Perimeter 5-8 32K-Ext. 

Pizza Game 3-5 32K-Ext. 

Sales & Bargains 6-8 32K-Ext. 

Comparison Shopping 4-7 32K-Exl. 

Binary Dice Game 4-up 32K-Ext. 

SOCIAL STUDIES 

Know Your States 5-up 

History Game 5-up 

States & Capitals 5-up 

Explorers & Settlers 4-up 

Famous American Women 6-up 

Street Map Game 3-5 

MISCELLANEOUS 

Name That Song 1,2, or 3 2-up 

Music Drill 3-up 

Science Game 8-up 

Computer Literacy 6-up 

5 Educational Programs 1-2 or 

with Lightpen 3-6 32K-disk 

Chemistry Tutor 10-up 32K-disk 

Disk indicates available on disk only. 

Tape prices given. 

Add S5.00 for any program on disk. 



I9.95ea 
24.95 

19.95 
19.95 
49.95 
49.95 

19.95 
19.95 
19.95 
19.95 
19.95 
19.95 



32K-Ext. 


19.95 


32K-Ext. 


14.95 


32K-Ext. 


19.95 


32K-Ext. 


19.95 


32K-Ext. 


19.95 


32K-Ext. 


19.95 



16K-Ext. 11.95 

16K-Ext. 19.95 

32K-disk 29.95 

32K-Ext. 19.95 



44.95 
29.95 




\7 
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The Educational Answers 



SCIENCE GAME 

32K EB - disk only/$29.95 
Over 600 questions in 9 categories 
Makes learning science facts fun 
Game format. 1 or 2 players, teams. 
Grade 8 and up. 




STREET MAP GAME 

32K • $19.95 tape/$24.95 disk 
Hi-res. screen and graphics portray 
a typical section of a street map This 
one shows people's homes, the 
school, the park, etc Questions on 
how to get from one place lo another 
are asked and the footsteps ate 
shown 

CHEMISTRY TUTOR 

32K - disk only - $29.95 
A hi-res. 4 part program that drills 
high school students in Elements, 
Symbols, Naming Compounds, 
Common Ions, and Balancing Equa- 
tions. Correct answer given after 2 in- 
correct responses A valuable tool for 
studying chemistry 

5 LIGHTPEN PROGRAMS 

32K EB - $44.95 

Five menu driven educational pro- 
grams designed lor children in grade 

1 and 2. and special educational 
students Basic addition, basic 
multiplication, shape series mat- 
ching, number series matching and 
word rhyming are included. All on a 
HI-RES screen, with graphics User 
need only to use the light pen to 
operate the programs (LIGHT PEN 
INCLUDED) 



VERBAL MATH PROBLEMS 

PIZZA GAME 
32K EB - tape/$19.95 
Learn to locate coordinates on a 
grid. HI-RES text and graphics. 



AREA & PERIMETER 

32K EB - tape/$19.95 
Triangles, rectangles, and circles 
are covered in this HI-RES text and 
graphics program. 



SALES & BARGAINS 

32K EB - tape/$ 19.95 
Learn to find the discounted price 
HI-RES lext and beautiful graphics 



DISTANCE PROBLEMS 

32K EB - tape/$19 95 
Moving giaphics and lext combines 
on a HI-RES screen Rate x Time = 
Dislance in all its lorms. 



ATTENTION 
TANDY 1000 USERS 

NOW AVAILABLE! EACH $34.95 
4 of our most effective math pro- 
yams have been converted lor use 
on the popular Tandy 1000. 

1. OPENING A BANK ACCOUNT 

2 COMPARISON SHOPPING 

3 DISTANCE PROBLEMS 
•I SALES AND BARGAINS 



OPENING A BANK ACCOUNT 

32K - Disk Only - $24.95 
A set of programs designed to in- 
troduce and provide practice in the 
skills of filing out bank applications, 
deposit and withdrawal slips, and 
computing bank account balances. 
Loaded with graphic presentations. 
Grades 3-6. 



4> tf>dk 



DOLLARS & SENSE 

16K-Ext. - $14.95 tape/$19.95 disk 
Learn to make purchases. Graphic 
displays of items kids love. Player 
buys items using dollars and coins 
to practice using money correctly. 
Solutions given. 

McCOCO'S MENU 

16K-Ext. - $14.95 tape/$19.95 disk 
America's tavorite pastime-going out 
to eat. Learn to buy and add up your 
purchases from a typical fast food 
restaurant menu. Gain skill in using 
money. Different prices each time. 

COCO WHEEL OF FORTUNE 

32K - $19.95 tape/$24.95 disk 
Hi-res. graphics and screen in this 
version of the popular TV show. 1-6 
players. Spin the wheel for points 
and guess a letter to solve one of the 
200 puzzles. Have fun while 
strengthening LA skills. 

COLORGRADE 

32K - disk only - $29.95 
An easy to use classroom grading 
program Keeps grades for up to 6 
classes of up to 40 students per 
class Many options including 
weighted averages and hard copy to 
prmtei 





RAINBOW 

CERTIFICATION 

(718) 948-2748 
Dept R 227 Hampton Green. Staten Island. NY. 10312 

Send lor catalog with compiele descriptions 
Please add SI 00 pel ordei Fo( postage NY residents, please add proper tax FREE set ol BINARY DICE including lull directions, with 
orders ol 2 or more items 

Dealer Inquiries Invited. 



TRS-80 Color Ccmpuler 



All Payments in U.S. Funds. 




BUDGETING 



16K 
ECB 



HI lie "Bf 
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The Computer-Aided 
College Expense Fund 



By Jerry R. Whittlesey 



With the cost of a college edu- 
cation skyrocketing and the 
student loan program drying 
up, parents who aspire to a college 
education for their children are recog- 
nizing the need for a college expense 
fund. Some already have a "nest egg" 
for thai purpose. Others are setting up 
a fund to which they will make regular 
contributions. 

This program. College Expense, per- 
mits forward-looking parents to ex- 
plore their options based on certain 
assumptions. The user enters the 
amount of the "nest egg," called "initial 
deposit," the interest rate expected, the 
planned annual contribution to the 
fund and the expected annual costs 
when the kids are in college. 

Based on these assumptions, the 
program displays the balance in the 
fund at the beginning and end of each 
year. As an option, the program also 
provides a printout of the starting 
balance, annual contributions (depos- 
its), interest earned, expenses and the 
ending balance for each year from the 
present through the graduation of the 
youngest child. 

Jerry Whittlesey is general manager for 
Harvey Press. Inc., a commercial print- 
ing company in New Orleans. 
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The program is customized to reflect 
the author's situation (two children, one 
of whom will start college in the fall of 
1986; the other in 1989). However, it 
may easily be adapted to any situation. 

To customize College Expense, it's 
best to start by charting the educational 
events from this year forward. Here is 
a chart of the author's circumstances: 



ffl 


#2 




1985 




None in college — no 
expenses. 


1986 i/ 2 




One in college half-year 
- no loop required. 


1987 1 




One in college full year 
- two-year loop. 


1988 1 




One in college full year 
- two-year loop. 


1989 1 


'/> 


One full year: one half 
year — two-year loop. 


1990 Vi 


1 


One full year: one half 
year - - two-year loop. 


1991 


1 


One in college full year 
- two-year loop. 


1992 


1 


One in college full year 
— two-year loop. 


1993 


Vi 


One in college half-year 
- no loop required. 



Lines 

20-50 



60 



210 



80-220 



With these circumstances in mind, 
let's take a look at how the program 
works. 



Function 

Asks for input of the four 
variables. Holds the initial 
deposit amount for use in 
lines 280 and 550. Converts 
interest to a percentage. 
Used to format screen. If 
you do not have PRINT 
USING, just change Line 
220 to PRINT X,fi,F:RE 
TURN. 

This subroutine calculates 
interest (note that it as- 
sumes a mid-year contri- 
bution and simplistically 
credits the fund with only 
one-half a year's interest 
for that year's contribu- 
tion). It then calculates the 
balance for the year (R) 
before expenses. 
Calculation section. If the 
circumstance occurs only 
once (1 985, 1986 and 1993), 
'X' is assigned the value of 
that year, no FDR X= loop 
is set up, and no NEXT X is 
required at the end of the 
line. The F= part of the line 
is the key component (see 
chart). 'D' is the expected 
cost or expense per year. 
The F= components by 
year are: 1985, F=R; 1986. 



230-560 



F=R-(D/2); 1987, F=R- 
D; 1988, F=R-D; 1989, 
F=R-(D*1.5); 1990, F=R- 
(D*1.5); 1991, F=R-D; 
1992, F=R-D; and 1993, 
F=R (D/2). 

Performs essentially the 
same function, but pro- 
vides a printout. If the user 
does not want this feature, 
just change Line 230 to 
END. 



Remember that PRINTB-2 is the 
command for the Line Printer VII. It 
should be changed to LPRINT for sys- 
tems using that command. 

If the user is fortunate enough to be 
planning well ahead — or unfortunate 
enough to have lots of kids — the screen 
display capacity may be exceeded and 
the early years will scroll off the screen. 
The fix is to change Line 10 to read: 

10 'COLLEGE EXPENSES:CLS:S=0 



Then delete RETURN from Line 220 and 
add these two lines: 

222 S=S+1: IF 5=12 THEN 224 ELSE 

RETURN 

224 FOR T=l TO 1500:NEXT 

T: 5=0: RETURN 

The delay created in Line 224 may be 
lengthened or shortened by changing 
the number 1500. □ 



Sample 


Run 












*************** COLLEGE EXPENSES 


*************** 






With 


an 


initial deposit of $ 5000 


at 8 % interest. . . 




if we 


make an annual 


contribution 


(or deposi 


t) of $ 1000 ,... 




and the 


expenses per 


year are $ 7 


50 ,this is 


the 


schedule: 




YEAR 




START 


DEPOSITS 


INTEREST 




EXPENSES 


END 


1985 




5,000 


1,000 


440 




?> 


6,440 


1986 




6,440 


1,000 


555 




375 


7,620 


1987 




7,620 


1,000 


650 




750 


8,520 


1988 




8,520 


1,000 


722 




750 


9,491 


1989 




9,491 


1,000 


799 




1,125 


10,166 


1990 




10,166 


1,000 


853 




1,125 


10,894 


1991 




10,894 


1,000 


912 




7 50 


12,055 


1992 




12,055 


1,000 


1,004 




750 


13,310 


1993 




13,310 


1,000 


1,105 




375 


15,040 



\ 



170 ... 


...192 




310 ... 


...118 




END 


54 









The listing: COLLEGE 

10 'COLLEGE EXPENSES : CLS 

20 PRINT: INPUT "INITIAL DEPOSIT"; 

A:H=A 

30 PRINT: INPUT" INTEREST RATE";B: 

E=B/100: 'INTEREST 

40 PRINT: INPUT "CONTRIBUTION PER 

YEAR";C 

50 PRINT: INPUT" COST PER YEAR";D 

60 FA$=" #### ###,### 

###,###" 

70 CLS: PRINT: PRINT" YEAR BEG 

INNING END" 

80 X=1985:'NONE IN COLLEGE 

90 GOSUB 210:F=R:GOSUB 2 20:A=F:' 

F=YEAR-END AMOUNT 

100 X=198 6: 'ONE IN COLLEGE HALF 

YEAR 

110 GOSUB 210 :F=R- (D/2) :GOSUB 2 2 



0:A=F 

120 FOR X=1987 TO 1988: 'ONE IN C 

OLLEGE 

130 GOSUB 210:F=R-D:GOSUB 220:A= 

F:NEXT X 

140 FOR X=1989 TO 1990: 'TWO IN C 

OLLEGE (1-1/2 EACH) 

150 GOSUB 210:F=R-(D*1.5) :GOSUB 

220:A=F:NEXT X 

160 FOR X=1991 TO 1992: 'ONE IN C 

OLLEGE 

170 GOSUB 210:F=R-D:GOSUB 220:A= 

F:NEXT X 

180 X=1993:'ONE IN COLLEGE HALF 

YEAR 

190 GOSUB 210 :F=R- (D/2) : GOSUB 22 

9> 

200 GOTO 2 30: 'G=INTEREST 

210 G=(A*E)+( (C*E)/2) :R=A+C+G:RE 

TURN 

220 PRINT USING FA$ ;X, A, F: RETURN 

2 30 PRINT" ": PRINT "WOULD YOU LIKE 

A PRINTOUT<Y/N>?" 
240 R$=INKEY$:IF R$="" THEN 240 
2 50 IF R$="Y" THEN GOTO 2 60 ELSE 

END 
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26J3 FM$="#### ###,### 


390 J=D/2: GOSUB 560:H=F 


##,### ##,### ##,# 


400 FOR X=1987 TO 1988: "ONE IN C 


## ###,###" 


OLLEGE 


27J3 PRINT#-2, "*************** CO 


410 GOSUB 550:F=Q-D 


LLEGE EXPENSES ***************": 


420 J=D: GOSUB 5 60:H=F:NEXT X 


PRINT#-2,"" 


430 FOR X=1989 TO 1990:'TWO IN C 


280 PRINT#-2,"With an initial de 


OLLEGE (1-1/2 EACH) 


posit of $"H" at "B"% interest.. 


440 GOSUB 550:F=Q-(D*1.5) 


ii 

• 


450 J=D*1.5:GOSUB 560 :H=F: NEXT X 


290 PRINT#-2, "if we make an annu 


460 FOR X=1991 TO 1992:'ONE IN C 


al contribution (or deposit) of 


OLLEGE 


$"C", ..." 


470 GOSUB 550:F=Q-D 


30j3 PRINT#-2 , "and the expenses p 


480 J=D: GOSUB 560:H=F:NEXT X 


er year are $"D",this is the sch 


490 X=1993:'0NE IN COLLEGE HALF 


edule: " 


YEAR 


310 PRINT#-2,"" 


500 GOSUB 550:F=Q-(D/2) 


320 PRINT #-2, "YEAR START 


510 J=D/2: GOSUB 560 


DEPOSITS INTEREST E 


520 PRINT"": PRINT" DO ANOTHER <Y/ 


XPENSES END" 


N>?" 


330 PRINT#-2,"" 


530 R$=INKEY$:IF R$=""THEN 530 


340 X=1985:'NONE IN COLLEGE 


540 IF R$="Y" THEN GOTO 10 ELSE 


350 GOSUB 550:F=Q 


END 


3 60 J=0: GOSUB 560:H=F 


550 G=(H*E)+((C*E)/2) :Q=H+C+G:RE 


370 X=1986:'ONE IN COLLEGE HALF 


TURN 


YEAR 


560 PRINT#-2, USING FM$ ;X,H, C, G, J 


380 GOSUB 550:F=Q-(D/2) 


, F : RETURN ^ 



BEST 



WE'VE CHOSEN THE BEST OF OVER 400 PROGRAMS AND 
PACKAGED THEM FOR YOU! 10 TO 12 PROGRAMS EACH 
PACKAGE. COLOR COMPUTER ONLY 



# 1 Home Management #2 Utility 


i #3 Machine Language Tu 


orial 


Budget 


Cassette Merge 


Basic Compiler 


-ftecKoook Baancer 


Coco Monitor 


ML Tutorial Lfi 


^ostol Living 


Tape Analysts 


(9 Programs) 


Lnyca*; 


ML lo Data 


MLTDtdonary 


:iecuon.cDateDOoK 


High Tcfl Mod 


Coco TecfirKoJ Look Pt 1-3 


Account Manager 


High Ten 




SiochMarkei 


Program Packer 




fVcwdProcesso' 


Easy Base 




.oneryAnaiysi 
Coco Dataoaw 


Key Repeal 




Full Screen Editor 




^oco Terminal 


Romcopy 




Bartender 


Basicram 




#4 Adventures 


#5 Games 

Trek 


#6 Utilities II 


Treasures oiBarsoom 


OiWDirProl 


QHflf Mansion 


Gaiact« Conquest 


Dir. Pack & Sort 


loilege Aflvenijre 


Wutods 


Disk Zapper 


^oco-Tenesifiai 


The Power Sword 


Rol Out 


escape 


Steps 


DossBoss 


Zecior 


RoWl Bomber 


Dak Backup 


SkiORo* 


ForceField 


5 174 Editor 


Quest 


flal Attack 


5V24 Screen 


Naughide 


Caterpillar Cave 


Autocopy 


Haunleo House 


Meteor 


Fastsort 


Some ot those programs above 


1 Error ignore' 
Text Screen Print 


Can Belt to W W carh 






y^^v 


s 29 95 each 




— — m ^ mam 1 


/a^v\ 


TAPE OR DISK 






RAINBOW 


** SPECIAL** 
BUY 2 OR MORE SAVE 10% 




■ ■! 


HAL 


BUY 4 OR MORE SAVE 20% 





THE GREATEST SOFTWARE 
DEAL ON EARTH! 



GET 12 DISKS OR TAPES A YEAR CONTAINING OVER 120 QUALITY PRO- 
GRAMS. A SUBSCRIPTION TO T & D SOFTWARE CONSISTS OF 10 READY- 
TO-LOAD PROGRAMS DELIVERED BY FIRST CLASS MAIL EVERY MONTH. 

NO, WE ARE NOT THE SAME AS THE RAINBOW ON TAPE. IN FACT, MANY 
SUBSCRIBERS HAVE WRITTEN IN AND SAID THAT WE ARE MUCH BETTER 
THAN RAINBOW ON TAPE! 




• PRICES - 



TAPE OH DISK 

1 YEAR (12 issues) 70.00 
6 MO. (6 issues) 40.00 
1 ISSUE 9.00 

Michigan Residents Add 4% 

Overseas Add S10 to Subscription Price 

Personal Checks Welcome 1 



* Color Computer Only 

* 16K Extended Required 

* Over 3000 Satisfied Customers 

* Back Issues Available From 

* July '82 (Over 400 Programs) 

* THIS MONTH ONLY * 



SUBSCRIBE FOR A YEAR 
AND RECEIVE A 
FREE PACKAGE 
OF YOUR CHOICE 



OUR LATEST ISSUE CONTAINED 
I HOME PRODUCT EVALUATION 
2. YAHT2EE 
3 DISK FILE UTILITY 

4. UACH II 

5. ELECTRONIC BILLBOARD 

6. THE GREAT CHASE 

7. SUPER MANSION ADVENTURE 
5. SLOT MACHINE GIVE AWAY 

9 TEXT BUFFER /- 

10. TUNNEL RUN 



RAINBOW 

CM mCAfMM 



MditorCord 



T & D SUBSCRIPTION SOFTWARE, P.O. BOX 256C, HOLLAND, Ml 49423 (61 6) 396-7577 
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t/s/rcg r/zw handy utility makes a 
thrifty habit even more satisfying 



Waste Not, Want Not 
with Refund-A-File 

By Donald A. Turowski 



Did you ever notice the forms 
hanging in your local store that 
say "Get $2 Back!"? Did you 
wonder if anybody ever bothered to 
take one and actually use it? 

What? You mean you actually sent it 
in? And, you say you actually got $2 
back? 

Well, that makes you a "refunder"! 
Welcome to the growing world of "re- 
funding." You're not alone, of course. 
Millions of people, men, women, even 
children, use these forms on everything 
from soup to nuts. Even software for 
personal computers! 

For these people, the following pro- 
gram will be of great use. Refund-A- 
File is a filing-type program for the avid 
(and occasional) refunder. Refund-A- 
File keeps a disk file of your available 
refund forms so you don't have to 
physically sort through them to see if 

Donald Turowski has a bachelor's 
degree in education and teaches algebra 
and computer literacy in the Burrells 
School District in Natrona Heights, 
Pennsylvania. He is married and has 
two children. 



you have that $5 rebate on the new 
coffeemaker that you want to buy. 

Refund-A-File will print a hard copy 
of your refund forms if you want. It will 
also add to your list, delete from your 
list and replace forms on your list with 
other forms. 

Oh, there's one more option I should 
mention. Refund-A-File will also al- 
phabetize your list. No more looking 
through the entire list for an item; it will 
be as easy as A, B, C. 

Refund-A-File is menu driven for 
relatively easy use. It can be used to 
store a disk file of refund forms or can 
be used to store your proofs of purchase 
(POPS) that so many refunders keep 
until needed for a refund. In fact, it can 
also be used to make out your weekly 
or monthly shopping list if you simply 
use Option 1 and then use the printer 
Option 5. And, if you want to have your 
shopping list alphabetized, just use that 
option before printing. 

If you do not want to type in Refund- 
A-File, send a check or money order for 
$9.95 to me at 1236 Ninth Avenue, 
Natrona Heights, PA 15065. I'll send 
you Refund-A-File so you can start 
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using it in your refunding activities. 

Briefly, here are some features and 
hints for Refund- A- File: 

1) Storage available for 300-400 
items. 

2) As you enter items, be brief — for 
example, do not enter Minute Maid 
orange juice SI refund but condense it 
to: Minute Maid OJ $1-3/31/86. 

In this way, you'll save room for as 
many items as possible. Notice that you 
can include the expiration date for the 
refund if you want. This may reduce the 
number of items to 300. but should be 
worth it. 

3) Use Refund- A -File to update your 
forms, POPS and qualifiers frequently, 

4) He sure to use the end-session 
option before shutting off the machine 
since it contains the reminder to save 
any changes you made in your file. The 
one time you do not use it probably will 
be the time you'll forget to save your 
updated file! 

5) The Alphabetizing Routine will 
take time to complete, depending on the 
number of items in your list. There will 
be a tone to indicate when it is com- 
pleted. 

6) When replacing or deleting items, 
you must determine the number of the 
item (refer to Option 5 to view the list). 



7) When printing the list on the 
printer, you will be asked for a title. This 
will appear on your printout at the top. 

8) Happy refunding! 

(You may contact Mr. Turowski with 
any questions about Refund- A- File at 
1236 Ninth Avenue, Natrona Heights, 
PA 15065, phone 412-224-6529. Please 
include an SASE when writing.) □ 




Sample Printout 

CoCo Refund List 

1 ADOLPHS $1 REFUND 

2 AIRWICK $3 OFFER 

3 ALPO $1 REFUND 

4 AT&T LONG DISTANCE 

5 AUNT JEMIMA FREE BUTTER 

6 BAKERS CHOICE COOKBOOK 

7 BIC DEAL 

8 BLACKS. DECKER/GE REBATES 

9 BUFFERIN $2 OFFER 

10 CADBURY FREE MILK 


Example 1 is a sample of the printout 
that is produced by the printer option 
of Refund- A- File. Example 2 is the 
alphabetized version of the first list. 




Example 1 

1 Tide SI Refund 5' 30/ 85 

2 Ziploc Free Bread 9/30/85 

3 0rco/Hi-C 11/30/85 

4 Glad $1 6/30/85 
SPrellSI.50 8/30/85 

6 Axion Coupons 7/31/85 

7 Biz $2 6/30/85 

8 Tang Free Pitcher 6/30/85 

9 Dole Pineapple 11/30/85 

10 Nabisco S 20 12/31 85 

11 Kraft Barbeque 8/30/85 

12 Kraft Cheeses 8/30/85 

13 Heinz Ketchup SI 6/30/85 
l-t Zipwax Refund 7/30/85 
15 Mr. Coffee $4 12,31/85 


Example 2 

1 Axion Coupons 7/31/85 
2BizS2 6/30/85 

3 Dole Pineapple 11/30/85 

4 Glad SI 6/30/85 

5 Heinz Ketchup SI 6/30/85 

6 Kraft Barbeque 8/30/85 

7 Kraft Cheeses 8/30/85 

8 Mr. Coffee S4 12/31/85 

9 Nabisco $20 12/31/85 
lOOreo/Hi-C 11/30/85 

11 Prell S 1.50 8/30/85 

12 Tand Free Pitcher 6/30/85 

13 Tide SI Refund 5/30/85 

14 Ziploc Free Bread 9/ 30/ 85 

15 Zipwax Refund 7/30/85 



<$ft 



108 149 6050 77 

2030 45 7006 209 

3070 109 END 198 

4900 183 



70 PRINT" (4) delete items from li 

st" 

80 PRINT" (5) print entire list" 

90 PRINT" (6) save items on disk" 



The listing: REFUND 

2 GOTO 9000 

3 CLS(RND(8) ) : PRINT@32*8+10 , "REF 
UND-A-FILE"; :PRINT§32*15+l,"PROG 
RAMMER: D. A. TUROWSKI, 198 5 " ; : FOR 

Q=l TO 2000: NEXT Q:FOR Q=l TO 6 
0:PRINT@(RND(450) ) ,"$"; :PRINT@32 
*8+10, "refund-a-f ile" ; :PRINT@32* 
10+10, "disk version"; : SOUND Q+5 
0,1: NEXT Q:SCREEN0,1 

4 FOR Q=1TO2000:NEXT Q : CLS 

5 GOSUB 10000 
20 CLS 

30 PRINT@32*2, " ****** se lect c 

hoice******":PRINT 

40 PRINT" (1) input forms/qualif ie 

rs" 

50 PRINT" (2) replace forms/qualif 

iers" 

60 PRINT" (3) add to the list" 



100 
k" 

105 
107 
ier 
108 
110 
120 
130 
140 



PRINT" (7) load items from dis 



PRINT" (8) alphabetize list" 

PRINT" (9) search forms/qualif 

list" 

PRINT" (10) end session" 

PRINT@32*14+10,"(1-10) "; 

INPUT M 

IF M<0 OR M>10 THEN 20 

ON M GOSUB 1000,2000,1020,30 

00', 4000 , 5000 , 6000 , 6500 , 8000 , 7000 

150 GOTO 20 

900 REM ROUTINE TO 

1000 REM INPUT/ADD ITEMS 

1010 Y=l 

1020 CLS: PRINT "input/ add items r 

outine" 

1030 PRINT@34, "PRESS <ENTER> WHE 

N FINISHED" 

1040 PRINT: PRINT "ITEM" Y ; 

1045 INPUT S$(Y) 

1046 IF LEN(S$(Y) )>25 THEN PRINT 
"PLEASE RE-ENTER A SHORTER NAME" 
:GOTO 1045 

1050 IF S$(Y)="" THEN RETURN 
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1J355 PRINT"ENTER EXPIRATION MONT 


N FINISHED" 


H": INPUT EX$(Y) 


3025 


PRINT"NOTE~>delete from hi 


1060 Y=Y+1 


ghest": PRINT" item numbe 


lj370 GOTO 1J84J3 


r to 


": PRINT" lowest item 


1900 REM ROUTINE TO 


number! " 


2000 REM REPLACE ITEMS 


3030 


PRINT: INPUT "ITEM NUMBER TO 


2005 N=0 


DELETE ";N 


2010 CLS:PRINT"replace items rou 


3035 


IF N>Y-1 THEN 3030 


tine" 


3040 


IF N=0 THEN RETURN 


2020 PRINT§34, "PRESS <ENTER> WHE 


3050 


FOR X=N TO Y-2 


N FINISHED" 


3060 


S$(X)=S$(X+1) 


2030 PRINT: INPUT "ITEM NO. TO RE 


3065 


EX$(X)=EX$(X+1) 


PLACE" ;N 


3070 


NEXT X 


2040 IF N=0 THEN RETURN 


3080 


S$(X)="":EX$(X)="" 


2050 INPUT "REPLACEMENT ITEM";S$ 


3090 


Y=Y-1 


(N) 


3100 


GOTO 3000 


2051 IF LEN(S$(N) )>25 THEN PRINT 


3900 


REM ROUTINE TO 


"PLEASE RE-ENTER A SHORTER NAME" 


4000 


REM PRINT ITEMS 


:GOTO 2050 


4001 


CLS:PRINT"LIST ITEMS ON SCR 


2055 PRINT"ENTER EXPIRATION MONT 


EEN(S) OR ON PRINTER(P)?":PRIN 


H": INPUT EX$(N) 


mil . 


-ENTER » S ■ OR • P ■ " ; : INPUT W 


2060 GOTO 2000 


$ 




2900 REM ROUTINE TO 


4002 


IF W$="P" THEN D=-2:T=10:PR 


3000 REM DELETE ITEMS 


INT" 


ENTER A TITLE FOR YOUR LIST 


3005 N=0 


" :LINE INPUT M$:PRINT"be sure pr 


3010 CLS:PRINT"delete items rout 


inter is on line!": SOUND 200, 3 :P 


ine" 


RINT' 


PRESS enter WHEN PRINTER IS 


3020 PRINT@34, "PRESS <ENTER> WHE 




ON LINE TO BEGIN PRINTING 



TRS-80 COMPUTER DISCOUNTS 




COLOR COMPUTERS 



26-3127 64k color comp 
26-3131 isl disk drive 



PRINTERS 



26-1276 DMP 105 
26-1277 DMP-430 
26-1278 DWP-220 
26-1280 DMP-130 



165.00 
26995 



160.00 
66000 
475.00 
269.00 



MODEL 4 and MSDOS COMPUTERS 




25-1000 mod 1000 
25-1004 128K memory board 
25-1005 2nd drive mod 1000 
26-3211 Monochrome moniter 
26-1070 mod 4D 64k 2dr 
26-5103 mod 2000 2dr. 
26-5104 mod 2000 HD 



750 00 
169 95 
160.00 
125.00 
920 00 
1,400.00 
2,200.00 



We Carry the Complete Line of TRS-80 
Computer Products at Discount Prices 

CALL FOR A FREE PRICE LIST 800-257-5556 
IN N.J. CALL 609-769-0551 

WOODSTOWN ELECTRONICS 

Rt. 40 E. WOODSTOWN, N.J. 08098 
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!":INPUT R$:PRINT#-2,TAB(20) ;M$: 
CLS(8) 

4003 IF W$="S" THEN D=0 : T=0 : CLS 

401)3 FOR X-l TO Y-l STEP 15 

4020 FOR Z=X TO X+14 

4j325 IF D=-2 THEN PRINT@32*8," p 

rinting stand by !!!!!!!!!!!": I 

F S$(Z)="" THEN 4040 

4030 PRINT#D,TAB(T) ;Z; S$(Z) 

4040 NEXT Z 

4050 LINE INPUT "PRESS <ENTER> T 

CONTINUE" ;C$ 

4055 IF D=-2 THEN CLS(RND(8)) 

4060 NEXT X 

4070 RETURN 

4900 REM ROUTINE TO 

5000 REM SAVE ITEMS ON DISK 

5010 CLS (8) :PRINT@135, "save item 

s on disk" ; 

5015 SOUND 200, 3: SOUND 200,3 

5025 PRINT@32*8+8, "insert data d 

isk" ; 

5030 PRINT@3 2*10,"nEW FILE OR rE 

PLACE FILE(N/R) "; :INPUTQ$:IF Q$= 

"N" THEN 5040 ELSE KILL" COUPONS/ 

DAT" 

5040 PRINT@388, "PRESS <enter> WH 

EN READY"; 

5050 LINE INPUT R$ 

5055 CLS(0) :PRINT@224,"saving da 

ta on disk stand by!";:SOUND 2 

00,3 

5060 OPEN "0",#1, "COUPONS" 

5070 FOR X=l TO Y-l 

5080 WRITEfl, S$(X),EX$(X) 

5090 NEXT X 

5100 CLOSE #1: RETURN 

5900 REM ROUTINE TO 

6000 REM LOAD ITEMS FROM DISK 

6010 CLS (4) :PRINT@134,"load data 

from disk!"; : SOUND 200,3 
6020 PRINT@32*8+8, "insert data d 
isk!"; 

6040 PRINT@388, "PRESS <enter> WH 
EN READY"; 
6050 LINE INPUT R$ 

6055 CLS (0) :PRINT@224, "loading d 
ata from disk-stand by" ; : SOUND 2 
00,3 

6060 OPEN" I ",#1," COUPONS" 

6070 Y=l 

6080 IF EOF(l) THEN 6120 

6090 INPUT #1, S$(Y),EX$(Y) 

6100 Y=Y+1 

6110 GOTO 6080 

6120 CLOSE #1: RETURN 

6500 REM ALPHABETIZE ROUTINE 

6510 CLS(RND(8) ) : PRINT@32*8 , "sta 



nd by alphabetizing list!" 

6520 FOR 1=1 TO Y-l 

6530 FOR J=I+1 TO Y 

6535 IF S$(J)="" THEN 6580 

6540 IF S$(I)<S$(J) THEN 6580 

6550 T$=S$(I) :F$=EX$(I) 

6560 S$(I)=S$(J) :EX$(I)=EX$(J) 

6570 S$(J)=T$:EX$(J)=F$ 

6580 NEXT J, I 

6590 CLS (3) :PRINT§32*8, "alphabet 

izing completed! !!!!!!!" : SOUND 2 

00 , 3 : FORQ=1TO500 : NEXTQ : RETURN 

7000 CLS: FOR B=l TO 8:CLS(RND(8) 

): SOUND 200, 2: NEXT B 

7005 PRINT§32*3, "before ending t 
his session, ": PRINT"be sure to s 
ave all changes" : PRINT"on your d 
isk file! !! ": PRINT: PRINT" if you 
are sure you want to" : PRINT"end 
the session, then press • E*":PRI 
NT"otherwise, press and <enter> 
any other" ; 

7006 PRINT" key to return to the 
main menu" 

7010 INPUT R$ 

7020 IF R$="E" THEN CLS : END 

7030 GOTO 20 

8000 CLS: PRINT" search rout 

ine": PRINT: PRINT 

8010 PRINT"WHICH MONTH'S LIST DO 

YOU WANT TO SEARCH FOR" : INPUT 
MM$ : CLS : PRINT@ 10 , MM$ : PRINT : MM$=L 
EFT$(MM$,3) 
8020 FOR X=l TO Y 
8030 IF MM$=LEFT$(EX$(X) ,3) THEN 

PRINT S$(X) 
803 5 FOR Q=l TO 100 : NEXT Q 
8040 NEXT X 

8050 PRINT"press <enter> to cont 
inue. . . ."; :LINEINPUT CR$:GOTO 20 
9000 PCLEAR 1:CLEAR19000:DIM S$( 
300) ,EX$(300) :GOTO 3 
10000 PRINT"THIS PROGRAM WILL KE 
EP A FILE OFYOUR REFUND FORMS OR 

QUALIFIERS IN YOUR INVENTORY.": 
PRINT "YOU WILL HAVE ROOM FOR ABO 
UT 100-200 ENTRIES (DEPENDING ON 
THEIR LENGTH) ! " 
10010 PRINT"THERE WILL ALSO BE A 

PRINTER OPTION FOR YOUR LIST 

IF YOU WANT A HARD COPY FOR REF 
ERENCE. " 

10015 PRINT"note: DO NOT USE CO 
MMAS WHEN ENTERING ITEM 

S!" 
10020 PRINT@32*13+5, "PRESS enter 

TO CONTINUE"; : LINE INPUT R$ : CLS 
: RETURN ^ 
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Radio Shack's Color Computer T 

&S/EON 
OUR BEST! 

64K Memory! Extended BASIC! 
Cut $ 20...new low price H99.95 



The Color Computer 2 is an af- 
fordable computer that allows you 
to write programs tailored to your 
personal and household needs. It's 
ideal for small-business and pro- 
fessional uses alike. With the 
built-in Extended BASIC lan- 
guage, you can access 32,000 
characters of memory. To access 
the full 64K memory, simply add a 



disk drive and the optional OS-9 
disk operating system. 

The powerful Color Computer 2 
(26-3127, was 219.95 in Cat. RSC- 
15) creates detailed color graphics 
from simple, one-line commands, 
and is ideal for drawings, designs, 
charts, engineering diagrams and 
even animation! 




Ready-to-run software can help 
you set up personal and house- 
hold budgets, create a household 
inventory, keep track of your in- 
vestments, write letters and re- 
ports and record recipes. 

With a wide range of educa- 
tional software available, your 
children can use the Color Com- 
puter 2 to help strengthen their 
math, spelling and reading skills. 
The family can even play exciting 
computer games. The system 
attaches to any TV and is easily 
expanded. 

Get the Color Computer 2 and 
your family will immediately start 
to enjoy the advantages of home 
computing . . . together! 



Radio /haek 

The Technology Store" 

A DIVISION OF TANDY CORPORATION 



Send me a new 
1986 computer catalog 

Mall To: Radio Shack. Depi. 86-A-904 
300 One Tandy Comet. Fort Worth, Texas 76102 




Name 

Company _ 

Address 

City 

State 

Telephone . 



.ZIP. 



TV not included. Price applies at Radio Shack Computer 
Centers and at participating Radio Shack stores and dealers. 



Nouvlm^ 



•flBte. 



■Rk. 
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By Bill Bernico 



Surely everyone at one time or 
another has fooled around with 
the SOUND and PLAY commands. 
Maybe you've even gone so far as to 
compose a tune or two. OK, now what 
do you do with those tunes? You need 
a method of presenting them. Some way 
other than just as a musical program 
alone. If you run a program that simply 
plays a song, chances are after one or 
two runs, you've heard all you care to. 
Bill Bernico is a self-taught computerist 
who enjoys golf, music and program- 
ming. He is a drummer with a rock band 
and lives in Sheboygan, Wisconsin. 



Suppose you have five or 10 or 20 
songs. How do you get folks to listen? 
A menu-driven selection type program 
is one way. (BORING!) You could 
present five or 10 or 20 song programs 
individually. (BORING!) 

How about putting your songs into a 
program like RADIO] Displayed are a 
radio and the needed instructions. The 
radio has a digital readout dial and 
pressing the up- or down-arrow keys 
helps you "tune in your favorite sta- 
tion." 

Once tuned in, press ENTER and the 
program randomly plays any one of a 



number of your favorite tunes. Line 
5000 states ZQ = RND(5) :DN ZQ 
GOSUB 6000,7000,8000,9000, 
10000. That leaves room for five of 
your own tunes. If you have more or less 
than five, change Line 5000 accordingly. 
Also, my lines 6000-10000 are there only 
as examples of how the RANDOM option 
selects a tune. Delete lines 6000-10000 
and use them to store your own music. 
The lines where each of your own 
selections start should be the same as 
the lines mentioned in Line 5000. Don't 
forget to include a RETURN statement 
after your music. □ 



wL 



'RADIO 

'BY BILL BERNICO 



The listing: RADIO 

10 

20 

30 '708 MICHIGAN AVE. 

40 'SHEBOYGAN, WI 53081 



300 . 
500 . 
END 



.215 
.60 
..74 



50 '(414) 459-7350 

60 ' 

70 CLEAR 500 

80 SP$="BR3 

90 A$="BR3U5ER2FD2NL4D3 

100 C$="BR3BR4BU5HL2GD4FR2EBD 



100 
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110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 



D$="BR3RU6NLR2FD4GNL2BR 

E$="BR3U6NR4D3NR3D3R4 

H$="BR3U3NU3R4NU3D3 

I$="BR3R2U6NL2NR2D6R2 

M$="BR3U6F2DUE2D6 

N$="BR3U6F4NU4D2 

0$="BR3BRHU4ER2FD4GNL2BR 

P$="BR3U6R3FDGL3D3BR4 

R$="BR3U6R3FDGL3RF3 

S$="BR3BUFR2EUHL2HUER2FBD5 

T$="BR3BU6R4L2D6BR2 

U$="BR3BUNU5FR2ENU5BD 

W$="BR3NU6E2UDF2NU6 

FOR G=0 TO 9 

READ GX$(G) 

NEXT G 

DATA"BR3BRHU4ERFD4GNLBR2 

DATA"BR3R2U6NGD6R2 

DATA"BR3BU5ER2FDGL2GD2R4 



TO TUNE RADIO 

USE THE UP AND 

DOWN OB: ROH:-: 



HIT ENTER TO 
HEAR MUSIC 




R A D I C 



300 DATA M BR3BU5ER2FDGNLFDGL2NHBR 

3 

310 DATA"BR3BR3U6G3R4BD3 

320 DATA"BR3BUFR2EU2HL3U2R4BD6 

330 DATA"BR3BU3R3FDGL2HU4ER2BD6B 

R 

340 DATA"BR3BU6R4DG3D2BR3 

350 DATA"BR3BRHUER2EUHL2GDFR2FDG 

NL2BR 

360 DATA"BR3BRR2EU4HL2GDFR3BD3 

370 PMODE 4,1:PCLS 1: SCREEN 1,1: 

COLOR 0,1 

380 DRAW"BM150,32R59U16L59D16BL2 

0U25D130R100U130L100 

390 FOR X=145 TO 225 STEP 23:CIR 

CLE(X,45) ,8:PAINT(X,45) ,0,0:NEXT 

X:CIRCLE(180,100) ,33 
400 CIRCLE (180 ,100) ,13: PAINT (180 

410 DRAW"BM130,59 

420 FOR X=l TO 25 : DRAW"R100D3L10 

0":NEXT X 

430 DRAW"BM130,59 



440 FOR X=l TO 33 : DRAW ,, D78R3U78" 

:NEXT X 

450 DRAW"BM0,180S12 I, +R$+A$+D$+I$ 

+0$ 

460 DRAW"BM130,137S4L20HLHLHLHL5 

HLHLHUHUHUHUEUEUEURURURURFRFRFRF 

RFDFDFDFDGDGDGDGLGLGLGLGLGLGL4HL 

2 HL3HLHLHUHUHUHUHUHUHLHLHLHL3 HL3 

HL3 GLGLGLGLGLGLGDGDGDGDGD2 GD2 GD2 

GD5FDFD12 

470 PAINT (35, 165) ,0,0: DRAW"BM31, 

170D10RU9R9DL9DR9D7LU7 

480 DRAW"BM10,20S4"+T$+O$+SP$+T$ 

+U$+N$+E$+SP$+R$+A$+D$+I$+0$ : DRA 

W"BM8 , 30"+U$+S$+E$+SP$+T$+H$+E$+ 

SP$+U$+P$+SP$+A$+N$+D$ : DRAWBM12 

,40"+D$+O$+W$+N$+SP$+A$+R$+R$+O$ 

+W$+S$ 

490 DRAW"BM10,80"+H$+I$+T$+SP$+E 

$+N$+T$+E$+R$+SP$+T$+0$ : DRAWBMl 

4 , 90"+H$+E$+A$+R$+SP$+M$+U$+S$+I 

$+C$ 

500 SC=530 

510 GOSUB 590 

520 II$=INKEY$:IF II$=""THEN 520 

530 IF II$=CHR$(94)THEN SC=SC+10 

540 IF SO1610 THEN SC=530 

550 IF II$=CHR$(10)THEN SC=SC-10 

560 IF SC<530 THEN SC=1610 

IF II$=CHR$(13)THEN GOSUB 50 



570 

00 

580 

590 

600 



GOTO 510 

GG$="" 

SS$=STR$(SC) 
610 LS=LEN(SS$) :SS$=RIGHT$(SS$,L 
S-l) 

620 L=LEN(SS$) 
630 FOR A=l TO L 
640 NN$=MID$(SS$,A,1) 
650 V=VAL(NN$) 
660 GG$=GG$+GX$(V) 
670 NEXTA 

680 DRAW"BM150,30C1S8"+OG$ 
690 EXEC 43345 
700 OG$=GG$ 

710 DRAW"BM150,30C0S8"+GG$ 
720 RETURN 

5000 ZQ=RND(5):0N ZQ GOSUB 6000, 
7000 , 8000 , 9000 , 10000 : RETURN 
6000 
TURN 
7000 
TURN 

PLAY"T10O3CDEFGABAGFEDC' 



PLAY"T10O1CDEFGABAGFEDC" :RE 
PLAY "T 1002 CDEFGABAGFEDC ": RE 



8000 PLAY"T10O3CDEFGABAGFEDC" :RE 

TURN 

9000 PLAY"T10O4CDEFGABAGFEDC n :RE 

TURN 

10000 PLAY"T10O5CDEFGABAGFEDC" : R 

ETURN 
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BUDGETING 



16K 
ECB 



RAINBOW 



A Little Electrical 
Cost Calculator 



By Dennis Anderson 




Every summer I wonder how 
much it costs to run the air con- 
ditioner. Every winter I wonder 
how much spot heaters cost in electrical 
usage. This program, Electrical Cost 

Dennis Anderson is a technical field 
service representative. He likes to un- 
wind with his two Co Cos, RAIN BOW and 
RAINBOW ON TAPE. 
102 THE RAINBOW April 1986 



Calculator, was written to stop my 
wondering. 

Entering information from your 
electric bill allows you to break down 
the charges into a meaningful format. 
There is a display that shows the rela- 
tionship between watts used and the 
length of time the device is on. The 
program is fairly straightforward. You 
may find the method of using PRINT 
USING interesting. The format is set up 
on Line 20 and is used from lines 100 
to 130. 



After the cost chart is displayed, you 
have the option of entering the watts 
used on a particular appliance and the 
time you will be using it in hours. The 
answer is simply displayed. You may 
find that knowing the cost of running 
a particular device will save you money. 
I find the cost of running my CoCo and 
television is remarkably low. I wish the 
operating costs of some other utilities 
were the same. 

(Questions about this program may 
be sent to Dennis at 942-67 Street, Apt. 
2A, Brooklyn, NY 11219, phone 212- 
680-1950. Please enclose an SASE when 
writing.) D 



$f% 



20 207 

END 71 



I 



The listing: ELECTRIC 



DENNIS ANDERSON 
942-67 STREET 
BROOKLYN N.Y. 11219 



1 

2 

3 

4 

5 

10 CLS:PRINT@3, "ELECTRICAL COST 

CALCULATOR" 

20 Y$="$#.##":Z$="$##.## " 

30 PRINT: INPUT "ENTER KILOWATT US 

AGE FROM BILL ";KW 

40 INPUT "MONTHLY CHARGE FROM BIL 

L (ENTER AS 24.12) ";MC 

50 'CALCULATE HOURLY COST PER WA 

TT 

60 C=MC/KW:H=C/1000:D=H*24:WE=H* 

168:MO=H*720 

70 PRINT@2 2 9, "ELECTRICAL COST TA 

BLE" 

80 PRINTS 2 6 3, "10 100 250 

500" 
90 PRINTg 2 9 4, "WATTS WATTS WATTS 

WATTS" 
100 PRINTS320 , "HOUR " ; : PRINTUSIN 
G Y$ ;H*10 ; : PRINT" " ; : PRINTUSING 
Z$;H*100,H*250,H*500 
110 PRINT@3 52 , "DAY " ; : PRINTUSIN 
G Y$;D* 10;: PRINT" ";: PRINTUSING 
Z$;D*100,D*250,D*500 
120 PRINTS 3 8 4, "WEEK ";: PRINTUSIN 
G Y$ ;WE*10 ; : PRINT" " ; : PRINTUSING 
Z$ ;WE*100 ; WE*250 , WE*500 
130 PRINTS416,"MON. " ; : PRINTUSIN 
G Y$ ;MO*10 ; : PRINT" " ; : PRINTUSING 

Z$;MO*100,MO*250,MO*500 
140 : INPUT" 'D' FOR DETAIL 'E' T 
END";A$ 

150 IF A$="E"THEN STOP 
160 CLS : PRINT : INPUT" ENTER POWER 

CONSUMPTION OF UNIT IN WATTS (V 
OLTS*AMPS) ";PC 

170 PRINT: INPUT" ENTER HOURS OF 
OPERATION"; HO 
180 IC=H*(HO*PC) 

190 PRINT: PRINT" YOUR COST WILL 
BE ";:PRINTUSING"$$#####.##»;IC 
200 PRINT: 

210 PRINTS 4 4 8, "PRESS 'A' TO CALC 
ULATE ANOTHER ELSE PRESS 'Q' TO 

QUIT";: INPUT A$ : IFA$="A"THEN GO 
TO 150 ELSE IF A$="Q"THEN STOP E 
LSE 210 
2 20 »*LAST LINE* 
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CORRECTIONS 

"Accessible Applications: MAILLABL" (November 
1985, Page 247): Richard White tells us of some changes 
that need to be made to his program. 

1) Change D0=1 to D0=2 in Line 1 10. 

2) Line 205: PRINTB-2 needs to be changed to PRINT8D0 
and CT=CR(G)+CR(7) needs to be changed to CT= 
CT+CT[G)+CR(7). 



"Received and Certified" (February 1986, Page 189): Due 

to an error in communications, the incorrect address was 
listed for The Electronic Assistant Lighting Designer. The 
correct address is: Theater Literate Software, The Compu- 
ter Literacy Center, 3301 W. Oak Street, Kissimmee, FL 
32741. We are also informed that the program comes only 
on cassette at the present time. 



"Cross-Reference Your Programs with XREF" (Febru- 
ary 1986, Page 169): Mr. Van Dusen advises us that a 
problem occurs with this program when using a printer that 
does not recognize CHRS ( 12 ) as a form feed character. You 
may either change the appropriate codes in lines 68 and 92 
or replace those lines with: 

63 POKELO , : IFZZ=0THENZZ=1 : GOT06 
9ELSEFORZQ=LZT06 6 : PRINT#-2 : NEXT 
92 POKELO ,0 : FORZQ=LZT066 : PRINTf- 
2: NEXT 



"Destination: Moon Base Amphibia"! August 1985, Page 
106): Nick Bradbury has informed us that his program will 
not run with the disk controller plugged in. Also, you may 
contact him witli questions before 9 p.m. EST at (615) 966- 
0172. 



"Coco Bells" (December 1985, Page 36): Joseph Urbas 
writes to tell us that the fourth value in Line 200 controls 
the tempo. The article stated that it was the third value. 
Also, some CoCos may require the following line in the 
program: 

225 POKE65315,230 



"The Electronic Valentine Maker" (February 1986, Page 
19): Brian P. Roden tells us that due to the renumbering 
of his program, the modification listed in his article for using 
the Valprint program (Listing 1) on printers other than a 
CGP-1 15 was incorrect. 

The correct modification is: 

1 CLS 
DEL 4G-95 
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TURN OF THE SCREW 



The Makings of Memory 
and How it Works 



By Tony DiStefano 
Rainbow Contributing Editor 



Remember AND, OR and XOR 
gates? Along with these gates 
came simple truth tables and 
Boolean expressions. All the gate exam- 
ples that were given were two inputs and 
one output. Most of these gates also 
come in multiple inputs and a variety of 
outputs. For example, Figure 1 shows 
a four-input NAND and a three-input 
OR. If you also examine the 
accompanying truth tables, you will see 
that the rule of thumb for these gates 
still applies. (See my column in the 
February 1986 RAINBOW, Page 154, for 
the rules to logic gates.) Some gates are 
made, for instance, to have up to 13 
inputs, but they are used mostly for 
memory mapping. I'll be going into 
more detail about memory mapping in 
a future article. No matter how many 
inputs you have, though, all the same 
rules apply. 

Another property of logic gates 
(which have more to do with hardware 
than logistics) that we haven't touched 
on yet is the type of output. So far, all 



Tony DiStefano is well-known as an 
early specialist in computer hardware 
projects. He lives in Laval Ouesl. Que- 
bec. 



the outputs we have talked about are 
either ones or zeros; a one being a 
positive voltage (+5 volts in the case of 
the CoCo) and a zero being no voltage 
or ground. There are two other types of 
outputs to consider. The open-collector 
output and the tri-state output. 

Let us look at the tri-state output 
first. "Tri," meaning three, tells us there 
are three posible output conditions. 



4 INPUT NAND 



3-INPUTOR 
Figure 1 



How can that be with a binary output? 
The word binary implies two condi- 
tions. What is the third state? The third 
state is called high-impedance. That is 
when the output is neither one nor zero. 
It is as if the output was not connected. 
The physical connection to the chip is 
still there (in the chip), but the internal 
connection is broken as if a switch was 
inserted. 



Examine Figure 2a. It shows an 
example of how a tri-state gate works. 
It is not practical to show a switch every 
time there is an output that has tri-state 
capabilities. Figure 2b shows us how a 
tri-state output is symbolized. The extra 
line shown is for the tri-state output 
control. It is an input. Depending on the 
chip, this input can be active high or 
active low. By active, 1 mean that the 
switch (Figure 2a) is closed. Active high 
means the switch is closed when a one 
is present at the tri-state control input. 
Active low is when a zero is present. 

This type of output is needed when 
there are two outputs connected to- 
gether. Look at Figure 2c and try to 
think what logic level Point B is if Point 
A=0 and Point Ol. This could lead to 
some problems. One gate wants to be 
five volts and the other wants to be 
ground. A short circuit exists and one, 
if not both gates, can suffer damage. A 
condition like this cannot exist. It is up 
to the system designer to make sure 
there is no possibility for output con- 
flicts such as the one in Figure 2c. 

However, in a computer, there are 
times when two outputs must meet and 
go into one (or more) inputs. It is then 
necessary to use tri-state outputs. The 
main use of tri-state outputs is when 
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256K 



SUPER RAM 



512K 



HOME RUN! 



256K Bd - $129.95 
512K Bd - $169.95 

(Requires RS Multi-Pak) 



OS-9 
DRIVER 
$24.95 



The first 256K/512K memory bd for the 
CoCo II ! Inside this low noise metal 
case lives 256K/512K of memory and all 
the circuitry to access it as a RAMDISK ! 
The CoCo II answer to THUNDER RAM 
is here - NOW !!! 



256K 



THUNDER RAM 



256K 



STRIKE J - RAM I 



Easy installation, 

software and 
tech information! 

(NOT available for CoCo ll's) 



OS-9 
DRIVER 
$24.95 



The first 256K memory Bd for the CoCo! 
Load four 32K pgms at once, emulate a 
40trk RAMDISK, 60K Print Spooler, FAST 
access, 30+ Hi-Res screens in memory!! 
$99.95 (see Sept '85 Rainbow Review) 

DOUBLE RAM - Upgrades a THUNDER RAM from 256K to 
512K giving TWO independent RAM Disks! $79.95 



HEW 
VERSION 



COCO MAX E 



NEW 
VERSION 



STRIKE 3 - A HIT! 

Feature packed hardware & software 
Graphics System! Includes: PulhDown 
Menus, Icon processing, multiple Font 
styles, full graphic editing plus a special 
Input Module for 256x192 joystick input. 
64K DISK $79.95 w/Y-Cable $99.95 
Requires Multi-Pak or Y-Cable ($29.95) 
CoCo Max I - II Disk Upgrade - $19.95 
CoCo Max (TAPE) $69.95 Mouse Pad $14.95 
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SPECTRUM 
STRIKES _ 

BACK!»**» 





SUPER RAM - The HIT of the 
Rainbow Fest in Palo Alto, CA ! 




STRIKE 2 - POSt 



EPROM Programmer 
1 $59.95 1 



Uses 2764 ($6.95) 
or 27128 ($14.95) 

EPROMS ! (Requires Super Controller) 

The most AMAZING CoCo Disk Controller 
ever! Switch up to 4 DOS's (up to 16K) 
via a single software POKE! Choose 
between R/S 1.0/1.1, Spectrum DOS, 
ADOS, JDOS, Stearman DOS - $99.95 
DISPLAY 80 - 80 column display, RTC, 
& Ptr port. (Req. Super Controller) $99.95 

CDOS 3.2 $19.95 and/or Spectrum DOS $29.95 
(27128 EPROM) with purchase of Super Controller 

Enhanced Display 80 - Its extra features 
are SMOOTH SCROLLING & Switchable 
Video Input !!! $129.95 

SPECTRUM PROJECTS, INC. 

PO BOX 21272 

93-15 86TH DRIVE 

WOODHAVENNY 11421 

Shipping $3.00 (Foreign $5.00) 
COD $2 extra - NY Res add tax 
COD Order Line 718-441-2807 



SPECTRUM PROJECTS 

SOFT AND HARD WARES FOR 
COLORFUL COMPUTING 



si 



COMMUNICATIO 



C0L0RC0M/E - A complete smart 
terminal package! Upload, 
Download, Hi-Res (51X24) 
screen, 300/1200 Baud. Offline 
Printing. 32/64K Disk * - $39.95 
* - Now with CoC o Sig & TBBS 
XMODEM support!" Download ML 
COM P USERVE 5hr Start Kit $29.95 
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MODEMS 




WORD PROCESSING 



TELEWRIJER-64 - Three H7-Res 
screens, true lowercase char's 
right justify, full screen 
editor. Tape $49.95 Disk $59.95 
TELEPATCH - A TW-64 enhanc er' ! ! 
True bjock move, Ov erstrike & 
TSP00L mode. Type Ahead Buffer 
FASTER" Disk I/O 64K Disk $19.95 
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PRINTERS 
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MINI-MODEM - Direct connect, 
300 Baud, Orig/Answer- $39.95** 
J-CAT Modem - Lowest priced 
auto/answer modem - $119.95 
HAYES SM300 - "Programmable" 
auto-dial/auto answer-$169.95** 
Hayes"CLONE"1200 Baud-$199. 95** 
** - Add $12.95 for Modem Cable 
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KEYBOARDS 
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GEMINI SG-10 - 120 cps w/true 
descenders, 2K buffer, tract- 
frict feed. Near Letter Quality 
mode, 1 Yr. warranty! - $239.95 
BriteFace-The first INTELLIGENT 
Parallel Ptr Interface for CoCo 
Auto set Baud rates from 600 to 
9600/NO switches to turn $59.95 
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MONITORS 
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HJL-57 - Save $7.00 !! - $72.95 


= 


~ 


HJL NumberJack Keypad - $79.95 


— 
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-Specify Model/Revision Board- 
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CoCo Keybd Software - Finally! 


~ 




An ENHANCED Function Key Pgm! 4 
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most wanted features: 9600 Baud 






Poke, Text Screen Dump, Line 


^^ 
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Listing & Cold Start-DSK $14.95 


= 


^iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 


m 




SAVE $10 



Monitor Stand $24.95 

OFF COLORCOM/E WITH A HAYES MODEM 

OFF TELEWRITER-64 WITH ANY PRINTER, 
KEYBOARD OR MONITOR 
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MONOCHROME Monitors - CRISP 
80x24 Hi-Res screens! $99.95 
Universal Video Driver - Works 
w/all monitors & CoCos!- $29.95 

Anti-Glare Screen $24.95 

COLOR Monitors $179.95 
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TAXAN Tuner-Receive TV channels 
on any composite monitor $99.95 


a 
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SAVE $10 



COD ORDER HOT LINE - CALL 718-441-2807 



SPECTRUM PROJECTS 

SOFT AND HARD WARES FOR 
COLORFUL COMPUTING 

SPREADSHEET 



m 



|Competition| jDYNACALCl 



Screen 32X16 51X24 

Precision 9 digits 16 digits 
Hi-Res Graphics NO YES 

Visicalc cmd format NO YES 
New low price! 64K Disk $69.95 
Side Wise -Print DYNACALC files 
up to 255 chars- sideways ! $24. 95 



DISK DRIVES 
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DRIVE System* - SS/DD, 6ms, 
40 Tracks, Half Height .$199.95 
DRIVE & 1 System* - $299.95 
Disk Drive 1, 2 or 3 - $119.95 
Power Supply & Case - $59.95 
Drive 1 for 26-3129/31 - $89.95 
Dbl Sided Drv System* $239.95 
* PLUS: controller-manual-cable 
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DISK SOFTWARE 
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1. Color FORTH $24.95 

2. EZ Base (Database) ...$24.95 

3. Graphicom $24.95 

4. Graphicom Part II $24.95 

5. Greeting Cd Designer .$24.95 

6. Blackjack Royale $24.95 

7. Spect'm Adv Generator $29.95 

8. HARDCOPY(Specify PTR) $29.95 
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PRO-COLOR FILE 2.0 - 60 Data 


^2 


Fids, 8 Report Fmts, 4 Screen 






Fmts. 1020 bytes/record. Sort 3 




— 


Fields. Global Search, FAST ML 






Sort, Create Files Compatible 


s 




w/DYNACALC! - Disk $49.95 






Pro Color Dir and PCF Forms - 


= 




Buy 'em both for only $29.95 
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GAME CONTROLLERS 



^i£° C ommand Adapter - Now you 
can hookup 2 Atari type joystks 
to your CoCo for only $19.95! 
Joystick7 Mouse 10' Ext Cable - 
Great for CoCoMax users! $19.95 
DELUXE Joystick - 360 Degree 
control with center return or 
analog positioning - $39.95 
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COCO II UPGRADES 
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Want to upgrade your new $69/ 
$88 CoCo II? (See below !!) 
^£64 DRAMs - two chip 64K 
upgrade for 26-31 34A and 26- 
3134B Korean CoCo II 's ..$39.95 
Extended BASIC - 28 pin ROM for 
26-3134 A/B CoCo II 's ...$34.95 
Buy 'em BOTH for only - $69.95 


= 
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DISK SOFTWARE * * 

Buy any 2 - Save 10% 
Buy any 3 - Save 15% 
Buy any 4 - Save 20% 



SPECTRUM PROJECTS, Inc. 

PO BOX 21272 
93-15 86th DRIVE 
WOODHAVEN NY 11421 



FREE - Send for our 

CoCo catalog flier III 

Dealer inquiries invited I 

Software submissions 

welcomed I 



All orders plus $3.00 S/H (Foreign $5.00) - COD add $2.00 extra - NYS Residents add Sales Tax 



there must exist, on a single connection, 
more than one output. An example of 
this is right on the CoCo. When you add 
a ROM pack or a disk drive controller 
to your computer, the pack and the 
computer share common connections, 
therefore both must have tri-state out- 
puts. 



IN o- 



-o OUT 



IN o- 



> 



CONTROL 
O OUT 

CONTROL 

B 
O 



Figure 2 



The second type of output is open- 
collector. In electronic terms, the output 
circuitry means that the last transistor 
connection to the output pin is the 
collector. The emitter is connected to 
ground and the base connects to the 
previous transistor. Now, to speak 
English. Figure 3a shows a typical open 
collector output. If you are not up on 
your electronics, and that is a bit too 
much to swallow, let's look at it in 
another way. 
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IN ± | 
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Figure 3 



The output of an open collector gate 
can be seen as a switch with one end 
connected to ground. It has two states: 
I) if the output is high (one), it is high 
impedance, not a logical one, as if it 
wasn't connected; 2) if the output is low 
(zero), it is logical zero or ground. 
Figure 3b shows the equivalent circuit 
to an open-collector output. 

There is no special symbol for an 
open-collector gate — only the data 
sheet of the gate in question will tell. 
Usually, open-collector outputs have a 
resistor connected to plus voltage that 
gives it away. There are specific uses for 
this type of output. I will not go into too 



much detail here, but an example of this 
is in the disk controller. The controller 
uses open-collector outputs to control 
the disk drives. 

Now it's time to move on to new 
material. So far, all the gates we have 
looked at have a given output for given 
inputs. If the inputs are removed, the 
output is no longervalid. In acomputer, 
there is a need to remember previous 
events. For example, when you use a 
calculator to add two numbers, the first 
number must be remembered or stored 
to be used later. The ability to remember 
a previous event in a computer is called, 
yes, you guessed it, memory. The sim- 
plest form of memory is one bit. A one 
or a zero is one bit of memory. A flip- 
flop is a logic gate with memory. The 
simplest form of flip-flop is called the 
R-S (Reset, Set) flip-flop. It is made by 
using two gates we have already looked 
at. 

Examine the diagram in Figure 4a. It 
uses two NAND gates. A NOR gate 




could also be used; the only difference 
is that the polarity required to activate 
the device is inversed. Given that the 'S' 
and 'R' inputs are both ones, the out- 
puts 'Q' and "*Q"(the use of the symbol 
'*' simply means not or active low; it is 
usually shown using this symbol or as 
a small black bar above the character) 
would be one and the other zero. The 
outputs are always the complement of 
each other. 

Due to the nature of this circuit, it is 
impossible to tell which output is which 
when power is first applied. It is an 
indeterminate state. If we were to 
change the 'S' input to zero and then 
back to one, we would have what is 
known as a pulse. A pulse is a change 
of logic state for a predetermined 
amount of time, then it returns to its 
original state. That means if a signal is 
normally one, a pulse is a negative- 
going pulse. If the signal is normally 
zero, a pulse is a positive-going pulse. 

This comes right in line with what is 
called the active state. Let's say we have 
a signal that is high (one) when it is idle 
(doing nothing) and when we want this 
line to do something, it goes low (zero). 
This is called active low. The same is 
true in reverse: A signal that is normally 
low and pulses high to activate is called 
active high. 

To get back to our flip-flop, the result 
of a low pulse on the 'S' line "flips" the 
outputs to a known state. The 'Q' 
output is one and "*Q" is zero. If we 
were to pulse the 'R' line, the outputs 
"flop" to just the opposite. If both 'R' 
and 'S' were to be pulsed, the output is 
again indeterminate. The truth table for 
an R-S flip-flop is shown in Figure 4b. 
The symbol for a NAND R-S flip-flop 
is shown in Figure 4c. 

The next diagram, Figure 5a, is called 
a clocked R-S flip-flop. This is used 
when it is necessary to set up the input 
conditions, but delay the actual setting 
or resetting action until a pulse is given 
from another source. The CK (clock) 
line is used to inhibit the 'S' and 'R' lines 
from entering the flip-flop stage. Follow 
the logic using the truth table in Figure 
5b. Figure 5c shows the symbol for this. 

To continue our quest to understand- 
ing memory, let's go one step further. If 
we were to add an inverter to the 'R' side 
of our R/S flip-flop and tie its input to 
the 'S' side (Figure 6), we now have a 
D-type flip-flop. The D-type flip-flop is 
one step closer to making a memory 
chip. The 'D' stands for data. The 
logical state of 'D' is transferred to the 
'Q' output on the leading edge of the 
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A CHIP OFF THE OLD... 

6821 Standard PIA $9.95 

6822 Industrial Grade PIA $14.95 

6847 VDG Chip $19.95 

6809E CPU Chip (NEW LOW PRICE) ...$19.95 
Basic ROM 1.2 Chip (30Z FASTER) ..$19.95 
68769 (Fits Disk Basic Skt) Eprom.$19.95 
Basic ROM 1.3 (Newest version) ...$24.95 
Disk ROM 1.1 (New DOS Command) ..$29.95 
New SAM Chip w/heatsink (74LS785).$29.95 
Ext Basic 1.1 ROM - NEW LOW PRICE. $29. 95 
Tandy 1000 128K RAM Upgrade Kit ..$39.95 
Eprom Eraser - 3 min erasure time. $49. 95 
Model 100 8K Upgrade - ( SAVE $70). $49. 95 
CoCo First Aid Kit - includes 2 PIAs, 

6809E & SAM (Be Prepared! ! ! ) $59. 95 

64K CoCo H - w7NEW keyboard ....$149.95 
EproiTPrgmr ( 2ms speed/2K - 16K). $149.95 

COCO LIBRARY... 

The CoCo Chronicles /1980-1985 $7.95 

CoCo Memory Map $14.95 

Basic Pro grammi ng Tricks Revealed. $14. 95 
The FACTS - Inside "guts" of CoCo. $16. 95 

500 Pokes, Peeks 'N Execs $16.95 

Basic 09 Tour Guide $19.95 

Utility Routines - Top Pgm Secrets . $19. 95 
Rainbow Book / Tape of Simulations .$19.95 

Color Basic Unraveled $19.95 

Extended Basic Unraveled $19.95 

Disk Basic (1.0/1.1) Unraveled ...$19.95 

New! CoCo II Service Manual * $24.95 

SECOND Book & Tape of Adventures .$29.95 
The Complete Rainbow Guide to 0S9.$19.95 
W/Two Disk Package of demo pgms ..$49.95 
C olor / Extended / Disk Basic Unraveled - 
Complete 3 Book Set - Save $10! ..$49.95 

MORE GOOD STUFF... 

CoCo Light Pen -^$24t«£:Save $5!. .$19. 95 
Comgujnze "Y" Box - More positive 

connections than a "Y" Cable $29.95 

Colorware Real Talker 2 (CoCo II). $64. 95 
Super Voice - SC-02 Synthesizer ..$79.95 
PBJ WORD-PAK Hi-Res 80x24 disply $129.95 

Micro Works DS-69A Digitizer $149.95 

* - Specify CoCo II Catalogue Number 
All orders plus $3.00 S/H (Foreign $5.00) 
COD add $2.00 extra 
NYS Residents add Sales Tax 



COCO CABLES AND... 
Printer / Modem 15' Extender Cable .$14.95 
Tired of unplugging devices from your 
RS232 port? Try a RS232 "Y" Cable . $19. 95 
Disk Drive Cable (34pin - 34pin) .$19.95 
Modem Cable - 6ft (DB25-DB25) ....$19.95 
Null Modem Cable - 4 pin to DB25 .$24.95 
D isk Interface/Rom Pak Extender - Move 
your disks & ROM Paks (3 feet) .. $24. 95 
4 Pin Dual "Y" Cable - Hook up a Disk 
w/Voice, Word Pak, CoCo Max, etc ..$29.95 
Triple RS232 Switcher - Now select one 
of any three RS232 peripherals ...$39.95 
D ELUXE RS232 Sw itcher - Dual switcher 

with 3 female DB-25 jacks $59.95 

40 Pin Triple 11 Y n ~Cable - Hook up any 3- 
Voice7Word/RS232/Digitizer PAKs ..$39.95 
Finally ! 24" Multi-Pak Extender ..$44.95 

OTHER GOOD STUFF... 

C-10 tapes in any quantity 49 cents 

5 1/4 T I DTskettes , any quantity .99 cents 

0S-9 Quick Reference Guide $3.95 

6809E Quick Reference Guide $3.95 

32K . 64K or 128K RAM Button $4.99 

Blank Amdek 3"H)isks $4.99 

Rompak w/Blank PC Brd-27xx series .$9.95 
CoCo Keybd Adapter - Convert 26-3016 & 
277-1019 keybds to D/E CoCo's! ..$14.95 
Video Clear - This cable will reduce TV 
interference created by CoCo! ....$19.95 
The Magic Box - Load Mod I/I 1 1 Basic 

program tapes into the CoCo $24.95 

DOS Switcher - Select from any two DOSs 
"(Disk 1.0 1.1, JD0S) in J&M ctlr .$24.95 

256K RAM Chips (Set of 8) $39.95 

EARS -CoCo's first Voice Recognition unit 
w795% accuracy & 64 Voice Prints ! $99.95 

Master Key II w/Ext Cable $109.95 

Amdek Twin 3" Drvs w/controller .$249.95 

SPECTRUM PROJECTS 

PO BOX 21272 

93-15 86TH DRIVE 

WOODHAVEIM IMY 11421 

COD ORDER HOT LINE 

718-441-2807 



Odxfr COLORFUL UTILITIES <^4> 



COCO CHECKER* 



Something possibly wrong with your C oCo ??? CoCo CHECKER is the answe r!! Will test your ROMs, 
RAMs, Disk Drives & Controller, Printer, Keyboard, Cassette, Joysticks, Sound, PIAs, VDG, Internal 
Clock Speed, Multi-Pak Interface and more!! 16K TAPE/DISK $19.95 (see Jan "85 Rainbow Review) 



MULTI-PAK CRAK 



SavT RQMPAKs to your 64_K Disk system using the RS Multi-Pak Interface. E liminate constant 
plugging in. of ROMPAKs now by" keeping all your PAK software on disk . Includes POKEs for 
" PROBLE M" ROMPAKs. (Downland, Megabug, Micro Painter, Stellar Lifeline, etc..) 64K DISK $24.95 



FAST DUPE II 



w 



II form at d backup a disk in only J_ PASS (up to 23 grans) (4 make up to A copies in 2 minutes 
3 must utility for every multipl e Drive owner. 32K DISK $14.95 (see May'S5 Rainbow Review) 



SPIT N IMAGE 



A super upgrade from Disk Omni Clone! Back everything up! This amazing program handles " non 
standard " disks with ease. We haven't found any disk yet that it can't handle. Don't ever be caught 
without a backup again! Lowest price too! Beats most " copy protection" programs! 32K DISK $29.95 



COCO SCREEN DUMP 



The best screen dump program for the Panasonic , Epson & Gemini printers; ever! Have the option of 
standard or reverse images w/regular or double sized proportional pictures. 600-9600 Baud too! A 
must for Graphicom and Bjork Block users. I6K TAPE/DISK $19.95 (see Nov '84 Rainbow Review) 



DISK UTILITY 2.1* 



A multi-featured tool 



for USER FRIENDLY disk 
sort, move, rename and k 



handling. Utilize a directory window to selectively 



file entries. Lightning fast Disk I/O for format , copy and backup. 
Examine contents of files, the Granule Table, plus the size, load addresses and entry points of all 
programs. Single command execution of both Basic and ML programs. 32K/64K DISK $24.95 " Disk 
Utility has proven itself very quickly at my house" - Ed Ellers Oct '84 Rainbow Review pg. 220 



SPECTRUM FONT GENERATOR 



Now you can write files using any CoCo Word Processor (Telewriter-64, VIP Writer, etc.) and convert 
them to special Highly Detailed character sets ! Some of the character sets supported are Italics , 
Old English , Futuristic and Block . A character set editor is included to create custom sets or 
modify existing ones! Supports most dot - matrix printers! DISK $29.95 (see Dec '85 Rainbow Review) 



SPECTRUM DOS 



screens! Supports 
"EPROMABLE". 6' 



SCHEMATIC DRAFTING PROCESSOR 



Save tim e snd design pro looking diagrams using a 480 X 540 pixel worksheet w/6 viewing windows . 
Over 30 electronic symbols w/10 definable symbols . (Even Logic gates & Multipin chips!) Print hard 
copy and save to disk . 64K DISK ;$j»jS£ New LOW price!!! $29.95 (see Jan '84 Rainbow Review) 



BASIC* 



Jasic* provides (23) of the most used BASIC ends w/ one keystroke plus scrolling & editing 
w/single key! Also included is a 32 character typahead BUFFERED keybd w/auto key & repeat plus 
a 32K Print Spooler!! And all that appears on the screen can be echoed to the p_tr_! 64K DISK $29.95 



COCO CHECKBOOK 



Use your CoCo to keep track of your checking and savings accounts! Printout individual personal 
checks! 32K/64K TAPE $29.95 DISK $39.95 (see April'85 pg. 210 & Oct'85 pg. 197 Rainbow Reviews) 



NOW AVAILABLE BY EXPRESS ORDER AT 
YOUR LOCAL RADIO SHACK STORE - 



= 90-0289 COCO CHECKER - #90-0290 DISK UTILITY 2.1 

DEMAND TO SEE 
THE DEMO DISK !!! 

*- No other discounts can be applied "^ *■ £FC#091 3 J 



BUY ANY 4 PROGRAMS 
GET THE FIFTH FREE !* 



<$>$& COLORFUL UTILITIES <3>«M» 



COCO TEXT UTIL 



'Includes u tilities that most CoCo word processors (TW-64, VIP Writer, etc.) leave out! Reset margins 
to correct length for uploading , convert all UPPER CASi£ text to m ixed upper/lower, display total 
BYTE count, EASY renajne & kiM^ functions plus read or print ANY disk file! DISK $19.95 



COCO VIDEO TITLER 



Start your VCR tapes with dazzling title frames followed by professional countdown to black fade- 
outs! Use a title page editor with several sizes of text & background colors ! 16K TAPE $19.95 



PENPAL 



'It's here! CoCo's answer to 1-2-3 ! PENPAL combines Word Processing, Communications, Graphics, 
Data Base & Spread-sheet into a single integrated software package! 64K DISK INTRO PRICE $69.95 



B4K DISK UTILITY PACKAGE 



Take advantage of an expanded 64K machine. Make an additional 8K of_ RAM available by relocating 
the Ext Basic ROM from $8000 to $D800 . Copy ROMPAKS to disk (even " protected " PAKS) and create 
a 32K SPOOL buffer for printing. DISK $21.95 (see July '83 Rainbow Review) 



TAPE/DISK UTILITY 



A powerful package that transfers tape to disk and disk to tape automatically. Does an automatic 
copy of an entire disk of programs to tape. Ideal for Rainbow On Tape to disk. Also copies tape to 
tape S prints tape & disk directories. TAPE/DISK $24.95 (see Sept '83 Rainbow Review) 



SUPER DUPER UTILITIES 



Finally! At last! A "SUPER DUPER" utility software package all rolled up into ONE!!! Includes such 
great utilities as: CoCo Disk Zap, Disk Encryption, Disk Mailing List, EZ Disk Master, Graphics 
ZOOM, Banner Creator, Function KEYS, Super INPUT/LINEINPUT, Basic Program PACKER, Alpha 
Directory, Basic SEARCH and much, much more!!! 32K DISK $29.95 



COCO CALENDAR 



Get organized for '86 TODAY with the CoCo Calendar ! Designed for recording the entire year's 
bccassions and daily appointments so you can plan ahead. You can store HUNDREDS of entries and 
our GRAPHIC Calendar will show the DAYS that have all the MEMOS! 32/64K DISK $24.95 



THE DS-9 SOLUTION 



NOW, a program that creates a " US_ER FRIENDLY " environment within OS-9! The OS-9 SOLUTION 
replaces 19 of the old " USER HOSTILE " commands with single keystroke, menu driven commands. No 
more typing in complex long pathnames or remembering complicated syntaxes! Set all XMODE 
parameters at the touch of keys! Requires OS-9 ver.01.01.00 $39.95 (see Sept '85 Rainbow Review) 



COCO-UTIL 



Now you can have the power to easily transfer Radio Shack Color Computer disk files to your 
/I S -DOS machine - including the Tandy 1000 & JBM PC!!! You can also transfer MS-DOS files to your 
CoCo disk, even format CoCo disks! CoCo-Util will save you countless hours of retyping ! No need to 
move your computer or printer anymore! Requires 128K MS-DOS computer w/2 disk drives - $29.95 



SOFTWARE BONANZA PACKAGE 



Create an instant library of Spectrum Projects TOP Colorful Utility software. Select any 10 programs 
to customize your own SPECTACULAR SOI-TWARE BONANZA! CoCo Checker, Multi-Pak Crak, CoCo 
Screen Dump, Disk Utility 2.1, Spectrum Font Generator, Tape/Disk Utility, Fast Dupe II, Schematic 
Drafting Processor, OS-9 Solution, 64K Disk Utility or Basic* ( a $250 plus value ) for only $119.95!! 



All orders plus $3.00 S/H (Foreign $5.00) - COD add $2.00 extra - NYS Residents add Sales Tax 



WQQDHAVEIM MY 11421 

COD ORDER HOT LINE 718-441-2807 
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clock pulse. The word "edge" in this 
context means the precise moment the 
pulse changes state. This means the 
instant the CK input goes high, the gate 
('A' or 'B') that has the one transfers to 



the R/'S section of the D-type flip-flop. 
When the CK line returns to its inactive 
zero state, the data is locked into the 
flip-flop. 

You can say that this is a one-by-one 



memory chip. It is a far cry from the 
65,536-by-eight memory capabilities of 
the CPU inside the CoCo. Can you 
imagine how big the computer would be 
if it had 524,280 chips in it? We will work 
up to that next month. In the meantime, 
back to the flip-flop. 

There are many limitations to the 
simple D-type flip-flop. The main one 
being that since there is a single input 
(apart from the clock), the 'D' input 
must remain stable for the duration of 
the clock pulse. This is to ensure that the 
data is accurately transmitted to the 
output. There are many types of flip- 
flops. For right now, I will go into 
detailed explanations of only the ones 
that will help us understand the mak- 
ings of a memory chip. 

The next diagram, Figure 7a, shows 
a more sophisticated flip-flop. It is 
labeled a "positive-edge triggered D- 
type flip-flop" (whew, what a mouth- 
ful). This gate is one step closer to 
resembling the memory chips inside 
today's computers. The 'S' and 'R' 
inputs are normally one or active low. 
The CK line for now should be zero. 
When the CK goes high, the output of 
Gate B goes low, causing the R-S flip- 
flop formed by 'E' and 'F' to be set. If, 
while the CK is still one, the 'D' input 
changes, the output of Gate D changes, 
although this has no effect on the output 
since Gate C is inhibited by the output 
Gate B. 

When CK returns low, the output of 
'B' goes back to one, but 'C is now 
inhibited by the zero state of the CK. 
The output now reflects the 'D' input. 
This circuit is very similar to one bit in 
a RAM chip. Figure 7b shows the 
symbol for this gate and Figure 7c 
shows the truth table. 

The CoCo's CPU reads and writes 
data eight bits (one byte) at a time. This 
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is not a big problem lor us; all we have 
to do is make eight flip-flop circuits for 
every byte we need. There is, however, 
another problem we have not yet seen. 
This and most CPUs do not have sepa- 
rate input and output pins. That would 
make 16 pins. Instead, it has only eight 
pins, commonly known as the data bus, 
and one direction pin. This direction pin 
is known as the read I write line, or *R/ 
W for short. The *R/ W pin on this CPU 
is active low for writing. That means 
when this output is high, the CPU is 
reading or entering data (the action of 
transferring data from memory to the 
CPU). Likewise, when it is low, it is 
writing or producing data (the action of 



transferring data from the CPU to 

memory). 

With just a few more gates, the 

famous positive-edge triggered D-Type 

flip-flop will concede to the CPU's 
demands. Figure 8 shows one way of 
making this happen. Remember the tri- 
state output described earlier in this 
article? Well, it is finally put to good use. 
The 'R' and 'S' lines are the same as 
before. In most memory circuits, they 
are never used. The 'Q' line, however, 
is tied to the input of a tri-state buffer. 
The *Q in this case is not used. The 
output of the buffer becomes the new 
'D' line. This is also the input, but a new 
line has been added — it is the *R/W 



input. When this input line is high and 
the CK line is high, the action is a read. 
The tri-state Buffer A is activated, 
therefore the output of 'Q' appears at 
the 'D' line. 

When the *W/R line is low and the 
CK line is high, the action is a write. The 
'Q' output is blocked by the tri-state 
Gate A, but Gate B allows the 'D' input 
to be transferred to the R/S flip-flop 
and, therefore, memorized into this bit. 
This is the basis of how memory storage 
works in a computer. 

Next time, we'll look at how many 
bits of memory form bytes and how 
many bytes of memory form a memory 
map. D 
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William Sherilf 
Hand 

William lives in Aurora, Colorado, and 
dexterously used CoCo Max for a deft and 
adroit entry that assured he'd be handed 
first prize in a giddy gallery. 






Rich Sganga 
Clever Disguise 

Using Micro Illustrator, Rich continues 
our gallery theme with a display of the 
axiom, "Where there's a will, there's a way" 
(if we may be pardoned for the unbearable 
use of that cliche). Rich lives in Brentwood. 

New York. 
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Tom Sganga 
Snake 

Rich's brother, Tom, also used Micro 
Illustrator for an entry he thought didn't 
have a leg to stand on. We agreed to put 
this charmer in our gallery rife with tom- 
foolery. (Sorry, Tom, we didn't mean that 
personally.) 



Steve Poates 
New Wave 

Steve lives in Mobile, Alabama, and used 
Graphicom for a windingly droll comment 
on the drift of some popular music cur- 
rents. We rippled with delight but were 
threatened by parts of the staff if we dared 

call it "groovy." 



o 





■HERDS" 



^ 




Chris Young 
Nerds 

He's from Fort Worth in the Lone Star State 
And Chris Young we congratulate 

For a brace of waggish nerds 

We salute in rhyming words. 
McPaint was the tool in this portrait. 






Send your en\ry on either tape or disk 

to: 

CoCo Gallery 

THE RAINBOW 

P.O. Box 385 

Prospect, KY 40059 

Attn: Monica Dorth 



SHOWCASE YOUR BEST! 

You are invited to nominate original work for inclusion in 
upcoming showings of "CoCo Gallery." Share your creations 
with the CoCo Community! 

Be sure to send a cover letter with your name, address and 
phone number, detailing how you created your picture (what 
programs you used, etc.) and how to display it. Also, please 
include a few facts about yourself. 

Don't send us anything owned by someone else: this means 
no game screens, digitized images from TV programs or 
material that's already been submitted elsewhere. 

We will award a first prize of $25, a second prize of $15 and 
a third prize of $10. Honorable mentions will also be given. 

Monica Dorth, Curator 
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DELPHI BUREAU 



Presenting the 
^Delphi Advantage' 



By Cray Augsburg 
Rainbow's CoCo SIGop 



This month we have several items 
of interest. First on the agenda is 
the rate increase by Delphi — the 
first increase since start-up in May 1983. 
To most of you, this change is old news. 
We apologize for the delay in reporting 
this. You see, we are two months ahead 
of you and when hot news breaks, we 
appear to be two months behind. At any 
rate, the cost increases, effective March 
3, 1986, are shown in Table 1. Look the 
table over carefully to see how it affects 
you. 

To help offset the effect of the rate 
increase, Delphi has introduced the 
"Delphi Advantage." This is a new 
membership plan that assures you 
Delphi's lowest access rates. As a 
member of this plan, your rates will 
never exceed the standard rates of 12 
months earlier. As an added attraction, 
Delphi will begin sending you the latest 
editions of Delphi handbooks and 
command cards at no extra charge. The 

Cray Augsburg serves as RAINBOW'S 
technical assistant and holds an asso- 
ciate 's degree in electrical engineering. 
He and his wife, Ruth Ann, have two 
children and live in Louisville, Ken- 
tuck v. 



Old Rates ( /hi ) 






New Rates (/hr) 


Home 


Office 






Home 


Office 


Direct Dial $6.00 


$9.60 






$6.60 


$9.60 


(from Boston, Toronto) 












Basic Rate* $6.00 


$16.00 






$7.20 


$17.40 


(Mainland U.S. and Canada 


via Tymnet 


and Uninet) 




Basic Rate* $9.00 


$19.00 






$10.20 


$20.40 


(Alaska and Hawaii, via Tymnet) 










Basic Rate* $16.80 


$16.80 






$18.00 


$18.00 


(Puerto Rico, via Tymnet) 












Datapac $16.80 


$16.80 






$18.00 


$18.00 


(Canada) 












International** $8.00 


$8.00 






$8.00 


$8.00 


(other than Canada) 












* Includes network (Tymnet and Uninet) 


charges 






** International connect charges are e: 


eclusive 


of telecommunications 


charges, which are billed separately. 











cost of the Delphi Advantage package 
is $12, but this fee is being waived for 
first-time plan members who sign up 
before June 1, 1986. 

A potential drawback to the Delphi 
Advantage for some users is that you 
must commit to using at least $24 worth 
of Delphi services each month. Your 
account will be charged for this amount 



even if you only spend a few minutes 
online in a given month. The terms of 
membership for the Delphi Advantage 
are as follows: 

Eligibility 

1) Delphi members using credit card 
billing are eligible. 

2) Direct-bill customers are eligible if 
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the monthly fee is paid in advance. 

3) A Delphi member with unused con- 
nect time credit becomes eligible once 
that credit is cleared from his account. 

Benefits 

4) Advantage plan members are assured 
Delphi's lowest access rates. 

5) Members will receive updated hand- 
books and command cards. 

6) Members can participate in periodic 
surveys concerning Delphi. 

Fees 

7) Entry into the Advantage plan carries 
a $12 fee. 

8) The entry fee is waived for first-time 
plan members who join before June 1, 
1986. 

9) Members pay a monthly fee of $24 
in exchange for $24 worth of connect 
time during either home or office time. 

Applications and Billing 

10) Customers may apply online at any 
time. 

11) A Delphi Advantage membership 
becomes valid at 4 a.m. EST on the first 
billing day of the month following 
application approval. 

12) The $24 monthly fee is billed to a 
customer's credit card or direct-bill 
account on the monthly billing day, 
which is posted online in "Using Del- 
phi." 

Consider these membership terms 
and how they apply to you. 

2400 Baud at No Surcharge 

In a related matter, Delphi also offers 
2400 Baud telecommunications. In 
addition to operation at 300 Baud, there 
is no surcharge for 1200 and 2400 Baud 
service. This means no extra charge for 
downloading programs more quickly. 



Who, What, Where and How? 

There has been some confusion on 
the SIG as to who to send what and how. 
For future reference, "Letters to Rain- 
bow," "Reviewing Reviews" and 
"Scoreboard" material can be sent to us 
through Delphi by addressing such 
correspondence to EDITORS. Please 
use MAIL rather than FORUM for this 
purpose. Similarly, inquiries and orders 
should be MAILed to ORDERS. 
Online Shopping 

When in THE rainbow's Color Com- 
puter SIG, do check out our SHOP- 
PING service. There you can enter 
subscriptions to rainbow and order 
back issues of RAINBOW, binders and 
offerings from The Rainbow Bookshelf 
including rainbow on tape. 

Also, when online, do take the time 
to enter a profile for other SIG members 
to see. At the CoCo SIG prompt enter 
MEMBER, type I -AM and answer the 
questions. It's that easy. You're not done 
yet, however! Now, at the MAIN Del- 
phi prompt (where you first log on), 
select PEOPLE, type I -AM and answer 
those questions, too. Then when people 
do a 'U USERNRME in CONFerence, or 
type 'WHOIS USERNAME at the CoCo 
SIG or Forum prompts, they will be 
able to see who you really are. 

New Uploads! 

A special thank you to those who 
really make THE RAINBOW Color Com- 
puter SIG what it is. The following 
people have been so kind as to upload 
their programs: 

William Borie, DISKBANK, DATA 
PAC.TXT (Datapac XMODEM set 
routines). 

Jim Burris, MIJ, SQROFF 
(checkers/ tiddlywinks on a 3-D board). 

Kevin Davidson, KDAV1DSON, A 



BASIC Adventure (a game about BASIC). 

Marty Goodman, MARTYGOOD- 
MAN, TERMREV.TXT (review of 
smart terminal programs). 

Eldon Griffiths, LEMANS, EPROM 
Burner (software driver). 

Craig Hutchinson, CRAIGHUTCH, 
Bear Down Chic Bears (music). 

Don Kline, DON 13, 3-D Four in a 
Row (four in a row, but now in 3-D). 

Stephen Macri. DRACMAN, AD 
DRESS. BAS (address list program) 
and GOBANG.BAS (a five-in-a-row 
game). 

Art Martin, ARTMARTIN, MUL 
TfZAP.BAS (modification of Quick- 
zap from December 1985 RAINBOW). 

Jim Manning. JIMBM, Budget (a24- 
category budget program) and HOME 
BUD. BAS (a 48-category program). 

John Phelps, SPCMAN, DMAN 
(menu-driven disk manager). 

Dale Puckett, DALEP, Banker Driv- 
ers (to drive the Banker256K). 

George Quellhorst, OLDUTCH, 
THEFILE (filing/ addressing utility), 
3DT1CTAC.BAS and ONECHECK 
.BAS (games, of course), DESIRING 
.BIN (a little music to take you Bach) 
and CONVERT.BAS (a six-way base 
conversion utility). 

Eric Richards, ERICJAMES, 
SKELETON. BAS (PM0DE4 skeletons). 

Michael Schneider, MSCHNE 
IDER, A Menu For Deft PASCAL 
Workbench. 

Ken Schunk, KENSCHUNK, UN 
DERDOGI M/LY (mightier than CoCo 
Max?). 

Douglas Trites, RUGBY, Christmas 
Present Tags (four-color tags with the 
CGP-1 15 printer). 

We have also added several dozen 
new programs to the various topic 
sections of the database. □ 



Two-Liner Contest Winner . . . 

This two-liner displays decimal equivalent of 
each ASCII character, then displays how it will 
look when used with a PRINT statement. Finally, 
it shows you what appears when the value is poked 
into a screen memory location. 

The listings: 

$ CLS:FORX=lj3T019:FORY=8T054:SET 
(Y,X,5) :NEXTY:FORY=13T049STEP6:R 
ESET(Y,X) : RESET (Y+1,X) :NEXTY,X:F 
ORX=ljai014 : FORY=12T02 1STEP3 : RESE 
T(Y,X) :NEXTY:FORY=3pT045STEP3:RE 
SET(Y,X) :NEXTY,X:PRINT§134,"2 4 
7 9 :'• ;:PRINT@325,"1 3 



5 6 8 p - §"; 

2 PLAY ,, L8":PLAYE$:PLAY"02":E$=IN 

KEY$:IFE$= II "THEN2ELSEIFE$="^"THE 

NE$=" 10 " : GOT02ELSEIFE$=" : "THENE$ 

="11 ,I :GOT02ELSEIFE$= ,, -"THENE$="1 

2 " : GOT02ELSEIFE$=" @"THENE$=" 1" : P 

LAY"03 » : GOT02ELSE2 



Garry L. Shelton 
Kannapolis. NC 



(For this winning two-liner contest entry, ihe author has been sent copies 
of both The Second Rainbow Book of Adventures and its companion 
The Second Rainbow Adventures Tape.) 
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WISHING WELL 



16K 
ECB 



RAINBOW 



Continuing the "Life Skills" series 



Learning the Value 
of Numbers 




By Fred B. Scerbo 
Rainbow Contributing Editor 



Editor's Note: If you have an idea for 
the "Wishing Well," submit it to Fred 
c/o THE RAINBOW. Remember, keep 
your ideas specific, and don 7 forget that 
this is BASIC. All programs resulting 
from your wishes are for your use but 
remain the property of the author. 



Two months ago I said I would 
start a new series of programs 
designed to review skills that 
youngsters need to master for survival 
in the real world. The series, called "Life 
Skills," would alternate between real- 
life Simulations and skills quizzes. The 
first program, in the February 1986 
RAINBOW, was a Simulation of subtrac- 
tion skills. This month, I'm presenting 

Fred Scerbo is a special needs instructor 
for the North Adams Public Schools in 
North Adams, Massachusetts. He holds 
a master's in education and has pub- 
lished some of the first software avail- 
able for the Color Computer through 
his software firm, Illustrated Memory 
Banks. 



the second installment in this series: 
Computer Mathdrill '/ Number Identifi- 
cation. I hope you find this offering as 
valuable and innovative as the first. 

The Wish 

Your letters and comments continue 
to suggest that 1 keep creating programs 
that will help your youngsters in their 
educational development. Granted, 
many of you have requested more 
graphics, such as a Rockfest III or more 
games. I assure you those things are in 
the development stage as well. 

Many individuals who purchase a 
computer for their family often have an 
educational application in mind. More 
than once this application has proven 
the deciding factor between a CoCo 
and, say, a new washer. I need not 
remind you, though, that good educa- 
tional software is hard to find because, 
quite often, a) the person writing the 
program is not an educator, or b) the 
individuals who know what they want 
taught don't know how to program. 

Since computers mostly deal with 
manipulating numbers, and math pro- 
grams are usually the easiest to concep- 



tualize, too often these programs revert 
to a quiz of addition through division 
with any skill level included. Some of 
you may recall that my Adventure game 
of a few months ago, Math Miner, was 
a radical departure from this format. 
Many of you have indicated that you 
like that style, so something else new is 
in the works along those lines. 

However, too often, skills in actual 
number or digit analysis are lacking 
when it comes to computer programs. 
Before a student can effectively move on 
to a skill like rounding off decimals, the 
student must be able to determine what 
the value of the digit in the tenths place 
or where the hundredths place is. 

Many students have difficulty review- 
ing this skill since it must usually be 
done with pencil and paper or with the 
guidance of an instructor. This is not 
always practical in a classrom with a 
high pupil-to-teacher ratio. 

Therefore, our wish to be granted this 
month will be to develop a program that 
helps a youngster analyze the place 
value of numbers and digits. The result 
is our second "Life Skills" program on 
number evaluation. 
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The Program 

Be sure to take great care in typing 
in the DRTR statements at the beginning 
of the program; be sure to include every 
string of commas you see. You may 
recall that last month's program, Title 
Maker, was used to create the DfiTfl for 
this screen. Please refer back to that 
article for an explanation of why the 
blank commas are used. 

On running the program, the "Life 
Skills" title appears. You are asked to 
select a skill level from one to four (1- 
4). Level one creates a four-digit 
number with one decimal place; level 
two creates a six-digit number with two 
decimal places; level three creates an 
eight-digit number with three decimal 
places; finally, level four creates a 10- 
digit number with four decimal places. 
This allows the user or the instructor to 
set a level of difficulty that matches the 
level being covered in the classroom. 

Upon selecting the level, the screen 
clears and displays (if, for example, you 
are on level one): 

YOUR NUMBER 324.5 

Directly under the number is an 
arrow pointing to one of the places in 
the number. Before selecting the place, 
the arrow dances around the bottom of 
the number so as to appear to heighten 
the random nature of its selection. Next, 
a selection of letters and corresponding 
places are displayed. In this case, it will 
be: 

(D) HUNDREDS 

(E) TENS 

(F) ONES 

(G) TENTHS 

The reason the selections start with 
(D) and not (A) is because the most 
difficult level (four) starts with the 
hundred-thousandths place, which 
would be displayed at that level starting 
with the letter (A). 

The program has been written so only 
the applicable categories are displayed 
at any given time. 

The screen next displays: 

WHICH PLACE IS THE ARROW 

POINTING TO ? 

In the case of level one, only the keys 
D through G respond. If you press any 
key other than the '@' key, the program 
does not respond. The '@' key is used 
to check your score or end the program. 

If your answer is correct, the screen 
responds appropriately and indicates 
the correct letter choice as well. If the 
answer is wrong, the screen flashes and 




Model 101 Interface $39.95 



The Model 101 is a serial lo 
parallel interlace intended lor use 
with a COCO and any Centronics 
compatible parallel input printer. 
The 101 has 6 switch selectable 
baud rates (300-9600). The 101 
is only 4" x 2" x 1 ' and comes 



with all cables and connectors lor 
your computer and printer. 




^ 



The Model 104 Deluxe Interface $51.95 



The Model 104 is a serial lo 
parallel interlace like the Model 
101 but II has the added feature 
ol a serial port (sometimes 
referred to as a modem switch). 
This feature allows the connection 
ol a parallel printer and any 
serial device (modem, serial printer 



etc.) to your computer. You may 
then select either output, serial or 
parallel, with the flip of a switch. 
The 104 is only 4.5" x 2.5" x 1.25" 
and comes wilh all cables and 
connectors for your computer. You 
supply the serial cable for your 
modem or other serial device. 




Model 103 Combo $68.95 



With the turn of a knob the 
model 103 switches your 
computer's RS232C serial port 
to any one of 3 outputs — 2 
serial and 1 parallel. The serial 
ports may be used for modems, 
serial printers or even another 
computer. The parallel port can 



be used with any Centronics 
compatible printer. The 103 has 
the best features from the 101 
and 102: color coded position 
Indicator lights, 6 switch 
selectable baud rates, heavy 
anodlzed aluminum cabinet, and 
many more. 




Model 102 Switcher $35.95 



The Model 102 has 3 switch 
positions thai allow you to 
switch your computer's serial 
output between 3 different 
devices (modem, printers or 
another computer). The 102 has 
color coded lights that Indicate 
the switch position. These 



lights also act as power 
Indicators to let you know your 
computer Is on. Supplied with 
the 102 are color coded labels 
that can be applied to your 
accessories. The 102 has a heavy 
guage anodlzed aluminum cabinet 
with non-slip rubber feet. 




Cassette Label Program $6.95 



New Version 1.2-Tape transfera- 
ble to disk. Now save and 
load Labels from tape or disk. 



This fancy printing utility prints 
5 lines of Information on 
pinfeed cassette labels. "Cas- 
sette Label" is menu driven and 
is very easy to use. It uses the 
special features of your 
printer for standard, expanded 
or condensed characters. Each 
line of text is automatically 
centered. Before the label 
Is printed, It is shown on your 



THE 101, 103 AND 104 ALL 
REQUIRE POWER IN ORDER TO 
OPERATE. MOST PRINTERS 
CAN SUPPLY POWER TO YOUR 
INTERFACE. STAR, RADIO 
SHACK, AND OKIDATA ARE JUST 
A FEW THAT DO. EPSON DOES 
NOT. THE INTERFACES CAN 
ALSO BE POWERED BY AN AC 
ADAPTER (RADIO SHACK MODEL 
273-1431 PLUGS INTO ALL 
MODELS). IF YOU REQUIRE A 
POWER SUPPLY. ADD A "P" TO 
THE MODEL NUMBER AND $5.00 
TO THE PRICE. (MODEL 101P 
$44.95, MODEL 104P $56.95 AND 
MODEL 103P $73.95) 



CRT — enabling you to 
make changes If you like — 
then print 1, 2 or 100 labels. The 
program comes on tape and it 
Is supplied with 24 labels to 
get you started. 16K ECB 
required. 




Other Quality Items 

High Quality 5 Screw Shell C-10 
Cassette Tapes $7.50 per dozen 

Hard Plastic Storage Boxes for 
Cassette Tapes $2.50 per dozen 

Pin Feed Cassette Labels 
White $3.00 per 100 
Colors $3.60 per 100 (Red, Blue, 
Yellow or Tan) 



The Model 101, 102, 103 and 104 
will work with any COCO, any 
level basic and any memory size. 
These products are covered by 
a 1 year warranty. 

The Model 101. 103 and 104 work 
with any standard parallel input 
printer including Gemini, Epson. 
Radio Shack. Okidala, C. loth and 
many others. They support 
BASIC print commands, word 
processors and graphic com- 
mands. 

We manufacture these products. 
Dealer Inquiries are Invited. 



To order call our 24 hour order 
line 513-677-0796 and use 
your VISA MASTERCARD 
request C.O.D. or send check or 
money order to: 

Metric Industries 
P.O. Box 42396 
Cincinnati, OH 45242 

Free shipping on orders over 
$50.00. Ohio residents add 5.5% 
sales tax. 

Orders under $50.00 please add 
$2.50 for shipping. 
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a sound indicates the choice is not 
correct. The user must continue until 
the correct answer is entered. After all 
the places in the number have been 
covered, the second half of the quiz 
format is activated. 

The screen next prints: 
WHAT IS THE DIGIT AT PLACE F? 
or one of the other letter answers. Now 
the user must identify the number that 
appears in, say, the tens place, and press 
the number key (0-9) as it appears at the 
top of the keyboard. The correct and 
incorrect answer responses are the same 
as in the first half. 

Therefore, as you can see, this drill 
helps quiz and reinforce both the skills 
of identifying the place value in a digit 
and the correct title of each place. The 
quiz can be stopped at any time by 



pressing '@' to check the score. Pressing 
'C from the score card allows the user 
to continue taking the drill after check- 
ing the score, although a new number 
is generated if this continue function is 
used in the middle of a generated 
number. 

MC-10 Changes 

To keep those who still have MC-10 
computers happy, you must make the 
following changes to make this program 
work on your 20K machine. Change the 
REM statement in Line 50 from: 

50 REM IF MC-10 THEN MC=153G0 
to 

50 MC=153G0 

In Line 130, you must change the 
value of (-TIMER) to (9999), since 
MC-10 has no timer. Also, in lines 370 



and 455, you must delete the commands 
that read: 

PMQDE4,1:5CREEN0,1 
and 

SCREEN0.0 
since these are graphics commands that 
only work in Extended Color BASIC. 
The rest of the program should work as 
listed. All remaining instructions are the 
same. 
Conclusion 

I have been using an earlier version 
of this drill for some time now. It has 
proven to be very valuable in develop- 
ing and reinforcing math skills. I hope 
you find it equally useful as you add it 
to your collection of educational and 
"Life Skills" programs, which can only 
be found in THE RAINBOW. D 



The listing: LIFE5KL2 



Vm.... 


...151 




185 ... 


...238 




265 .. . 


...233 




360 ... 


. . . .68 




440 .. . 


....18 




END .. 


....31 




\ 





10 
15 
20 
25 
20 
35 
40 
45 
50 
55 



REM ************************** 
REM* LIFE SKILLS MATH DRILL * 



REM* NUMBER EVALUATION 
REM* BY FRED B.SCERBO 
REM* 60 HARDING AVE 
REM* NORTH ADAMS, MA 01247 
REM* COPYRIGHT (C) 1986 
REM* ************************* 
REM IF MC-10 THEN MC=153 60 
CLS0 : FORI=lT03 2 : PRINTCHR$ ( 156 
) ; : NEXT 

60 FORI=lT019 2 : READA : IFA=0THENA= 
16 

65 PRINTCHR$(A+112) ; :NEXT 
10 F0RI=1T032:PRINTCHR$(147) ;:NE 
XT 

75 DATA109,104,96,109,104,100,11 
, 108 , 106 , 109 , 108 , 109 , , , 30 , 28 , 26 
, 29 , , , 30 , 20 , 30 , 20 , 30 , 16 , 20 , 30 , , 2 
1,28,29 

80 DATA101, , ,101, , ,106,96,104,10 
1, ,100, , ,26, ,24,21,16,22,16, ,26, 
,26, ,16, 26, ,21, ,20 

85 DATA101, , ,101, , ,107,106,96,10 
1,99,98, , ,27,19,18,21,2 2,16, , ,26 
, ,26, ,16,26, ,21,19,19 
90 DATA101,,,101,,,106,104,,101, 
, , , , , ,26,21,20,18, , ,26, ,26, ,16, 2 
6, , , , 21 
95 DATA101, ,106,101, , ,106, , ,101, 



,97,, 16, 26,, 26 ,21, ,20, 18,, 26, ,26 

,21,16,26,21,21, ,21 

100 DATA103 , 99 , 106 , 103 , 98 , 97 , 107 

,,,103, 99, 103,,, 27, 19, 26, 23, 18,, 

27 , 17 , 27 , 17 , 27 , 23 , 17 , 27 , 23 , 21 , 19 

,23 



COMPUTER MATHDR 
NUMBER EVALUAT 
BY FRED B.SCER 
COPYRIGHT (C) 1 
SKILL LEVEL (1 



105 PRINT§293," 

ILL " ; 

110 PRINTS 3 2 5," 

ION " ; 

115 PRINT@357," 

BO " ; 

120 PRINT@389," 

986 "; 

125 PRINT@453," 

-4) »; 

130 X$=INKEY$ :MU=RND( -TIMER) :IFX 

$="»THEN130 

135 RR=VAL(X$) :IFRR<1THEN130 

140 IF RR>4THEN130 

145 ON RR GOTO150,155,160,165 

150 M=4:P=7:Y=3:GOTO170 

155 M=3:P=8:Y=2:GOTO170 

160 M=2:P=9:Y=1:GOTO170 

165 M=1:P=10:Y=0:GOTO170 

170 REM START PROGRAM 

175 K=0:CLS:FORI=1TO10:B(I)=0:NE 

XT I 

180 FORI=1TO10:A(I)=0:NEXTI:FORI 

=M TO P 

185 A(I)=RND(11)-1:IF A(I)=0THEN 

185 

190 NEXTI:IF Y=0THEN A(1)=RND(10 

) 

195 CLS: PRINT §3 3, "YOUR NUMBER"; 

200 FORI=lT06:IF A(I)=0 THEN POK 

EMC+ 1069+1, 96 

205 IF A(I)<>0 THEN POKEMC+ 1069 



120 
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+I,111+A(I) 


NEXTH:NW=NW+l:POKEMC+1088+(C*32) 


210 NEXTI:POKEMC+1076,110:FORI=7 


,96:GOT0325 


TO10:IF A(I)=0 THEN POKEMC+ 1070 


380 IFC<=6 THEN POKEMC+1101+C, 96 


+1,96 


385 IFC>6 THEN POKEMC+1102+C, 96 


215 IF A(I)<>0 THEN POKEMC+ 1070 


390 NEXTQ 


+I,111+A(I) 


395 FORI=1472T01535:POKEMC+I,96: 


220 NEXTI 


NEXT:FORQ=M TO P 


225 FORI=1TO10:A(I)=A(I)-1:NEXTI 


400 J=P-M+l:C=RND(J)+M-l:IF B(C) 


230 IFY=3THEN260 


=0THEN400 


235 IF Y=2THEN255 


405 B(C)=0 


240 IF Y=1THEN250 


410 PRINTS 4 4 9, "WHAT IS THE DIGIT 


245 PRINT@97,"(A) HUNDRED THOUSA 


AT PLACE"; :PRINT@476,CHR$(C+64) 


NDS"; 


• •I 9" 


250 PRINT@129,"(B) TEN THOUSANDS 


415 B$=INKEY$:POKEMC+1088+(C*32) 


ii • 


, 106 :POKEMC+ 1088+ (C*32) ,96:IFB$= 


255 PRINT@161," (C) THOUSANDS"; 


"@"THEN485 


260 PRINT@193,"(D) HUNDREDS"; 


420 IFB$=""THEN415 


265 PRINT@225,"(E) TENS" ;: PRINTS 


425 E=ASC(B$) :IFE<48THEN415 


257, "(F) ONES" ;:PRINT@289, "(G) T 


430 IFE>57THEN415 


ENTHS" ; : IFY=3THEN285 


435 SOUND100,1:IF (E-48)OA(C) T 


270 PRINT@321,"(H) HUNDRETHS " ; : I 


HEN 455 


F Y=2THEN285 


440 IF C<=6THENPOKEMC+1101+C,94 


275 A$= " THOUSANDTHS " : PRINT @ 3 5 3 , " 


445 IF 06THEN POKEMC+ 1102+C,94 


(I) ";A$;:IF Y=1THEN285 


450 NR=NR+1: PRINTS 4 9 7, "CORRECT ! 


280 PRINT@385,"(J) TEN ";A$; 


" ; : SOUND100 , 1 : FORG=1TO1700 : NEXTG 


285 PRINT§215,"PRESS @";: PRINTS 2 


: FORG=1520TO1535 : POKEMC+G ,96: NEX 


47, "TO END." 


TG:GOT04 65 


290 FORQ=M TO P 


455 NW=NW+1:FORH=1TO4:SOUND50,9: 


295 J=P-M+1:C=RND(J)+M-1:IF B(C) 


PRINTS497 , "WRONG" ; : SCREEN0, 1 : SOU 


=1THEN295 


ND25,9:PRINT@497,"WRONG"; : SCREEN 


300 B(C)=1 


0,0:NEXTH 


305 FORJW=lT05:FORPW=M TO P+l:PO 


460 FORH=1520TO1535:POKEMC+H,96: 


KEMC+ PW+1101,94:FORKW=1TO9:NEXT 


NEXTH:GOT0415 


KW:POKEMC+ PW+1101, 96 :NEXTPW, JW 


465 IF C<=6 THEN POKEMC+1101+C, 9 


310 IFC<=6 THEN POKEMC+1101+C, 94 


6 


315 IFC>6 THEN POKEMC+1102+C, 94 


470 IF C>6 THEN POKEMC+ 1102+C,9 


320 PRINT@ 4 4 9, "WHICH PLACE IS TH 


6 


E ARROW" ;:PRINT@481, "POINTING TO 


475 NEXTQ 




480 GOT0175 


325 B$=INKEY$:POKEMC+1519,255:PO 


485 REM SCORE CARD 


KEMC+1519 , 223 : POKEMC+1519 , 175 : PO 


490 REM NW=WRONG:NR=RIGHT 


KEMC+1519 , 96 : IFB$=" §"THEN485 


495 CLS : PRINT : PRINT : PRINT 


330 IFB$=""THEN325 


500 PD=NR+NW : PRINTTAB ( 3 ) " PROBLEM 


335 E=ASC(B$) : IFE< (64+M) THEN325 


S COMPLETED = "PD: PRINT 


340 IFE>(76-Y)THEN325 


505 PRINTTAB (3) "CORRECT RESPONSE 


345 POKEMC+1088+(C*32) ,106: SOUND 


S = "NR: PRINT 


200,1:IF (E-64)OC THEN 370 


510 PRINTTAB (3) "INCORRECT RESPON 


350 PRINTS 4 9 7, "CORRECT !"; 


SES = "NW: PRINT 


355 SOUND100,1:FORH=1TO1700:NEXT 


515 TR=NR+NW:IFTR=0THENTR=1 


H:FORH=1520TO1535:POKEMC+H,96:NE 


520 SC=INT(NR/TR*100) 


XTH 


525 PRINTTAB (3) "YOUR TOTAL SCORE 


360 NR=NR+1:POKEMC+1088+(C*32) ,9 


= "SC"%": PRINT 


6 


530 PRINTTAB ( 3 ) "ANOTHER TRY (Y/N 


3 65 GOTO380 


) OR (C) ?»; 


370 FORH=1TO4:SOUND50,9:PRINT@49 


53 5 X$=INKEY$:IFX$=""THEN53 5 


7 , "WRONG" ; : PMODE4 , 1 : SCREEN0 , 1 : SO 


540 IFX$="Y"THEN RUN 


UND2 5 , 9 : PRINTS497 , "WRONG" ; : SCREE 


545 IFX$="N"THEN CLS : END 


N0,0:NEXTH 


550 IFX$="C"THEN 175 


375 FORH=1520TO1535:POKEMC+H,96: 


555 GOT0535 ^ 
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Happy Birthday Balloons 



By Gary Huffman 






^^t 



.10 



280 222 

350 211 

END 140 



The listing: BIRTHDAY 



20 
30 
40 
50 
60 
70 



!!!!!!!!!!!!!!!!!!!!!!!!!! 

HAPPY BIRTHDAY BALLOONS ! 

BY GARY HUFFMAN 

COPYRIGHT (C) 1985 

2101 7TH AVE SO 

GREAT FALLS, MT. 59405 

!!!!!!!!! 1 !!! 1 !!!!! M ! 11 



Greet your family and friends 
with this birthday salute. The 
program produces a scene of 
eight balloons with the "Happy Birth- 
day" greeting. When the scene is drawn 
and painted, the tune "Happy Birthday" 
is played. It is then followed with my 
own jazzy arrangement of the same 
song. If a birthday is not the occasion, 
but you like the picture, just add a line: 
235 GOTO 235. □ 

Formerly a letter carrier, Gary is now 
a clerk for the U.S. Postal Service. He 
enjoys playing guitar, singing and pro- 
gramming on his CoCo. He and his 
wife, Paula, and two children live in 
Great Falls, Montana. 




8^ PMODE3, 1XPCLS2 :SCREEN1,0 

90 CIRCLE (100 ,50) , 30 , 3 , 1. 25 : DRAW 

"C3BM100 , 86G5R10H5" : PAINT (100 , 50 

) , 3 : PAINT ( 100 , 88 ) , 3 : CIRCLE ( 100 , 5 

0), 25,1, 1.25, .5, .70 

100 LINE (130, 180) -(100, 85) , PSET 

110 LINE (130 , 180 ) - (130 , 60 ) , PSET 
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120 CIRCLE (130, 30) , 25, 1, 1.25: PAI 

NT ( 150 , 40) , 1 : DRAW"C1BM130 , 58G5R1 

0H5" : PAINT (130 , 61) , 1 : CIRCLE (130 , 

30), 20, 3, 1.25, .5, .7 

130 CIRCLE (190, 55) , 30 , 4 , 1 . 25 : DRA 

W"C4BM190 , 90G5R10H5" : PAINT ( 190 , 5 

5) ,4:PAINT(190,93) , 4 : CIRCLE (190, 

55) ,25,1,1.25, .5, .7 

140 LINE (130, 180) -(190, 85) , PSET 

150 CIRCLE (160, 80) ,25, 3, 1.25: PAI 

NT (160 , 80) , 3 : DRAW"C3BM160 , 108G5R 

10H5" : PAINT ( 160 , 111) , 3 : CIRCLE (16 

0,80),20,1,1.25,.5,.7 

160 LINE(130,180) -(160, 103) , PSET 

170 CIRCLE (120, 100) , 30 , 1, 1 . 25 : PA 

INT ( 120 , 100 ) , 1 : DRAW ,: C1BM120 , 135G 

5R10H5" :PAINT(120,138) ,1 

180 LINE(130, 180)-(120, 132) , PSET 

190 CIRCLE (85, 95) ,33, 4, 1.25: PAIN 

T(85,95) ,4:DRAW"C4BM85,133G5R10H 

5": PAINT (85, 136) , 4 : CIRCLE (85 , 95) 

,28,1,1.25, .5, .7 

200 LINE(130,180)-(85,130) , PSET 

210 LINE(130, 180) -(100, 115) , PSET 

220 CIRCLE (100, 90) , 25, 2 , 1. 25: PAI 

NT ( 100 , 90) , 2 : DRAWC2BM100 , 118G5R 

10H5 " : PAINT ( 100 , 12 1 ) , 2 : CIRCLE ( 10 

0,90) ,20,1,1.25, .5, .7 

230 CIRCLE(30,30) , 25 , 4 , 1 . 25 : PAIN 

T(30,30) ,4:DRAW"C4BM30,58G5R10H5 

" : PAINT ( 30 , 6 1) , 4 : C0L0R1 , 2 : LINE ( 3 

0,60) -(35, 110) , PSET: CIRCLE (30, 30 

), 20, 1,1. 25, .5, .7 

240 DRAW"C4BM25,115D30R7U15R8D15 

R7U30L7D10L8U10L7 " : PAINT (30,125) 

,4 

250 CIRCLE (62, 135) ,10,1,1, .15, .9 

:DRAW"C1BM70,130U4R7D18L7U4":CIR 
CLE(62,135) ,5,1:PAINT(68,135) ,1 
260 DRAW"C3BM87,130U4R7D4U4L7D25 
R7U10":CIRCLE(102,13 5) ,10,3,1, .6 
5 , . 3 6 : CIRCLE (10 2, 135), 5, 3: PAINT ( 
94,135) ,3 

270 DRAW"C4BM120,130U4R7D4U4L7D2 
5R7U10" ."CIRCLE (135, 135) , 10 , 4 , 1 , . 

65, .36:CIRCLE(135,135) , 5 , 4 : PAINT 

(127, 135), 4 

280 DRAW"C3BM152,127F8G15R9E23L9 

G3H3L9": PAINT (159, 130) ,3 

290 DRAW"C3BM10,155R7D4U4L7D30R7 

U4":CIRCLE(24,163) ,10,3,1, .65, .1 

5: CIRCLE (25, 177) , 10 , 3 , 1 , . 85 , . 4 : C 

IRCLE (24, 163), 5, 3: CIRCLE (25,177) 

,5,3:PAINT(15,160) ,3 

300 DRAW"C1BM40,170D15R7U15L7":C 

IRCLE(44,160) ,5,l:PAINT(44,160) , 

1: PAINT (44, 175) ,1 

310 DRAW"C3BM57,170R7D4U4L7D15R7 



U6":CIRCLE(71,177) , 8 , 3 , 1, . 60 , . 89 

: CIRCLE (71, 184) , 8 , 3 , 1, . 60, . 88 : DR 

AW"C3BM75,173D4": PAINT (60 ,175) ,3 

320 DRAW"C4BM90,170U5R7D5R5D7L5D 

8L7U8L5U7R5": PAINT (93, 175) ,4 

330 DRAW"C1BM113,155R7D15U15L7D3 

0R7U5":CIRCLE(128,177) ,10,1,1, .6 

2, .1: CIRCLE (124, 184) ,8,1,1, .62, . 

047 : DRAWC1BM133 , 185R3U3 " : PAINT ( 

116,160) ,1 

340 CIRCLE (155, 177) ,10,3,1, .15, . 

9 : DRAW"C3BM162 , 172U18R7D32L7U4" : 

CIRCLE ( 155 , 177 ) ,5,3: PAINT ( 165 , 17 

8), 3 

350 CIRCLE(185, 177) ,10,4,1, .15, . 

9 : DRAWC4BM193 , 172U4R7D18L7U4" : C 

IRCLE ( 185 , 177 ) ,5,4: PAINT ( 191 , 177 

),4 

360 DRAW"C1BM212,168F8G15R9E23L9 

G3H3L9": PAINT (219, 171) ,1 

370 DRAW"C3BM245,155D20R7U20L7": 

CIRCLE (249, 183) , 5 , 3 : PAINT (248 , 16 

0) ,3:PAINT(249,183) ,3 

380 SCREEN1,1:FORX=1TO250:PSET(R 

ND(255) ,RND(191) ,RND(8) ) :NEXT 

390 FORY=1TO15:FORX=1TO100:NEXTX 

: SCREEN1 , 1 : FORX=1TO100 : NEXTX : SCR 

EEN1,0:NEXTY 

400 PLAY"O3T5L4CP100CL2DCFL1EL4C 

P100CL2DCGL1FL4CP100CO4L2CO3AL4F 

P100FL2EL1DL4B-P100B-L3 AFGFP1" 

410 SCREEN1,1:PLAY"T5L4CP100CL2D 

CFL1ET8L4CDEGAEGEDCP4T5L4CP100CL 

2DCGL1FT8L4FGA04CD03A04C03AGFP4T 

5CP100CO4L2CO3AL4FP100FL2EL1DT8L 

4B-P100B-FP100FDP100DCO2A+P4T5O3 

L4B-P100B-L1AFGFP1T8L4FP100FDP10 

0DCO1AGL1FP1" :RUN 
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By Larry E, Jones 



The big secret to having a green 
thumb is knowing how often to 
feed and water your plants 
(most people water too often, which 
kills them faster than not watering 
often enough). Also important is 
knowing how much light to give each 
plant. If you have a variety of plants, 
it can be a real hassle remembering the 
requirements of each. 

Plantlog is a file program for the 
Color Computer with at least I6K that 
remembers individual plant require- 
ments for you. Though most of the 
menu options are self-explanatory, 1 
will go through each of them for those 
who are new to database-type pro- 
grams. 



Larry Jones is a self-taught pro- 
grammer. He is currently working 
toward degrees in English and compu- 
ter information systems at the Univer- 
sity of Southern Indiana in Evansville. 



Menu Options 

After loading Plantlog, the menu 
appears on the screen; the first option, 
LOAD FILE, is in inverse letters. 
Each lime the space bar is pressed the 
next option appears in inverse and the 
previous option returns to normal 
print. Press ENTER when the option 
desired is in inverse letters. The menu 
then wraps around, that is, when you 
reach the last option, press the space 
bar again and you will be back on 
LOAD FILE. If ENTER is pressed for 
the wrong option, don't worry — each 
time you press ENTER from the menu 
you get a Y/N prompt; if you answer 
'N\ nothing happens and you can 
make another choice. 

LOAD FILE: This lets you load 
information from a previously saved 
file (more on that later). You may 
specify the filename or simply press 
ENTER if the file is saved as PLDA T. 
You may load a file from tape or disk. 

SAVE FILE: This allows you to 
save an information file you have 
entered using the ADD TO FILE 




option. Again, you may specify the 
filename or press ENTER to save the file 
as PLDA T, and you may save the file 
to tape or disk. 

CHECK TODAY: This option is 
very handy. After loading your file, 
this option prompts for the date (be 
sure to enter all dates in day/ month/ 
year separated by slash marks and use 
double digits, for example: 01/12/ 85). 
Plantlog then compares the date with 
the next water and feed dates of each 
plant in the file. If any are due or 
overdue, it prints that plant's record 
on the screen and asks if you want to 
update the water and feed dates. You 
should water/ feed the plant in ques- 
tion and enter 'Y' in reply to the 
prompt. The program automatically 
updates the next water and feed dates 
for that plant. This procedure is re- 
peated for each plant that is due, then 
you are returned to the menu. If you 
have updated a record, be sure to save 
your new file by choosing the SAVE 
FILE option. 

LOOK ALL: This allows you to 
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look at your entire file. Each record is 
printed on the screen; when you are 
ready to see the next record, press any 
key. When you reach the file's end, you 
are returned to the menu. 

LOOK ONE: If this option is chosen, 
you are shown all the plant names in 
your file and asked to enter the name 
of the plant whose record you wish to 
see. That record is printed on the screen 
and you may press any key to return to 
the menu. 

CHANGE ENTRY: This lets you 
correct misspellings or change the 
elapsed time between watering or feed- 
ing (in case your guess or the book was 
wrong). You are shown the names of the 
plants in the file and asked which 
contains the line you want to change. 
Enter the plant name and that record is 
printed on the screen. You are then 
asked which line you want to change. 
Enter the label (plant name, light, etc.), 
the old line is printed at the bottom of 
the screen, and you are asked to enter 
the corrected line. Next, you are asked 
if you want the old line replaced by the 
new line. If you answer 'Y', the change 
will be made; if you answer 'N', no 
changes are made. You may press 'M' 
to return to the menu. Remember, if a 
change is made you must save the new 
file or the change will not be recorded. 

ADD TO FILE: This option is used 
to create a new file or add to an existing 
file. If you wish to create a new file, do 
not load a previously saved file but go 
directly to ADD TO FILE. If you wish 
to add to a previously saved file, load 
the file then choose the ADD TO FILE 
option. You are shown the record 
number (T for a new file or 1 plus the 
number of records in an old file) and 
prompted to enter the necessary infor- 



mation for each record. This option 
asks for plant name, light, type of food, 
last water date, number of days between 
watering, last feed date and number of 
days between feeding. The last input 
allows you to enter any comments or 
reminders. ADD TO FILE automati- 
cally computes the next water and feed 
dates. You may add as many new re- 
cords as desired as long as the total for 
that file does not exceed 50. When 
finished, enter *** at the plant name 
prompt and you are returned to the 
menu, at which time you should save the 
new or expanded file. 

DELETE FROM FILE: Even the 
best of us lose one every now and then. 
This option lets you remove the 
unpleasant memory from the file. You 
are shown the plant names in the file 
and asked which you wish to remove. 
Enter the name of the plant and you are 
asked if you really want to delete that 
record. If you answer 'Y', the record 
ceases to exist and each record with a 
higher number is dropped down one to 
fill the gap. You are returned to the 
menu where you should save the new 
(shorter) file. If you answer 'N' to the 
delete prompt, you are returned to the 
menu with no changes. 

All sequential files work more or less 
the same, so if you are interested in 
learning how to write a file program you 
might want to study Plantlog. The REM 
statements tell what lines do what. The 
variable list is shown in Figure I. 

Plantlog makes it easier to care for 
your plants, and if you don't have any, 
this program gives you some ideas on 
how to brighten up that dreary compu- 
ter room. Plants not only brighten up 
a room, but also give off oxygen. When 
you are programming, you need all of 



Figure 1 



Variables 


Function 


M 1 $ array 


Menu options (capi- 




tals) 


M2S array 


Menu options (in- 




verse) 


L$ array 


Labels (plant name, 




etc.) 


E$ array 


Holds file after load- 




ing 


TI$ 


Title 


F$ 


Filename (LOflD- 




SflVE) 


TD$ 


Today's date (check 




today) 


C$ 


Line to change 




(change entry) 


CIS 


New line (change 




entry) 


DV$ 


Device (tape-disk) 


LN$ 


Prints a line on the 




screen 


YS 


Used for all yes/ no 




prompts 


NR 


Number of records in 




file 


NF 


Number of fields in 




record 


L array 


Used to center menu 




option on screen 


ED/EM/EY 


Day/ month/ year en- 




tered (check today) 


DW/MW/Y1 


Water day/ month/ 




year (check today) 


DF/MF/YF 


Feed day/ month/ year 




(check today) 



the oxygen you can get! 

(Any questions about this program 
may be directed to the author at 1713 
Delmar Avenue, Evansville, IN 47712, 
phone 812-424-1026. When writing, 
please enclose an SASE for a reply.) □ 



r* 


...138 ~\ 


240 ... 


...33 


300 .. . 


...239 


440 ... 


...84 


560 .. . 


...208 


END .. 


18 





The listing: PLANTLOG 



10 CLEAR : CLEAR1000 : NR=50 : NF=10 : M 
U=8 : DIME$ (NR, NF) : LN$=STRING$ ( 32 , 
45) :TI$="plant log " 
20 REM get labels 

30 FORX=l TONF:READL$(X) : NEXT: DA 
TA PLANT NAME, LIGHT, CURRENT FOOD 
,LAST WATER DATE,# DAYS WAIT(W), 
next water date, LAST FEED DATE,# 
DAYS WAIT (F), next feed date, COM 
MENTS 



40 REM get menu options 
50 FORX=l TOMU:READMl$(X) ,M2$(X) 
:L(X)=INT( (32-LEN(Ml$(X) ) )/2) :NE 
XT 

60 DATA LOAD FILE, load file, SAVE 
FILE, save file, CHECK TODAY , chec 
k today, LOOK ALL, look all, LOOK O 
NE,look one, CHANGE ENTRY, change 
entry, ADD TO FILE, add to file,DE 
LETE FROM FILE, delete from file 
70 REM print menu 

80 CLS : PRINTTAB ( 11) "plant log":P 
RINTLN$ : PRINTTAB ( 14 ) "MENU" : PRINT 
TAB(12)STRING$(8,45) :FORX=l TOMU 
:IFX=1 THENPRINTTAB(L(X) )M2$(X) : 
NEXT ELSEPRINTTAB(L(X) )M1$(X) :NE 
XT: PRINT: PRINTTAB (3) "space FOR I 
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Recommended Reading for Your CoCofrom . 




/TtHFs 



The Rainbow Bookshelf 









%» 
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The Complete Rainbow Guide To OS-9 

The book that demystilies the state-of-the-art operating system 
for the Tandy Color Computer. Authors Dale L. Puckett and Peter 
Dibble show you how to take advantage of OS-9's multi-tasking 
and multi-user features, and the capability of redirecting input 
and output commands at will. An easy-to-read, step-by-step guide 
packed with hints and tips, tutorials and free software in the form 
of program listings. 
Book $19.95, Disk $31.00 (2 disks, book not included) 



The Rainbow Book of Simulations 

Features 20 award-winning entries from the rainbow's first 
Simulation programming competition. You are the Commander- 
in-Chief of the Confederate Army during the Civil War, an air 
traffic controller at one of the nation's busiest airports, the owner 
of your own software business, a civil defense coordinator in 
charge of saving Rainbow City from a raging flood, a scientist 
conducting experiments on Mars . . . Your wits are on the line. 
Book $9.95, Tape $9.95 



■*5§ 



The Rainbow Book of Adventures 

A collector's item containing 14 winning programs from THE 
rainbow's very first Adventure contest. Includes such favorites 
as Sir Randoll ol the Moors, Search lor the Ruby Chalice, Deed 
ol the York, Horror House, One Room, The Door and Dr. Avaloe. 
Plus, hints and tips on solving Adventures. 
Book $7.95, Tape $7.95 



The Second Rainbow Book of Adventures 

Our newest arrival features 24 of the most challenging Adventure 
games ever compiled. Meet the Beatles and battle the Blue 
Meanies, find a hidden fortune, or win the heart of a beautiful 
and mysterious princess. Experience the thrills and chills of the 
most rugged Adventurer without ever leaving your seat. Ring 
Quest, Secret Agent Man, Dark Castle, Curse ol Karos, Island 
and more! 
Book $13.95, Tape $13.95 



Coming soon 
The Rainbow Guide to Introductory Statistics 
The Second Rainbow Book of Simulations 



I want to start my own Rainbow Bookshelf! 

Please send me: 

□ The Rainbow Book of Simulations 

□ Rainbow Simulations Tape 

D The Complete Rainbow Guide to OS-9 
(book only) 

□ Rainbow Guide to OS-9 Disk Package (2 disks) 
D The Rainbow Book of Adventures (first) 
D Rainbow Adventures Tape (first) 



**<&<;:':' 



jwssa 



$ 9.95 . 
$ 9.95 . 

$19.95 
$31.00. 
$ 7.95 . 
$ 7.95 



Name 



Address 

City 

State _ 



ZIP 



□ The Second Rainbow Book of Adventures $13.95 . 

□ Second Rainbow Adventures Tape $13.95. 
Add $1.50 per book Shipping and Handling in U.S. 
Outside U.S., add $4.00 per book 

Kentucky residents add 5% sales tax 

(Allow 4 weeks lor delivery) Total . 



□ Payment Enclosed, or □ Charge to: 
□ VISA □ MasterCard □ American Express 



Account Number 



Card Expiration Date 
Signature 



Mail to: Rainbow Bookshelf, The Falsoft Building, P.O. Box 385, Prospect, KY 40059. To order by phone, call: (502) 228-4492. 

Please note The tapes and disks olfered by The Rainbow Bookshelf are not stand-alone products. That is, they are intended to be an 
adjunct and complement to the books. Even if you buy the tape or disk, you will still need the appropriate book. 
OS-9* is a registered trademark of the Microware Systems Corporation. 



TEM THEN enter" ; : 1=1 : Y=128+ (1*32 

)+L(l) 

90 REM scroll title 

100 FORX=l TO100:IFINT(X/10)=X/1 

ft THENPRINT@11,RIGHT$(TI$,LEN(TI 

$)-X/10) ; :PRINTLEFT$(TI$,X/10) 

lip REM get menu input 

12,0 I$=INKEY$:IFI$=CHR$(32)THEN1 

30 ELSEIFI$=CHR$(13)THEN150 ELSE 

NEXT: GOTO 10)8 

130 PRINT§Y,M1$(I) : 1=1+1 :IFI>MU 

THENI=1 

140 Y=128+(I*32)+L(I) :PRINT@Y,M2 

$(I) .'GOTO 100 

150 PRINT@Y+LEN(M1$(I) ) , " (Y/N)"; 

: INPUTY$ : IFY$="N" THENPRINT@Y+LE 

N(M1$(I) ) ,STRING$(6,32) :GOTO100 

ELSEIFY$<>"Y" THEN150 

160 REM check for empty file buf 

fer 

170 IFIOl ANDI07 THENGOSUB720 

180 CLS:ON I GOTO 200,230,260,35 

0,390,410,460,510 

190 REM load file 

200 GOSUB580:OPEN"I",#DV,F$:FORX 

=1 T0NR:F0RY=1 TONF: INPUT#DV,E$ ( 

X,Y) :IFE$(X,1)="***"THEN210 ELSE 

NEXTY : NEXTX 

210 CLOSE#DV:GOTO80 

220 REM save file 

230 GOSUB580 : OPEN"0" , #DV, F$ : FORX 

=1 T0NR:F0RY=1 TONF: WRITE#DV, E$ ( 

X,Y) :IFE$(X,1)="***"THEN240 ELSE 

NEXTY: NEXTX 

240 CLOSE #DV:GOTO80 

250 REM check today 

260 PRINT@224,"ENTER TODAY'S DAT 

E (DD/MM/YY)":INPUTTD$:IFLEN(TD$ 

)<>8 THENCLS:GOTO2 60 ELSEED=VAL( 

LEFT$(TD$,2) ) :EM=VAL(MID$ (TD$ , 4 , 

6) ) :EY=VAL(RIGHT$(TD$,2) ) 

270 FORZ=l T0NR:IFE$(Z,1)="***"T 

HEN80 ELSEIFE$(Z,6)=TD$ ORE$(Z,9 

)=TD$ THENCLS: PRINT :X=Z:GOSUB3 60 

:GOTO290 

280 ED=VAL(LEFT$(TD$,2) ) :EM=VAL( 

MID$ (TD$ ,4,6)): EY=VAL(RIGHT$ (TD$ 

,2)) 

282 DW=VAL(LEFT$(E$(Z,6) ,2) ) :MW= 

VAL(MID$(E$(Z,6) ,4,6) ) :YW=VAL(RI 

GHT$(E$(Z,6) ,2)) :DF=VAL(LEFT$(E$ 

(Z,9) ,2)) :MF=VAL(MID$(E$(Z,9) ,4, 

6)) :YF=VAL(RIGHT$(E$(Z,9) ,2)) :0$ 

=" overdue" 

284 IFEY>YF OR EY>YW THEN289 

285 IFEM>MF OR EM>MW THEN289 




PHOGSAMS ■ PEOIPMEIULS • SUPPLIES • SERVICE 



For Coco . . . 

in the Midwest 



Now in our 4th year! 




New Catalog Now Available 



CALL OR WRITE 




PRINTER SPECIAL! 

Star SG-10 , i J^^ A 2-■■ ■ • • PRINTER 

Metric Industries Model 104 T^e* Z. . INTERFACE 

Handsome brown vinyl rVi^/t* . DUST COVER 

Spare replacement RIBBON 

Starter pak of PAPER 



O-IQ 00 

^ ' &• COMPLETE 
SAVE 31.00 



"Authorized Star Micronics Service Center' 





LATEST 
VERSION! 

Features. . . 
•14 fonts 
•Shrink. Stretch 
Rotate 
•Multiple drives 
•Pattern Save 

UPGRADES AVAILABLE 
Disk I to II 20.00 
Tape I to Disk II 
25.00 



1W* f DELUXE JOYSTICK B Mk 



EXCELLENT FOR COLOR COMPUTER 
USE IT FOR GRAPHICS, GAMES, ETC. 

CoCo owners will appreciate this high quality, 
durable joystick. Open gimbal design ... self- 
centering or free-floating operation. Mechanical 
trims on both axes ... eight foot cable ... firing 
button has lifetime 5.000.000 presses. A two- 
button version of the Deluxe Joystick is available 
for the Tandy 1000. DEALER INQUIRIES INVITED 




$27.50 each 
$49. 95/ pair 



CHOOSE FROM OUR LARGE 
SELECTION OF COCO PRODUCTS 

B5 ... Colorware ... Deft ... Derringer ... Diecom ... 

Dynacaic ... Elite ... HJL ... J & M ... Mark Data ... 

Metric Industries ... Michtron ... Microcom ... Microworks ... 

Tom Mix ... PBJ ... PXE ... Speech Systems ... Sugar ... 

TCE ... VIP ... Zebra ... and more! 

Shipped immediately from stock! 



• Call 

513-396-SOFT 



• Shop by Modem • 

513-396-SHOP 






Write • 
2235 Losantiville. Cincinnati, OH 45237 

SHIPPING will b* elm Qfd » i ou« ACTUAL COST 

no re-,- tlenl-, Jdd 5 5% f, .,!,--. fa. COO Jdd 2 00 
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286 IFED>DW AND EM>=MW OR ED>DF 
AND EM>=MF THEN289 

288 GOTO330 

289 CLS:PRINTO$:X=Z:GOSUB3 60 

290 PRINT: INPUT "UPDATE WATER (Y/ 
N)";Y$:IFY$="N"THEN310 ELSEIFY$< 
>"Y"THEN290 

300 Y=6:E$(Z,4)=TD$:GOSUB640 

310 INPUT"UPDATE FEED (Y/N)";Y$: 

IFY$="N"THEN330 ELSEIFY$<>"Y"THE 

N310 

320 Y=9:E$(Z,7)=TD$:GOSUB640:CLS 

: PRINT : GOSUB3 60 : GOSUB560 

3 30 NEXTZ:GOTO80 

340 REM look all 

35J3 FORX=l TONR:IFE$(X,l)="***"T 

HEN370 ELSECLS:PRINTTAB(9)"file 

entry #"X:PRINTLN$:GOSUB3 60:GOSU 

B560:NEXTX:GOTO370 

3 6J3 FORY=l TONF-l:PRINTL$(Y)": " 

E$(X,Y) :NEXTY:PRINTL$(10) ":"E$(X 

,1J8) : RETURN 

370 CLS: PRINTTAB (10) "end of file 

" : GOSUB560 : GOTO80 

380 REM look one 

390 GOSUB620: CLS: PRINT :G0SUB3 60: 

GOSUB560:GOTO80 

400 REM change entry 

410 GOSUB620 

420 CLS: PRINT :G0SUB3 60: PRINT :INP 

UT"LINE TO CHANGE OR M FOR MENU" 

;C$:IFC$="M"THEN80 ELSEFORY=l TO 

NF:IFL$(Y)=C$ THEN4 30 ELSENEXTY: 

GOTO420 

430 PRINTL$(Y)": "E$ (X, Y) : PRINT" 

NEW "C$; :INPUTC1$:IFLEN(C1$)<1 T 

HEN430 ELSEE$(X,Y)=C1$:IFY=4 ORY 

=7 THENZ=X:Y=Y+2:GOSUB640 

440 INPUT"IS THIS CORRECT (Y/N) " 

;Y$:IFY$="N"THEN430 ELSEIFY$="Y" 

THEN420 ELSE440 
450 REM add to file 
460 FORX=l TONR:IFE$(X,l)="***"0 
RE$(X,1)=""THEN470 ELSENEXTX: PRI 
NTTAB(ll)"file full" :GOSUB560 : GO 
TO80 

470 FORZ=X TONR:CLS:PRINTTAB(9) " 
file entry #"Z:PRINTLN$ ; :PRINT"d 
ates must be: day/month/year. d 
ouble digits separated by / e 
xample (01/02/85) " :FORY=l TONF 
480 IFY=6 ORY=9 THENGOSUB640 : PRI 
NTL$(Y)": "E$(Z,Y) :NEXTY 
490 PRINTL$(Y)": " ; : INPUTE$ (Z , Y) 
:IFE$(Z,1)="***"THEN80:NEXTY:NEX 
TZ ELSENEXTY :NEXTZ : CLS : PRINT@24 6 
,"file full":GOSUB560:GOTO80 
500 REM delete from file 
510 GOSUB620: CLS: PRINT :GOSUB3 60: 



PRINT: INPUT "DELETE THIS ENTRY (Y 
/N) " ; Y$ : IFY$="N"THEN80 ELSEIFY$< 
> it y» THEN 5 10 

520 CLS:PRINT@224,"DELETING "PN$ 

ii ii 

■ ■ <• 

530 FORZ=X TONR:FORY=l TONF:E$(Z 

,Y)=E$(Z+1,Y) :NEXTY:IFE$(Z,1)="* 

**"THEN550 

540 NEXTZ 

550 PRINT :PRINTPN$" HAS BEEN DEL 

ETED" : GOSUB560 : GOTO80 

560 PRINT© 4 8 5, "any key to contin 

ue" ; 

570 I$=INKEY$:IFI$=""THEN570 ELS 

E RETURN 

580 PRINT@234,"tAPE OR dISK" ; : IN 

PUTDV$ : IFDV$="T"THENDV$="TAPE" : D 

V=-l ELSEIFDV$="D"THENDV$="DISK" 

:DV=1 ELSE580 

590 PRINT© 2 8 9, "FILENAME OR <ENTE 

R> FOR PLDAT" : PRINTTAB ( 12 ) ; : INPU 

TF$ : IFLEN (F$) =0 THENF$=" PLDAT" : P 

RINT@334,F$ ELSEIFLEN (F$) >8 THEN 

590 

600 PRINT: PRINTTAB (2) "READY "DV$ 

" AND PRESS enter"; :INPUTY$:RETU 

RN 

610 REM look for entry 

620 FORX=l TONR STEP2 : IFE$ (X, 1) = 

"***» THEN625 ELSEPRINTE$ (X, 1) " 

- ";:IFE$(X+1,1)="***"THEN625 EL 

SEPRINTE$(X+1,1) :NEXT 

625 PRINT : PRINTLN$ ;: INPUT "PLANT 

NAME" ;PN$: IFLEN (PN$)<1 THEN620 E 

LSEFORX=l TONR+l:IFE$(X,l)=PN$ T 

HENRETURN 

630 IFE$(X,l)="***"ORX=NR+l THEN 

PRINT: PRINTPN$» NOT FOUND" :GOSUB 

560:GOTO80 ELSENEXT 

640 D=VAL(E$(Z,Y-1) ) :DD=VAL(LEFT 

$(E$(Z,Y-2) ,2) ) :DM=VAL(MID$(E$(Z 

,Y-2) ,4,6) ) :DY=VAL(RIGHT$(E$(Z,Y 

-2), 2)) 

650 DD=DD+D:IFDM=2 ANDDD>28 THEN 

DD=DD-28 : DM=DM+1 : GOTO680 
660 IFDM=1 ORDM=3 ORDM=5 ORDM=7 
ORDM=8 OR DM=10 ORDM=12 THENIFDD 
>31 THENDD=DD-31:DM=DM+1:GOTO680 
670 IFDD>30 THENDD=DD-30 : DM=DM+1 
680 IFDM>12 THENDM=1:DY=DY+1 
690 DD$=MID$(STR$(DD) ,2) :IFLEN(D 
D$)=l THENDD$="0"+DD$ 
700 DM$=MID$ (STR$ (DM) , 2 ) : IFLEN (D 
M$)=l THENDM$="0"+DM$ 
710 DY$=MID$(STR$(DY) ,2) :E$(Z,Y) 
=DD$+"/"+DM$+"/"+DY$:RETURN 
720 CLS:IFE$(1,1)="" THENPRINT@2 
31, "file buffer empty" :GOSUB5 60 : 
GOTO80 ELSERETURN /» 
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The publishers of the Rainbow 

are taking an interest 

in a different type of programming 




THE 



HO^vfSEOMONTHLY 




Yes, I'm ready for some real entertainment! Send 
the next 12 issues of VCR to my door. 

Subscribe now for only $15 and save 36% off the regular newsstand price. 

Name 

Address 

City 



□ My check in the amount of 



State 



ZIP 



hold down costs, we do not bill.) 
Charge to: □ VISA □ MasterCard 

Account Number 



is enclosed. (In order to 



D American Express 
Exp. Date _ 



Signature 

"Subscriptions to VCR are S15 a year in the United States. Canadian rate is U.S. $22. Air mail rate elswhere is U.S. 
S60. All subscriptions begin with the current issue. Please allow 5 to 6 weeks for first copy. Kentucky residents add 
5% sales tax. U.S. currency only, please. In order to hold down non-editorial costs, we do not bill. 



J 



That's right. We've decided 
that programs like Shenani- 
gans and Symphony 12 aren't 
the only great ones around. There 
are also Silver Streak and Star Trek 
and Some Like It Hot — software 
of a different sort. 

That's why we've published 
VCR, The Home Video Monthly, 
the magazine for the new gener- 
ation of home viewers. 

Home video has evolved 
beyond the "hacker" era, when 
you needed a degree in electron- 
ics just for a little entertainment. 
Most people don't care about how 
the signal-to-noise ratio and wow- 
and-flutter specs of their equip- 
ment compare to the latest mod- 
els. They simply want to know how 
best to use and enjoy the equip- 
ment that they have. 

And that is what VCR offers — 
how to get the very best in home 
entertainment from your equip- 
ment. 

Each month, VCR brings you 
previews and ratings of every new 
offering on tape and disc: music 
videos, children's shows, how-to 
guides, and movies, movies, mo- 
vies. 

We tell you which shows the 
critics themselves will be taping on 
the networks and cable, along with 
tips from the experts on how to get 
the best possible reproductions. 
And you can turn to us for the 
answers to your questions, ranging 
from the trivial to the technical. 

Even more, each month we fea- 
ture exclusive interviews with the 
stars and the star-makers, along 
with articles designed to help you 
relive some of your fondest video 
"memories" of the past. 

Yes, programming is more than 
spreadsheets and databases. And 
we know you'll want to be a char- 
ter subscriber to the guide to the 
very best in entertainment soft- 
ware. 



Mail to: VCR, The Falsoft Building, P.O. Box 385, Prospect, KY 40059 



RECREATION 




The Lure of Computerized Bait Selection 




This program is for the fisherman 
who can't select the right lure to 
use. After you enter the condi- 
tions, it selects from over 1 ,000 different 
combinations of the body type, weight 
of sinker, metal color, base color and 
how to retrieve it. Bassmate should run 
on a 4K standard CoCo and answers the 
question, "Which lure should 1 use 
today?" 

How To Use It 

When you run Bassmate it plays some 
music then asks for the conditions 
(season and water temperature, water 
depth, time of day, cover, water clarity 
and wind). Then CoCo computes your 
answers and produces the right lure. 



Fishing with a Plastic Worm 

When it's early and there is a grass 
cover, the program will select a worm. 
Actually, worm fishing can be done in 
almost any kind of conditions and 
should be used at least half of the time 
when bass fishing. Here's what happens 

Tommy Crouser is 14 and a ninth 
grader at Dunbar Junior High in Dun- 
bar, West Virginia. His hobbies are 
fishing, playing tennis, building models 
and programming his CoCo. 
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PRICKLY- PEAR SOFTWARE 

QUALITY PROGRAMS FOR YOUR COCO & TDP-100 

PROGRAMS REQUIRE 1 6K EXTENDED BASIC FOR TAPE. AND 32K DISK UNLESS OTHERWISE NOTED. 



,-TV 



HALL OF THE KING 

This program combines all the things you look tor in a great 
two disk graphics adventure program. The Hi-Res graphics 
are superbly done. The text portion of the screen and the 
graphics change quickly as you move through the HALL 
OF THE KING. You can move freely from one portion of 
the adventure to another. Call up your inventory at any 
time. You can even save or load a game at ANY time. HALL 
OF THE KING will challenge even the most seasoned 
adventurer. 

HALL OF THE KING requires 64K EB and one disk drive. 
This exciting two disk adventure comes packaged in a 
vinyl case $39.95 

HALL OF THE KING II - THE INNER CHAMBER 

Continue your quest for the Earthstone in The Inner 
Chambers of the HALL OF THE KING. Outstanding 
graphics help show the way to success in your search to 
help restore the legendary power of the Earthstone to the 
dwarven race. The deeper you travel into the inner 
chambers, the more difficult your progress becomes. 
HALL OF THE KING II has all the fine feature of the first 
adventure. It is designed to follow the original HALL OF 
THE KING but may be played as a stand-alone adventure. 
The adventure fills two disks and comes packaged in a 
handsome vinyl folder. It requires one disk drive and 64K. 
$39.95 

WARP FACTOR X 

If you have been waiting for a game for your color computer 
that has everything, your wait is over. WARP FACTOR X is 
here. This all graphics simulation game requires strategy, 
fast thinking, an eye for detail, and above all experience in 
knowing the capabilities of your starship and its computer. 
(See review in Feb. 85 issue of Rainbow.) It requires 32K 
one disk drive and comes packaged in a vinyl library case. 
$34.95 

DARKMOOR HOLD 

You and your comrades will explore the levels of Darkmoor 
Hold in an effort to gain great riches and defeat the dark 
wizard. The Wizard will soon realize the threat you pose 
and the many monsters you meet and battle will become 
stronger and more powerful as you move through the 10 
levels of Darkmoor. A keen eye will help you find weapons 
and armor to aid your battle along with treasures for you to 
keep. Your party consists of a Dwarf, an Elf, and you, the 
Human, each with their own special attributes. The 
weapons, armor and treasure are placed randomly in each 
level to provide a new challenge each time you play. You 
may also save the game you are playing since defeating 
the evil Wizard is not an easy task. It has great graphics 
and an impressive text screen to give you more fun than a 
barrel of elves. Requires 64KEB and 1 disk drive, $29.95 
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DRAGON BLADE 

Animated Graphics Adventure 

This 100% hi-res graphics adventure features many 
animated screens which will delight the avid adventurer. 
You search for the magic Blade which is the only way to rid 
your homeland of the fearsome dragon which has risen 
from a long rest to terrorize your village. Fill your screen 
with super graphics as your try to solve the difficult 
challenge the village leaders have set before you. Dragon 
Blade requries 64K Extended Basic and 1 disk drive. 
$29.95 

UTILITIES 

Microartist — Ver. 2.1 — see the review in the Dec. 85 
issue of Rainbow. Req. 32k and joystick. TAPE — $24.95 
DISK — $29.95 

Disk Zapper — Ver. 1 .8. The best. Edit and examine disks 
directly, use up to 40 tracks full copy utility allows easy 
transfer of files from disk to disk, format any number of 
tracks, and lots more. $29.95 

Oracle II — The ultimate monitor. $29.95 

RTD Trio — Take advantage of this special offer. This 
package of three utility programs includes our new DISK 
TO TAPE, TAPE TO DISK (version 2.0), and ROMFREE 
(version 2.0). TAPE TO DISK moves BASIC, ML and DATA 
files from tape to disk automatically — one program or an 
entire tape. It even fixes those programs that load at hex 
600 so they work on a disk system. ROMFREE moves 
ROM packs to tape or disk easily, and fixes them so you 
just load and EXEC. ROMFREE now accomodates the 
larger 1 6K ROM packs. You won't believe how easy it is to 
protect your software library! These programs are shipped 
on tape. Requires 1 6K. $49.95 ($24. 95each if purchased 
separately) 

Prickly Pear Maillist — Ver. 2.0 — You won't find a mailing 
list program anywhere that will out-perform this one. Req. 
32K and one disk drive. Only $29.95 



POLICY ON PROTECTION - We 
believe ourcustomersare honest 
— all of our software can be 
backed up using standard back- 
up procedures. 



Your personal check is welcome 
— no delay. Include $1.50 ship- 
ping for each order. A2 residents 
add 5% sales tax. Orders shipped 
within Iwo days 



Dealer and author inquiries are 
always welcome. Canadian deal- 
ers should contact Kelly Software 
Distributors. Ltd., P.O. Box 1 1 932, 
Edmonton. Alberta T5J-3L1 (403) 
421-8003. 



FOR QUESTIONS OR ORDER CALL 602-749-2864 

SEND FOR OUR FREE CATALOG OF 

GREAT COCO PROGRAMS 



Stocked by Quality Dealers, or 

Send Orde- To PRICKLY-PEAR SOFTWARE 

2640 N. Conestoga Ave. 
Tucson, Arizona 85749 
(602) 749-2864 



when a worm passes a bass: The bass 
slays in place and sucks in the worm 
from as far away as 15 inches. 

The worm jumps into its mouth 
because of the powerful outward thrust 
made with both gills when its mouth 
opens, which creates a forceful suction. 
It takes less than 1/24 of a second. 



When you feel the tug on your worm, 
set the hook with all your muscle. You 
must do it before the bass blows it back 
out. If you don't catch it, don't worry. 
It's only a part of the game. 
Conclusion 

The lures the program picks usually 
catch bass, but will also catch walleye, 



big trout, northern pike, pickerel and 
salmon. Don't be surprised if you end 
up catching an award-winning fish. 

If you have any questions or prob- 
lems send an SASE, or if you just want 
to tell me the biggest fish you've ever 
caught, write to 112 Greenbrier Lane, 
Dunbar, WV 25064. □ 
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20 PRINT " 

e 



The listing: BAS5MFITE 

1 REM************************** 

2 REM***** TRS-80 ***** 

3 REM***** bassmate ***** 

4 REM***** BY ***** 

5 REM***** TOMMY CROUSER ***** 

6 REM************************** 



THE EXPERTS AGREE 

"The non-programming beginner can use il to do useful calculations without 
learning a tot ot programming and the experienced programmer can make the 
program do some complex and powerful tobs with relative ease . I use the 
program olten to do things which would otherwise take more lime." 

Donald Mcgarry. RAINBOW 
"An advanced programmable calcutator CoCo Solver may be the most versatile 
package ever developed tor the Color Computer " 

Gary Clemens. Hot CoCo 
"In my 20 years ot maintrame experience. I've never seen anything like it." 

H. Lawrence Elman. Hot CoCo 

CoCo Solver And The Program Generator 

A user says "My son uses it tor math and science homework, especially when 
there's a test." We like it because it is tun. easy to use and is surely the best 
calculator anywhere. 



NEW 

FOUR YEARS IN DEVELOPMENT — This unprotected disk contains 34 granules 
ot programs, designed by a professional engineer, to be the best dala base 
program tor you. What package Is this'' 

COCO BASE I - A DATA BASE MANAGER - TEN 32K PROGRAMS which are: 
THE BEST AT INPUT — Our screen editor makes keyboard entry a snap. 
THE BEST AT OUTPUT - You'll marvel al the reports you'll produce. 
THE BEST AT SHARING INFORMATION — Create report tiles with intormation 

Irom as many other files as you wish Never re-key data. You'll be suprised 

how easily you can move specilic dala items around Let one lile update 

another 
THE BEST POWER — All Ihe siring and numeric functions and operators 

necessary lor you to make any comparison or calculation with your dala 
THE BEST AT COMPATIBILITY — Works with all CoCo printers, and all operating 

systems. Compatible with any dala base you've set up with Basic and with 

most ASCII files as well. 

600 records of 1000 characters maximum. Field length to 255. 
A WORKHORSEI YOU'LL USE IT OFTEN BECAUSE IT WORKS SO WELL 

SATISFACTION GUARANTEED OR YOUR MONEY BACK. 



CoCo Solver tape or disk . REG $49.95 on sale lor $39.95 

COCO BASE I disk only. .$49.95 

SALE ENDS MAY 15 ACT NOW 

32K and Extended Basic required Add S2 tor shipping 

Tennessee residents add sales tax please. 



JTJ ENTERPRISES 

P.O.Box 110841 

Nashville. Tennessee 3721 1 

No delay on check or money order Sorry, no credit cards 



TRS-80 bassmat 

BY 

TOMMY CROUSER 
ii 

30 PRINT 

40 PRINT " FOR" 

50 PRINT 

60 PRINT " rainbow MAGAZIN 

E" 

70 FOR S=l TO 5 

80 SOUND 100, 5: SOUND 130,3: SOUND 

100, 5: SOUND 80 , 3 : SOUND 130, 5: SO 

UND 160, 3: SOUND 130, 5: SOUND 100, 

3 

90 NEXT S 

100 SOUND 100,5:SOUND 130,3:SOUN 

D 100, 5: SOUND 80,3 

110 CLS 

120 PRINT "SEASON: 1>SPRING (WT: 

35-55 F) 2>SUMMER (WT: 

55-80 F) 3>FALL (WT: 

40-60 F) 4>WINTER (WT: 

15-35 F) WT: WATER TEMPERATURE 
ii 

130 PRINT 

140 INPUT SEA 

150 IF SEA<1 OR SEA>4 THEN 110 

160 CLS 

170 PRINT "WATER DEPTH (FT) : 1>1 

-12 2>1 

3-29 3>3 

0-60" 

180 PRINT 

190 INPUT WD 

200 IF WD<1 OR WD>3 THEN 160 

210 CLS 

220 PRINT "TIME OF DAY: 1>EARLY 

2>MID-DA 
Y 3>LATE" 

230 PRINT 
240 INPUT TD 

2 50 IF TD<1 OR TD>3 THEN 210 
2 60 CLS 

2 70 PRINT "COVER: 1>TIMBER 

2>ROCKS 
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3>GRASS 
4>N0NE" 

280 PRINT 

290 INPUT COV 

300 IF C0V<1 OR COV>4 THEN 2 60 

310 CLS 

320 PRINT "WATER CLARITY: 1>MUDD 

Y 2>MURK 

Y 3 > CLE A 
R" 

3 30 PRINT 

340 INPUT WC 

350 IF WC<1 OR WC>3 THEN 310 

360 CLS 

3 70 PRINT "WIND: 1>CALM 

2>MODERATE 
3>STRONG" 
380 PRINT 
390 INPUT W 

400 IF W<1 OR W>3 THEN 3 60 
41)8 CLS 

42)3 FOR Y=l TO 1)3)3 
43)3 PRINT§2)33, "computing" ; 
44)3 PRINT@RND(512) ,"*"; 
450 SOUND RND(255),1 
46)3 NEXT Y 
47)3 CLS 

48)3 PRINT "BODY TYPE:" 
49)3 IF COV=l AND TD=1 THEN PRINT 

"chugger" 
50)3 IF COV=l AND TD=2 THEN PRINT 

"spoon": GOTO 610 
510 IF COV=l AND TD=3 THEN PRINT 

"lizard": GOTO 61)3 
520 IF COV=2 AND TD=1 THEN PRINT 

"jig": GOTO 610 
530 IF COV=2 AND TD=2 THEN PRINT 

"grub": GOTO 610 
540 IF COV=2 AND TD=3 THEN PRINT 

"buzzbait":GOTO 610 
550 IF COV=3 AND TD=1 THEN PRINT 

"worm": GOTO 610 
560 IF COV=3 AND TD=2 THEN PRINT 

"spinner" .-GOTO 610 
570 IF COV=3 AND TD=3 THEN PRINT 

"minnow" : GOTO 610 
580 IF COV=4 AND WD=1 THEN PRINT 

"shallow crankbait" :GOTO 610 
590 IF COV=4 AND WD=2 THEN PRINT 

"midwater crankbait" : GOTO 610 
600 IF COV=4 AND WD=3 THEN PRINT 

"deepwater crankbait" 
610 PRINT "WEIGHT OF SINKER:" 
620 IF WD=1 AND W=l OR WD=1 AND 
W=2 THEN PRINT "1/8": GOTO 670 
630 IF WD=1 AND W=3 OR WD=2 AND 
W=l THEN PRINT "1/4": GOTO 670 
640 IF WD=2 AND W=2 OR WD=2 AND 



W=3 THEN PRINT "3/8": GOTO 670 

650 IF WD=3 AND W=l OR WD=3 AND 

W=2 THEN PRINT "1/2": GOTO 670 

660 IF WD=3 AND W=3 THEN PRINT " 

1" 

670 PRINT "COLOR:" 

680 IF WC=1 THEN PRINT "fluoresc 

ent":GOTO 710 

690 IF WC=2 THEN PRINT "gold": GO 

TO 710 

700 IF WC=3 THEN PRINT "silver" 

710 PRINT "BASE COLOR:" 

720 IF SEA=1 OR SEA=3 THEN PRINT 

"medium" : GOTO 7 50 
730 IF SEA=2 THEN PRINT "light": 
GOTO 750 

740 IF SEA=4 THEN PRINT "dark" 
750 PRINT "RETRIEVE:" 
7 60 IF TD=1 THEN PRINT "slow": GO 
TO 790 

770 IF TD=2 THEN PRINT "jerky" :G 
OTO 790 

780 IF TD=3 THEN PRINT "moderate 
ii 

790 INPUT "AGAIN" ;A$ 
800 IF A$="Y"OR A$="YES"THEN 110 
ELSE END /^\ 




BUSINESS SOFTWARE 

$ PORTFOLIO $ 

BUSINESS DATABASE SYSTEMS 



* Reviewed in HOT CoCo Dec. 1984 & RAINBOW Feb. 1985 * 

■ DATABASE MANAGEMENT deline. reorganized & update a database 

■ SPREAD SHEET calculations lo updale database 

• REPORT MODULE customized report lormats Willi headings & totals 

■ WORD PROCESSOR - merge database with custom letters labels. & leporls 

■ MACRO PROCEDURES - slore any report calculations with sorts 8 seleclions 

■ UTILITIES generate, merge, summarize. & summarise-post 

■ 216 PAGE MANUAL WITH STEP-BY-STEP TUTORIAL 

• WORKBASE I (600 Records) $4995 WORKBASE 11(1200 Records) S5995 

BUSINESS APPLICATION PACKAGES 



• READY-TO-USE 50 page manual, database, calculations. & reports 

| SELF-CONTAINED purchase & use any package independently 

' BUILT-IN DATABASE FUNCTIONS selectively display/prinl records 

i COMPREHENSIVE all maior accounting lunclions addressed 

1 EASY TO USE - all packages are entirely menu driven 

> EXPANDABLE - use any application database with WORKBASE DATABASE 

1 PROVEN currently used m businesses, churches, and accounting lirms 

' COST EFFECTIVE $2995 per package - $24 95 when 2 or more purchased 



. INVENTORY CONTROL 

* SALES ORDER ENTRY 

* ACCOUNTS PAYABLE 

* PAYROLL 

* RENTAL PROPERTY 
ALL SOFTWARE REQUIRES 32K/64K TRS-80 CoCo 

* FREE CATALOG AVAILABLE * 



* ACCOUNTS RECEIVABLE 

* GENERAL LEDGER 

* PURCHASE ORDER ENTRY 

* CHURCH MEMBERSHIP 

I DISK DRIVE 



ORDEHING: CHECK. MONEY ORDER. 

COD. MASTERCARD, VISA 

Price Includes shipping In USA 

NC residents add 4.5% sales tax 



WORKBASE DATA SYSTEMS 

P.O. Box 3448 

Durham. NC 27702 

Call Toll Free t -800-334-0854 ext 8B7 

(919) 286-3445 NC Residents only 
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NEW 



DISK 
DRIVES 



STARTING AT 

$ 89, 



95 




40TKS 6Ms 
DoubleSided 
Double Density 



40 or 80 Tracks 

1/2 Hght.Teac/Ponasonic 



TANDON MPI TEAC 



WITH CASE & 
POWER SUPPLY 

$12995 




Speed 6 ms tk to tk and up 
Capacity 250k unformatted 
Tracks 40 
Warranty now 1 YEAR 

We carry only the finest quality disk drives -no seconds- no surplus 

SATISFACTION GUARANTEED!! all drives fully tested&warranteed 

Complete Disk Drive with Power Supply&Case jm $129.95 

Two Drives in Dual Case& Power Supply Tine ^£2-7&95 CALL 

1/2 ht double sided double density Disk Drives .(Panasonic/Teac)$ $119.95 

1/2 ht double sided double density Disk Drive with ps&case..... ,^$499^5 CALL 
iow to use your new drive system on audio cassette 

Single ps&case $44.95 Dual 1/2 ht ps& case $54.95 Dual ps&case.. Call 





$129.95 



Color Computer Controller fj&M) 

DRIVE FOR RADIO SHACK COLOR COMPUTER 

TANDON, MPI OR TEAC DRIVE (SINGLE SIDED 40 TRACKS SPEED 5 MS TRK TO TRK & UP) 
POWER SUPPLY and CASE, TWO DRIVE CABLE WITH ALL GOLD CONNECTORS . 

a J&M CONTROLLER, MANUAL and DOCUMENTATION $24&3§ $ SALE! 



** ,> DRIVE 6 FOR RADIO SHACK COLOR COMPUTER 






& 



\\ 



r PANASONIC V2 HEIGHT DOUBLE SIDED DOUBLE DENSITY DRIVE 500K unformatted 
,v> POWER SUPPLYand CASE, 2 DRIVE CABLE WITH ALL GOLD CONNECTORS 
J&M CONTROLLER, MANUAL and DOCUMENTAT ION 

IAKL ADDED SAVINGS ON I WO DRIVE SYSTEMS iMi iod.«.m« 

Si"-*"* 1 $1795 



$2J9&r. f>° 9 . SALE! 



DISKETTES with free library case 
Unadvertised Specials 

Drives cleaned, aligned & tested . 

TECHNICAL STAFF ON DUTY. PLEASE CALL FOR ASSISTANCE. 




..$Call 
$29.95 



CALL US TODAY!! 



(617)234-7047 *DEALER inquiries invited. 

B ORDER TOLL FREE 1-800-635-0300 (617)234-7047 

TRUE DATA PRODUCTS 




195 Linwood Street, P.O. Box 546 
Linwood, Massachusetts 01525 
(617) 234-7047 



We welcome 
Visa/Master Charge C"~3|'- 



HOURS MON SAT9-6IEST) 



• Checks(allow 2 weeks for clearing) 

• COD. Adds 2. 00 



New Hard Drives 



COMPLETE SYSTEM JUST PLUG IM 

Call For 
BEST PRICE 



00* 



^fr QUALITY 
VIDEO MONITORS 

Starting at £ 7Q ^ 

MONOCHROME 
COLOR MONITORS 



Warranty - One Full Year 




VIDEO DRIVER 



ENABIES YOUR COCO IO OPERATE WITH A 
VIDEO MONITOR INSTEAD OE A TELEVISION! 



5 to 20 Megabyte, ready to run on the TRS 
80 Model I/III/IV/4P, color computer, 

SCREEN DUMP PROGRAM 

04lV Ul vlnAUbd JJJ The best screen dump program for the Epson & Gemini 

printers ever!! Have the option of standard images 
oi reverse w/regular or double sized pictures s-1 Q95 

sp-3 interface for Color Computer 

■ 300-19,200 BAUD rates 

■ External to printer — No AC Plugs 

■ Built in modem /printer switch — no need for 
Y-cables or plugging/unplugging cables 




PRINTER CABLES AND 
INTERFACES AVAILABLE 
Call for current pricing 



PRINTERS 



• 100 - 120- 160 CPS 
' Bidirectional Logic Seeking 
" Fnclion and Traclor 

• 9X9 Dol Malnx 

• True Decenders 
■ Hign Res-Bit Image Block Graphics 

GEMINI 10X (9 Inch Carnage. 120cps) Friction and Tractor 
GEMINI 15X (15 Inch Carriage, 120cps) Friction and Tractor 
DELTA 10 (10 Inch Carriage. 160cps) Friction and Traclor 
POWER TYPE tetter quality 



Super Scnp|. Subscript 
Underlining 

Backspacing Doublestnke 
5. 6. 8 1/2. 10. 12 and 17 Pitch 
Programmable Line Spacing 
SIX (61 MONTH WARRANTY 



SCALL 
SCALL 
SCALL 



Only: 





COMPLETE SYSTEM 



MOD 




T* 



*. 



o 



a* 



&<* 



now 
with 
screen 
dump 



$239 



SG-10 



Nothing more to buy! 

Dealer inquiries invited 




TRUE DATA PRODUCTS 

195 Linwood Street. P.O. Box 546 
Linwooo. Massachusetts 01525 



CALL US TODAY!! (617)234-7047 
S ORDER TOLL FREE 1-800-635-0300 




EDUCATION NOTES 



16K 
ECB 






Locating Points 
on a Graph 



By Steve Blyn 
Rainbow Contributing Editor 



This month's article presents a program that enables 
students to practice locating points on all four 
quadrants of a graph. 
A good start to understanding graphs is a simple number 
line, as shown in Example I. This beginner's number line 
deals only with positive numbers. The arrow at the end of 
line indicates that the line could go on and on. Students may 
practice simple addition and subtraction on such number 
lines. They can solve them mentally or may count fingers 
to figure out the solution of examples such as 3 + 2 or 4 
-3. 




Often, the next step in this skill is to introduce negative 
numbers (Example 2). We can do this by extending a 
number line to include numbers less than zero. Understand- 
ing of negative numbers can be enhanced by using the 
analogy of temperatures falling below zero degrees. Again, 
examples may be practiced cither mentally or using fingers 
to count out the answer. 




Steve Blyn leaches both exceptional and gifted children, 
holds two master's degrees and has won awards for the 
design of programs to aid the handicapped. He owns 
Computer Is/and and lives in Staten Island, New York. 



The next step in this learning process is to describe a point 
in relation to both the 'X' and 'Y' axes. This, of course, 
normally takes place several grades later in school. (We are 
condensing several grades into a mini-course for the 
purposes of this article.) The lower left-hand corner 
indicates the (0,0) location. We count across to get the 'X' 
location and up to get the 'Y' location. Example 3 below 
has three points to find for practice. 



3 !- 

! 
i 

2 C- 

T 

! 

1 !- 

! 
! 

y !- 



Example 3 



! 
! 

-!- 

4 



Point A is located at position 3.1. 

Point B is at position 4,3. 

Point C is a little bit tricky. It is a zero amount across 
on the horizontal axis and two places up on the vertical axis. 
It is therefore at position 0,2. 



The last step in this learning utilizes all four quadrants 
(Example 4). The 0.0 position and axes lines run through 
the middle of this graph creating the four quadrants. The 
top right-hand quadrant is often referred to as Quadrant 
I. We continue to count counter-clockwise to the other 
quadrants. Quadrant four is the bottom right-hand 
quadrant. 
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Example 4 
Quadrant 2 Quadrant 1 



-3 



-2 



+2 



+1 



.*. 



-1! 



-1 



-2 



-3 



Quadrant 3 



Quadrant 4 



Point A is located at position +2, +2. 
Point B is located at position -2,+ 1. 
Point C is located at position -3,-3. 
Point D is located at position +1,-2. 



Our program asks students to locate a given point on a 
graph that demonstrates all four quadrants. If correct, 
another point appears. If incorrect, the child may try again 
until correct. We feel this is the type of skill area that most 
middle-grade students can master completely with time. At 
any rate, this skill (at this level of sophistication) soon 
becomes an all or nothing proposition. Therefore, we made 
no attempt at any kind of scoring. 

We ask that students be requested to indicate a sign before 
each number. Positive numbers, as well as zero, are 
commonly assumed to be positive. We fell, however, that 
it is a good practice to include a sign before each number. 
The extra effort involved in placing the sign can result in 
better comprehension of the skill in the long run. 

Lines 460-660 store graphics representations of the 
letters, numbers and signs that we will need. They are stored 
as strings for easy drawing of them later. Lines 60-160 draw 
lines of the graph. Lines 1 70-240 select and draw a random 
point on the graph. This point is represented to the 
computer by the letters 'C* and 'D\ 

Lines 300-400 get and interpret the student's answer. This 
answer is represented to the computer as 'M' and 'N\ If 
M=C and N = D, then the child is correct and a happy tune 
is played. If incorrect, the child's answer is erased and a new 
answer may be entered for the same example. 

The program may be continued or ended after a correct 
answer. Pressing the 'E' key ends the program; pressing any 
other key presents a new example. We at Computer Island 
hope this program helps your child or students to better 
understand and enjoy this type of graph. □ 



J & R NOW HAS 512K 
EASY SOLDERLESS INSTALLATION 



Includes 35/40 TRACK RS RAM DISK • 0S9 RAM DISK 



(Compatible with RSDOS, JDOS and ADOS) 



THE 51 2K RAM "BANKER" ... See 256K Featured in Sept. '85 Hot Coco! 



PCOPY 134 

BANKRPAG 

35/40TRK 
RAH DISK 

256KJ512K 
MEMORY TEST 

PAGE 8X32K 

0S9BTFIX 



40TRK SINGLE 
SWAP 
MULTIPLE COPY DISK BACKUP 

32K TO 192K PRINT SPOOLER 







J&R proudly announces the "BANKER", a 512K internal board lor 
COCO I or COCO II thai can be upgraded to 32K/64K with the addi- 
tion ot 4164 type (8 each) memory chips, socketed SAM and memory 
chips. SAM and memory chips must be socketed lor soldertess installa- 
tion. Those who have computers with 26-3IXX and later model numbers call or write (or 
information The "BANKER" installs in the SAM (6883/74LS785) socket. The "BANKER" 
works with COLOR BASIC, EXTENDED BASIC, and DISK EX- 
TENDED BASIC (JDOS and ADOS). Cassette or Disk systems 
The "BANKER" was designed to be compatible with ALL hard- 
ware and absolutely compatible wiih any 64K software or hard- 
ware addressing. 



v»«g8£* 



(256K VERSION SHOWN) 

RAM DISK WITH TELEWRITER-64 
35/40 TRACK 0S9 RAM DISK 



* * * * * INTRODUCTORY SPECIALS * * * * * 
S 34.95 BARE-BOARD (ETCHED & DRILLED), SOFTWARE and DOCUMENTATION 
$ 64.95 BARE-BOARD + PARTS, SOFTWARE and DOCUMENTATION (NO MEMORY CHIPS) 
J 79.95 ASSEMBLED & TESTED BOARD, SOFTWARE and DOCUMENTATION (NO MEMORY CHIPS) 
$149.95 ASSEMBLED & TESTED BOARD, MEMORY CHIPS, SOFTWARE and DOCUMENTATION 
S 3.00 LONG PIN SOCKET (lor BARE-BOARD) 



J&R ELECTRONICS 



P.O. BOX 2572 • COLUMBIA, MD 21045 

Hours: Sat. Noon-5 pm EST; Weekdays 7 pm-9 pm EST 
Phone (301) 987-9067 or (301) 788-0861 



Add S3 00 Shipping S Handling (FOREIGN ORDERS ADD $7 00) plus COD charge (if any) Maryland 
Residents Ado 5«i State Tax. CHECKS. MONEY ORDERS OH CODS only please (personal cherts 
■ 2 weeks for clearance) IMMEDIATE DELIVERY Give COCO Radio Shack model > (i e. 26-3136). 
Disk or Tape when ordering QUANTITY DISCOUNT AVAILABLE, write us (include SASE please) 
We value your patronage, most upgrades win be at a nominal lee. customer returns original disk/tape 
and pays shipping and handling 
For inlormation on shipping or previously placed orders call 1301) 788-0681 
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240 204 

360 153 

END 21 



The listing: GRAPH 

10 REM" FINDING POINTS ON A GRAPH 
it 

20 REM"STEVE BLYN, COMPUTER ISLAN 

D, NY, 1986" 

30 PCLS:SCREENl,l:PMODE4,l:CIRCL 

E (128 ,96) , 10:PCLS:SCREEN1,1 

40 CLEAR 3000 

50 GOSUB 460 

60 FOR T= 1 TO 10 

70 LINE(20+L,5)-(20+L,120) , PSET 

80 L=L+24 

90 NEXT T 

100 FOR T=l TO 7 

110 LINE(10,10+K)-(245,10+K) , PSE 

T 

120 K=K+18 

130 NEXT T 

140 REM" DRAW MIDDLE AXES" 

150 LINE(114, 3)-(118, 122) , PSET, B 

F 

160 LINE(5,62)-(250,66) ,PSET,BF 

170 REM"CHOOSE THE POINT" 

180 X= RND(10)-1 

190 A=20+X*24 

200 Y=RND(7)-1 

210 B=10+Y*18 

220 CIRCLE (A, B) ,5 

2 30 C=X-4:D=Y-4 

2 40 IF Y=0THEN D=3 ELSE IF Y=l T 

HEN D=2 ELSE IF Y=2 THEN D=l ELS 

E IF Y=3 THEN D=0 ELSE IF Y=4 TH 

EN D=-l ELSE IF Y=5 THEN D=-2 EL 

SE D=-3 

250 DRAW"S8A2BM10,140"+W$+H$+E$+ 

R$+E$+SP$+I$+S$+SP$+T$+H$+E$ 

260 DRAW"BM20, 160"+P$+O$+I$+N$+T 

$+SP$+N$+0$+W$ 

270 COLOR 1:LINE(170,170)-(240,1 

70) ,PSET 

280 CIRCLE(195,165) ,5,1,1, .01, .2 

5 

290 DRAW"BM165,155"+SP$ 

300 NN$=INKEY$ 

310 IF NN$="-" THEN DRAW E8$ ELS 



E IF NN$="+" THEN DRAW E9$ ELSE 

300 

320 EN$=INKEY$ 

330 IF EN$="0" THEN DRAW E0$ ELS 

E IF EN$="1" THEN DRAW El$ ELSE 

IF EN$="2" THEN DRAW E2$ ELSE IF 

EN$="3" THEN DRAW E3$ ELSE IF E 
N$="4" THEN DRAW E4$ ELSE IF EN$ 
="5" THEN DRAW E5$ ELSE 3 20 
340 M=VAL(EN$) : IF NN$="-" THEN M 
=-M 

350 DRAW"BM210,155"+SP$ 
3 60 MM$=INKEY$ 

370 IF MM$="-" THEN DRAW E8$ ELS 
E IF MM$="+" THEN DRAW E9$ ELSE 
3 60 

3 80 Z$=INKEY$ 
3 90 IF Z$="0" THEN DRAW E0$ ELSE 

IF Z$="l" THEN DRAW El$ ELSE IF 

Z$="2" THEN DRAW E2$ ELSE IF Z$ 
="3" THEN DRAW E3$ ELSE IF Z$="4 
" THEN DRAW E4$ ELSE IF Z$="5" T 
HEN DRAW Z5$ ELSE 3 80 
400 N=VAL(Z$):IF MM$="-" THEN N= 
-N 

410 IF M=C AND N=D THEN PLAY"L10 
CDECDEGGGG":GOTO 430 
420 IF HOC THEN COLOR 0: LINE(1 
50,150)-(250,180) ,PSET,BF:GOTO 2 
70 

430 GN$=INKEY$ 

440 IF GN$="E" THEN 450 ELSE IF 
GN$<>"" THEN RUN ELSE 430 
450 CLSrEND 

460 REM"THE LETTERS AND NUMBERS" 
470 E$="BER3U2NL2U2L4BG5BL2" 
480 G$="BUR4U3HL2GDRBG3BL4" 
490 H$="BUU2NU2R4NU2D2BGBL9" 
500 I$="BR2BUU4BU2BD7BL8" 
510 N$="BUU4F4U4BG5BL5" 
520 0$="BEHU2ER2FD2GL2BGBL6" 
530 P$="BER3U2NU2L3GNFBG2BL4" 
540 R$="BEHERNH2R2NU2D2L3BGBL6" 
550 S$="BU2FR2EHL2HER2FBG4BL6" 
560 T$="BUR2NU4R2BDBL10" 
570 W$="BUU4F2E2D4BGBL9 M 
580 E0$=O$ 

590 E1$="BE2NU3DEBFBGBL9" 
600 E2$="BENR3HER3U2L4BG5BL" 
610 E3$="BENR3HENR2HER3BG5BL5" 
620 E4$="BENU4E3L4BG4BL2" 
630 E5$="BER4U2L3HER3BG5BL5" 
640 E8$="BR4BU4R4BL12BD4": 'MINUS 

SIGN 
650 E9$="BR4BU4R4L2U2D4U2BL12BD4 
": 'PLUS SIGN 

660 SP$="BE4BUBG5BL5" ' ***SPACER 
670 RETURN 



/£\ 



138 



THE RAINBOW April 1986 



EDUCATION OVERVIEW 



Examining the effects of some important trends that 
are beginning to evolve. . . 



The Demographics 
of Education 



By Michael Plog, Ph.D. 
Rainbow Contributing Editor 



The field of demography is con- 
cerned with the vital statistics of 
a population - things like 
births, deaths, marriages, income for 
families. Demographic information is 
produced in large quantities by the 
federal government, all state govern- 
ments and many private concerns. 
Demographers use mathematical tech- 
niques to predict future growths of 
populations and to plot trends. Gener- 
ally, these predictions are so accurate 
that we have come to accept them 
almost without question. 

Sometimes demographic reports 
catch a wider public notice than just the 
planners using the information. A 1984 
report from the U.S. Bureau of the 
Census, for example, claimed that only 
four percent of the nation's households 
are traditional — father works, mother 
does not, with two children under 18. 
This finding was supposed to point out 
the changing demographic features of 

Michael Plog received his doctorate 
degree from the University of Illinois. 
He has taught social studies in high 
school, worked in a central office of a 
school district and currently is em- 
ployed at the Illinois Stale Board of 
Education. 



American families. It is true that mod- 
ern families are changing compared 
with their grandparents: more mothers 
work outside the home, family size is 
smaller and couples are having their 
first child at an older age. 

In this particular case, however, the 
finding distorts the truth by the use of 
the term "traditional." The definition is 
too restrictive. It excludes families we 
would normally consider traditional: 
three-child households; two children, 
one 15 and one 19 (both must be under 
18); etc. Thus, while the interpretation 
is somewhat correct (modern families 
have different demographic characteris- 
tics than families of the past), the case 
is overstated. 

Educational institutions are just one 
segment of society very interested in 
demographic results. Demographic 
findings are used to plan for future 
activities. Those institutions that do not 
plan tend to find themselves having 
difficulty when suddenly confronted 
with a changed population. We should 
not limit our idea of educational insti- 
tutions just to public schools. People 
who develop and sell educational mate- 
rials are also part of this institution, as 
well as private schools, colleges, busi- 
ness schools, etc. 



Over the past 40 years, education has 
become a big business. In 1945. the 
percent of the Gross National Product 
(GNP) spent on all schools - kinder- 
garten through college -- was two 
percent. That is two cents out of every 
dollar made in America. In 1975, edu- 
cation's share of the GNP had risen to 
7.7 percent. In 1984, it fell to 6.7 per- 
cent, due in part to declining numbers 
of school-age children. The percent fell, 
but total dollars for education rose from 
$119 billion in 1975 to S245 billion in 
1984. It is no wonder that people in- 
volved in the education industry are 
very interested in projected demograph- 
ic changes. And changes are predicted: 
The market for education (generally, 
children from 5 to 18 years old) is not 
static. 

For the near future, demographic 
predictions indicate a changing propor- 
tion of people in different age groups. 
The number of children aged 6 to 13 will 
increase, while 14- to 17-year-olds will 
decrease. This means elementary 
schools will have more students in the 
future than currently enrolled, while 
secondary schools will have fewer stu- 
dents. 

Within the next decade, little change 
is expected in the number of preschool- 
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SOFTWARE 

WE GIVE A HOOT ' 

SPECIAL OFFER! 
PICK A BUNDLE-SAVE A BUNDLE 
Here is a chance to build your software library 
at a reasonable cost. Choose from any of our 
fine programs. 

ANY 3 - $45.00 Postpaid 
ANY 4 - $55.00 Postpaid 
ANY 5 - $60.00 Postpaid 
Please specify tape or disk on your order. 

NEW! SNAKES ALIVE 

You must maneuver an ever growing snake through an 

ever more difficult maze and eat the fruit that 

appears. As you progress from level to level the 

screen becomes increasingly difficult. The action 

is controlled by the keyboard so joysticks are not 

required. This game is addictive! 

16K EXT Postpaid Disk $20.95 Cassette $17.95 

NEW! CHILDRENS GRAPHIC STORYBOOK SERIES 

These delightful children's storys will amuse, ama/e 

and educate your children with words and pictures. 

THE STAR LIGHTER presents an entertaining story and 
illustrates star constellations in graphic displays. 
Requires 64K EXT Tape or 32K EXT Disk. 

THE DRAGON STORY presents a story about a girl and 
a dragon in words and graphic pictures. Requ.re-; 64K 
EXT tape or 32K EXT Disk. 

A VISIT TO THE BEACH presents an easy to read story 
about two children and their pets on a visit to the 
beach. Requires 32K EXT Tape or Disk. 

The storybooks are $15.00 Tape or $17.00 Disk. Take 
any two on tape or Disk for $25.00 or all three on 
Tape or Disk for $30.00 

LABEL64 - LABEL64 is a name and address file/print 
system that takes advantage of your 64K. You can deve- 
lop and maintain a mailing list. Print lists or mail- 
ing labels in your choice of 1, 2, or 3 wide. Sup- 
ports 3 or 4 line addresses with phone optional. You 
can aort by last name, first name, and/or zip code. 
You can work with up to 300 records in memory at a time 
We include a second copy for back up at no additional 
charge. Take advantage of your 64K with LABEL64. 
Cassette - 64K EXT Postpaid $24.95 

FILE64 - EILE64 is a data management system designed 
to take advantage of a 64K machine. You can create 
and maintain records on anything you choose. Recipes, 
coupons, household records, financial records - you 
name it. You create records containing up to five 
fields you define. You can search, sort, modify, add, 
delete, save on tape, display on the acreen and print 
on a printer. The program could cost you much more 
and we include a back up copy at no additional charge. 
Cassette - 64K EXT Postpaid $24.95 

SAVE $$ Take both our LABEL64 and FILE64 for only 
$40.00 Postpaid. Don't miss this special offer! 

ALCATRAZ ADVENTURE Our newest and we think moat in- 
volved adventure. You have been unjuatly imprisioned 
and sentenced to death. You must escape to prove 
your innocence. You will face many unique problems 
as you work on your goal. If you liked our BASHAN 
adventure you will love ALCATRAZ. Your adventure 
contains a large vocabulary and some unique features. 
This is a tough one recommended for advanced players. 
32K EXT Postpaid Diak $20.95 Caaaette $17.95 

Canadian dealers may contact Kelly Software Dist. 
LTD. P.O. Box 11932 Edmonton, Alberta T5J 3L1 



NOW LABEL I II IS AVAILABLE ON DISK! 

LABELIII - (Reviewed in Nov B3 Rainbow) With LABELIII 
you can develop and Maintain a mailing list. Print lists 
or nailing labels in your choice of 1, 2, or 3 wide. 
Supports 3 or 4 line addresses with phone optional. 
Sort by last name, firat name or zip code. 
16K EXT Postpaid Diak $21.95 Cassette $19.95 

FILEIII - Data management system. With FILEIII you 
can create and maintain recorde on anything you choose. 
Recipes, coupons, household records, financial records - 
you name it. You create records containing up to five 
fields that you define. You can search, aort, add, 
delete, modify, diaplay on the acreen or Bend to a 
printer. The program is user friendly and user proof. 
Prompting is extensive. A comparable program could 
coat you much more. This one is a baraain! 
16K EXT Postpaid Diak $21.95 Cassette $19.95 

PROGRAM FILE - (rev Oct B3 Rainbow) Organize your 
programs. With PROGRAM FILE you create a file of your 
computer programs. You can search, aort, add, modify, 
delete, aave to tape and display on the acreen or 
•end to a printer. 
16K EXT Postpaid Diak $16.95 Cassette $14.95 

DATA MANAGEMENT PACKAGE - Save $$ Take the three above 
on disk or tape (specify) for only $40.00 Postpaid 

ESPIONAGE ISLAND ADVENTURE - (reviewed in June 84 Rain- 
bow) You have been dropped off on an island by submarine 
You must recover b top aecret microfilm and signal the 
aub to pick you up. Problems abound in this 32K EXT 
adventure. 
32K EXT Postpaid Diak $20.95 Cassette $17.95 

FOUR MILE ISLAND - You are trapped in a disabled nuclear 
power plant. The reactor ia running away. You must 
bring the reactor to a cold ahutdown and prevent the 
"China Syndrome". Can you aave the plant (and your- 
aelf)? It'a not easy! 
16K EXT Postpaid Diak $20.95 Cassette $17.95 

KINGDOM OF BASHAN - Our flegehip adventure. Baahan haa 
a very large vocabulary and aome unique featurea. You 
must enter BASHAN (not eaay), gather the ten treasures 
of the ancient kingdom (even harder) and return to the 
atarting point (harder yet). If you can score the 
maximum 200 points in BASHAN you are an expert'. 
32K EXT Poatpaid Diak $20.95 Cassette $17.95 

ADVENTURE COMBO Save $$ The three above adventurea on 
three caaaette8 or one diak (apecify) poatpaid for only 
$40.00 

ATLANTIS ADVENTURE - Thia one ie not eaay - in fact 
we challenge you to complete it in 30 days. If you do 
M will send you any adventure we sell - poatpaid - at 
abaolutely no charge. You start on a disabled sub 
near the lost city of Atlantis. You must get the sub 
(and yourself) safely to the surface. Do you think 
Atlantiana are friendly? 
Postpaid 32K EXT Disk $24.95 16K EXT Cassette $21.95 

ADVENTURE STARTER - Learn to play thoae adventures the 

painless way. You atart with an eaay adventure and 

move to an intermediate. Two complete asperate non 

violent adventures plu6 hints and tips on adventuring 

in general. Finish this and you will be ready for 

ATLANTIS! 

16K EXT Postpaid Disk $20.95 Cassette $17.95 

C.O.D. orders please add 1 .50 
No Delay For Personal Checks 
In a Hurry? Call (615) 238-9458 

OWLS NEST SOFTWARE 

P O BOX 579 
OOLTEWAH, TN 37363 
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ers. In 1985, 3.7 million births were 
recorded. This will (based on the best 
predictions available now) rise slightly 
until 1990, then fall to 3.5 million births 
by 1995. Based on current information 
and demographic predictions, the 
number of preschoolers (children aged 
I to 5) for the next decade will be: 

1985— 17.8 million 
1990— 18.5 million 
1995- 18.0 million 

The numbers are not the only thing 
changing about future students in the 
schools of this country. The type of 
parent is also changing. There is a 
smaller proportion of households rear- 
ing children today than in the 1970s. 
Most families with several children (as 
opposed to one or two children) are in 
low income groups. 

Right after World War II, this coun- 
try experienced the "baby boom" as 
soldiers returned home and started 
families. These "baby boomers" are 
now having their own children. Even 
though they tend to have fewer children 
than their parents or grandparents, 
because there are so many baby boom- 
ers, the total number of births is grow- 
ing. 

The parents of infants and preschool- 
ers today are interested in education. 
The baby boomers who are now new 
parents are the best-educated genera- 
tion in American history. One out of 
every four men and one out of every five 
women of this generation have a college 
degree. These new parents are creating 
a market for educational products. The 
emphasis is for starting educational 
activities earlier, and having more 
comprehensive activities than ever 
before in our history. 

There is also an emphasis on "quality 
time" with children, especially for 
families with both parents working. 
This term may be less used today than 
a few years ago, but the concept appears 
just as powerful when parents make 
decisions about entertainment and 
purchases for the home. 

This educational market is repre- 
sented by purchases of learning toys, 
books and computer software. The 
buying patterns of parents of infants 
and preschoolers is different than that 
of parents a few decades ago. Parents of 
young children are now taking the role 
of teacher. If you want to see a graphic 
example of this relatively new market, 
visit a toy shop or preschool department 



of a large store. You will notice an 
emphasis on educational toys that just 
a few years ago represented a very small 
market. 

The emphasis on early education is 
expected to continue as children grow. 
Older children (in elementary and per- 
haps even high school) will represent an 
expanding market for educational 
materials sold for home use. It is impos- 
sible, of course, to predict the success or 
failure of a single company such as 
Tandy, but indications are that compu- 
ter hardware and software educational 
products will continue to represent a 
large market until the end of the cen- 
tury. Thus, machines like the Color 
Computer will probably continue to 
enjoy large sales. Also, we should 
expect to see more products (and pro- 



"The baby boomers 
who are now new 
parents are the best- 
educated generation in 
A merican history . . . 
creating a market for 
educational products. " 



ducers) of educational software for 
younger children, as well as for school- 
age children. 

One outcome of the changing demo- 
graphic features of young children is the 
growth in private schools in the past 
decade. The National Center for Edu- 
cation Statistics estimated 5.7 million 
children, aged 3 to 6, were in preprimary 
programs in 1983. up 33 percent since 
1970. Enrollment in such programs 
(mostly private, but not necessarily 
church related) is expected to increase 
25 percent to 7.1 million by 1993. 

What does this mean for schools'? 
Some predictions can be made just 
considering the projections for the 
number of students in the future. In 
1984. teacher supply was slightly larger 
than teacher demand. In 1985, the 
situation was reversed; demand for 
teachers was slightly larger than the 



teacher supply. This gap, which creates 
a teacher shortage, is expected to in- 
crease in the future. By 1993. it is 
estimated that over 220,000 teachers 
will be needed, but only about 130,000 
teachers will be available. 

The teacher shortage is compounded 
by attitudes about schools and teaching. 
In 1985, the National Center for Edu- 
cation Statistics found that 43 percent 
of public school teachers would not 
become teachers if they "were starting 
over again." In 1966, only nine percent 
of public school teachers would have 
selected a different career. This attitude 
on the part of teachers is understanda- 
ble, given the bad press schools have 
received lately. It does not, however, 
inspire confidence that the teacher 
shortage can be solved by 1993. 

A teacher shortage means more than 
simply larger numbers of students in 
classes. With a shortage of teachers also 
comes a shortage of programs. Public 
schools (as well as mainstream private 
schools) will probably have to offer the 
fundamental curriculum areas, but 
reduce the non-academic studies that 
are now "electives" for students. Sub- 
jects such as art, music and computer 
instruction may have to be reduced in 
public schools for lack of trained 
teachers. 

Therefore, one prediction, based on 
a very liberal interpretation of the 
demographic information available, is 
the growth of the "auxiliary" school. 
Parents may wish to send their children 
to the regular public school for aca- 
demic courses and, especially, the 
college-bound curriculum. Additional 
subjects parents consider important 
may well be taught out of school. 
Indeed, computer instruction is a likely 
candidate for an auxiliary school. In 
many communities today, computer 
courses are taught outside the school by 
computer specialists, not regular 
teachers. 

The idea of the auxiliary school is not 
common in our culture. While such 
programs exist, and have existed for 
decades in this country, they are cur- 
rently dealing with a small number of 
students. Now may be the time for you 
to start thinking of setting up your 
special program, so you can be ready for 
the 1990s. 

I welcome any comments, sugges- 
tions or thoughts you have to share. I 
can be reached at 829 Evergreen, Cha- 
tham, IL 62629, or on Delphi with the 
user name MPLOG. □ 
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TAKING BASIC TRAINING 



16K 
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Practicing the 
Two-Column Format 



By Joseph Kolar 
Rainbow Contributing Editor 



Sometimes we get so engrossed 
with the arcane mysteries of 
CoCo that we forget there is a 
wealth of golden information wailing to 
be mined from BASIC. 

Every beginner who trudges through 
the first chapters of a BASIC text quickly 
learns that a comma can be used to 
create a second column, providing a 
tool to develop columnar lists. In this 
tutorial, expect to explore this feature 
of our beloved CoCo, mainly the crea- 
tion of word lists in a two-column 
format. 

Our raw material will be the present 
and future tense of the German verb "to 
love." If you are studying German or 
some other language, this tutorial will 
point you toward ideas that, with 
CoCo's aid, could make your studies 
more interesting. 

Key in lines 10-19 of Listing I and 
RUN. You will see the present tense of the 
verb, "to love." 



Florida-based Joseph Kolar is a veter- 
an writer and programmer and special- 
izes in introducing beginners to the 
powers of CoCo. 



Ich liebe 


1 love 


Du liebst 


You love (singular) 


Er liebt 


He loves 


Wir lichen 


We love 


Ihr liebt 


You love (plural) 


Sie lieben 


They love 



Now type LIST-19. In Line 10, we 
cleared the screen, dropped down a row, 
indented two spaces, printed ICH 
LIEBE, spaced over with the space bar 
to the seventeenth space of the PRINTS 
screen location (the beginning of the 
right half of the screen) and printed 
WIR LIEBEN. 

Line 1 1 proved to be a bit easier to 
create. We could RUN and see if the 
character T is aligned under 'W\ If it 
isn't, it is no problem to cither delete or 
insert spaces to line it up. It is no big 
deal to move the first character of the 
second column left or right. 

Type EDIT to get in the edit mode. 
Advance the cursor with the space bar 
so it is in the blank area between the two 
phrases, press 'D' to delete one space: 
2D to delete two spaces. Press 'Land the 
space bar once to insert one space; T 
and the space bar twice to put in two 
spaces. Press ENTER to gel out of the 
edit mode. RUN and check alignment. 



In Line 13, add the third person 
singular and plural in a similar manner. 
Line 19 is a good device for you to add 
to your ever-increasing storehouse of 
knowledge. CoCo awaits your pleasure 
and when you arc ready, EXEC44539 
allows you to continue by depressing 
any key except break. 

Line 20 combines lines 10-12 and 19 
into a multiple statement line. Each line 
is separated by a colon. The colon warns 
CoCo that a new statement follows. 

Line 30 creates the same word list 
using the comma to advance to the next 
entry's beginning location. Note that 
one big PRINT line is used to enter the 
entire word list. The advantage is that 
PRINT need not be used to add each 
phrase of the list. Make sure each 
phrase is enclosed in quotes. 

If you indent the left column, you 
must take care to indent whenever a 
succeeding left column is added. If the 
sum of the characters and spaces is less 
than 15 in all the phrases, this is a 
painless way to make a two-column list. 

A good method of attack is to key in 
one row at a time. RUN and check for 
errors and misalignment, then make 
any necessary adjustments and go on to 
the next row. 
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The art of entertainment 




Pinball Factory by Kary McFadden 

The video game comes full circle in this glorious tribute to the original. 
Classic pinball spings to life as never before, with fresh new angles that 
only the computer can offer. Crisp graphics, sound, and fast, smooth 
action give this machine-language arcade game a realistic, responsive feel 
you'll hardly believe. There are even "tilt" buttons that let you "bump" 
the machine! 

In addition to playing a great game of pinball, you can enjoy hours of 
creative pleasure as you design, build, and edit your own screens. Save 
and load your favorite creations. The joystick-controlled cursor makes it 
all easy. 

Change the board: build with bumpers, tabs, and a multitude of solid 

obstacles to form any configuration imaginable. 
Change the face: draw your own title board with lines, rays, and shape 

patterns. Add text in three different colors, and two dirrent sizes. 
Change the rules: alter the gravity, bounce, and scoring! 

64K Color Computer required. $34.95 
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Speed Racer by Steven Hirsch 

The checkered flag drops as your pulse rises in this lively new 
arcade game. The road twists to the horizon on the 3-D pano- 
rama that sets the stage for the most exciting race the CoCo 
has ever seen! 

Vic for lime as you speed through the curves at incredible 
speeds. Step through the gears to slay ahead of the pack, bul 
step lively since some will stop al nothing to see the end of 
Ihe race, or ihc end of you! 

Four challenging raceways, complete with obstacles and 
colorful 3-D scenery, put your skills to the test in this Pole 
Position™ type game. 



32K Color Computer required. $34.95 
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Rommel 3-D by Kary McFadden 

You clulch the tank controls, searching for any sign of the 
enemy. Suddenly a blip appears on radar! Frantically, you 
move your lank inlo position. At last you spol the elusive 
enemy lank! Facing it, you race to lock sights and fire before 
he docs! 

Enter Ihe ultimate batlle-zone in this exciting 3-D tank com- 
bat game. Strategy, speed, and your tank's cannon arc your 
only hope as you wind through a three-dimensional course 
inhabited by impenetrable barriers and enemy tanks. 

Dazzling graphics and lifelike sound take you a step beyond 
Ihe ordinary in this fast, machine-language arcade game. Enter 
Ihe next dimension, ROMMEL'S troops arc waiting for you! 

32K Color Computer required. $29.95 
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576 S. Telegraph, Pontiac, MI 48053 

Orders and Information (31 3) 334-5700 

Prices Do Not Include Shipping and Handling 




There seems to be more than one way 
to do anything. PRINTTRB can also be 
used to create our word list. Key in Line 
40. Using PRINTTfiB, we begin at Loca- 
tion 2, effectively indenting two spaces 
by putting the '2' within parentheses (2) 
and within a brace of quotes enter the 
first phrase. Without further punctua- 
tion or delineating marks, key in TAB 
followed by (16) to get us to the seven- 
teenth space in the row. Then within 
quotes, type in the second phrase. 

Recall that the first space at the left 
margin is PRINTTAB(0). Thus, PRINT 
TRB(2) is really the third space in the 
row. This is the most satisfying manner 
to make two-column lists of text. 

In lines 41 and 42, the PRINTTRB 
locations are the same as in Line 40 (2 
and 1 6) as would be the locations of any 
addition lines. 

To summarize: If you use the PRINT 
TAB method between the two text 
phrases enclosed within quote marks 
that comprise the two columns, insert 
TAB ( X ) . where 'X' is the desired PR I NTS 
location. 

For the beginner, this system will do 
yeoman service. It is readily visualized 
in the listing and the rows can be 
speedily realigned horizontally by 
changing the 'X' value. Likewise, it is 
simple to edit. 

You could use PRINTS to make a two- 
column list, however, it is too unwieldy 
and confusing. Forget it, unless you 
want to practice working with PRINTS. 

Key in Line 50. Who said you have 
to use only one system? Here we have 
a row of PRINTTRB, followed by a row 
using the "comma ploy." Notice that a 
comma follows at the end of the 



TAB (IS) entry to tell CoCo to move 
over to the next column; in this case, the 
first column in the third row. The third 
row is put on using the PRINT method, 
wherein we space over with the space 
bar to pick up the starting location to 
begin the second column on the row. 

Don't you think that instead of 
:PRINT we could have inserted a 
comma? Try it! Yes, we could, but that 
creates a new modification. After the 
first PRINT line, as in Line 10, contin- 
uing to use the PR INT format, you could 
have added the information in lines 1 1 
and 12. using the comma to start a new 
row. For practice, rework lines 10-19, 
using this modification to make a mul- 
tiple statement program line. 

In Line 60, we will compare the 
present tense, "love," with the future 
tense, "will love," side by side. We are 
going to make a single, multiple state- 
ment line that separates each phrase 
with a comma. 

Type NEW and carefully key in Line 60 
and RUN. What a mess! But, have no 
fear, a little editing will put it right. 

The first row is properly located. The 
second row begins over where the sec- 
ond column begins. The reason is that 
the second column of the first row used 
up all 16 locations and the next char- 
acter would be on the new line. The 
comma told CoCo to go on to the next 
column. Obviously, we must remove the 
comma. If you lake out the comma, 
what happens? It is OK. You may also 
remove the two quotes on cither side of 
this particular comma. 

Type EDITG0 and press ENTER. Type 
in 45 and press the space bar. The cursor 
is on top of the comma. Press 'D' to 



delete it and FNTER to gel out of edit 
mode. 

If it is confusing to find L1EBFNDL' 
bunched up without a space, pul the 
quotes back in. A newcomer can visu- 
alize it easier if the two phrases are 
separated into separate units. 

Now, notice that the fourth row 
overlaps into the fifth row, causing 
havoc by pushing over the phrase IHR 
LIEBT to the next column. We must 
work within the constraints put upon us 
by CoCo. We must break up WIR 
WERDEN LIEBEN and move 
LIEBEN under WIR WERDEN. Big 
job? No! Edit Line 60 by inserting 
between WIR WERDEN and LIEBEN 
two commas (.,) and remove the blank 
space. The two commas cause it to move 
over two columns, just where we want 
it. 

Type EDITG0, press ENTER, then type 
120 and press the space bar. Tap the 
space bar a few times so the cursor is 
between the 'N' and 'L*. Type 'I' to get 
in the insert mode. Type in two commas 
and press the up arrow and smi-T at the 
same time to get out of insert mode. 
Press 'D' to get rid of the blank space. 
Press ENTER to get out of edit mode. 

After checking over your work, you 
will notice that you have to give the next 
line the same treatment. Checking 
again, you sec that you get a little more 
practice and ditto on the last row. 

Wouldn't the whole mess look better 
with blank rows between the phrases? 
Yes, each line would stand out and be 
easier to read. But, where to begin? 
What to do? 

RUN the program. Consider that ICH 
WERDE LIEBEN ends the first row. If 



Listing 1: GERMAN 


40 CLS:PRINT:PRINTTAB(2) "ICH LIE 


'LISTING1 


BE"TAB(16) "WIR LIEBEN" 


10 CLS: PRINT: PRINT" ICH LIEBE 


41 PRINTTAB(2) "DU LIEBST"TAB ( 16) 


WIR LIEBEN" 


"IHR LIEBT" 


11 PRINT" DU LIEBST IHR LIE 


42 PRINTTAB(2) "ER LIEBT"TAB ( 16) " 


BT" 


SIE LIEBEN" :EXEC44539 


12 PRINT" ER LIEBT SIE LIE 


50 CLS:PRINT:PRINTTAB(2) "ICH LIE 


BEN" 


BE"TAB(16) "WIR LIEBEN"," DU LIE 


19 EXEC44539 


BST","IHR LIEBT" .-PRINT" ER LIEB 


20 CLS: PRINT: PRINT" ICH LIEBE 


T SIE LIEBEN" :EXEC44539 


WIR LIEBEN": PRINT" DU LIEBST 


60 CLS: PRINT: PRINT" ICH LIEBE", "I 


IHR LIEBT": PRINT" ER LIEBT 


CH WERDE LIEBEN", "DU LIEBST", "DU 


SIE LIEBEN" :EXEC44539 


WIRST LIEBEN", "ER LIEBT", "ER WI 


30 CLS: PRINT: PRINT" ICH LIEBE", 


RD LIEBEN" , "WIR LIEBEN" , "WIR WER 


"WIR LIEBEN"," DU LIEBST", "IHR 


DEN LIEBEN", "IHR LIEBT", "IHR WER 


LIEBT"," ER LIEBT", "SIE LIEBEN" 


DET LIEBEN", "SIE LIEBEN", "SIE WE 


:EXEC44539 


RDEN LIEBEN" 
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we put two commas between that 
phrase and the next, DU LIEBST, that 
should give us two empty columns; in 
effect, an empty row. 

Type EDITG0. If you left in the two 
quotes, then type 45 and press the space 
bar. then tap over to get beyond the first 
quote. Type I to get in insert mode, then 
two commas, and press ENTER to get 
out of edit. If you yanked the two quotes 
then type EDITG0, type 45 and press the 
space bar and left arrow to get on top 
of 'D\ Type I to get in insert mode. Type 
two commas enclosed in quotes (",,") 
and press ENTER to get out of edit mode. 



Now RUN; check your work by press- 
ing BREAK, type EDITG0, type G0 and 
press the space bar. Advance using the 
space bar until you are over the comma 
after LIEBEN. Type I to get in insert 
mode, insert two commas („) and press 
ENTER to get out and RUN. See? 

Now you may finish up the others one 
at a time. Remember that you are only 
adding these blank-line producing com- 
mas after the LIEBEN in the second 
column and not after WERDET or 
WERDEN. 

If you feel confident, EDITG0, then 
type 100 and press the space bar. Tap 



the space bar until it is on top of the 
comma after LIEBEN. Now perform 
the following: Type I and two commas, 
press the up arrow and SHIFT at the 
same time, space over to the next 
LIEBEN, (about 35 spaces), type I and 
two commas, press the up arrow and 
SHIFT together. Tap over to the next 
work zone. After the third insertion, 
press ENTER and RUN. 

I guess we beat that ox to death! Here 
is the quote for today: "I love you, Mr. 
CoCo." And your lesson for today? 
Repeat after me, "Ich liebe dich, Herr 
CoCo." D 



Listing 2: YOYO 


19 5 K=R 


' YOYO 


200 X=INT(A+R*COS(K)) :Y=INT(B+R* 


5 ■ (C) 1984, J KOLAR 


SIN(C) ) 


30 PMODE4,l:PCLS 


210 PUT(X+80,Y)-(X+68,Y+10) , S , PS 


40 A=126:B=90:R=72:PI=1.70 


ET 


50 DIM S(13) 


213 X=INT(A+R*SIN(C) ) :Y=INT(B+R* 


60 DRAW"BM8,4NU4NL4NR4ND4NE4NF4N 


COS(C) ) 


G4NH4" 


215 PUT(X-5,Y)-(X+7,Y+10) ,S,PSET 


70 GET(0,0)-(12,10) ,S,G 


220 NEXT Z,S 


80 PCLS:SCREEN1,1 


230 PLAY"O3V25L8CV30EV25CO2BABV2 


175 FOR S-15 TO 3 STEP-6 


0O3CL16EEFFGGV15EEFFGGL8GFEL4CO2 


180 F0RZ=1T0676 STEPS :C=Z 


V20BO3L2C" 


190 C=90+C*PI/180 


240 GOT0175 /Rv 



Two- Liner Contest Winner . . . 

This program gives you an idea of the enthusi- 
ast's affection for the CoCo. Type it in and run it! 

The listings: 

1 PMODE4,l:PCLS:SCREENl,l:DRAW M B 
M106,8;R43D12L43U12D12BD5R42D35G 
20H20U35R10D44U44R20D44": CIRCLE ( 
128 , 96) , 6 : DRAW M BM109 , 90 ;M123 , 90M 
12 8 , 77M133 , 90M148 , 90M13 6 , 99M141, 
112M128 , 103M115 , 112M120 , 99M109 , 9 
0":DRAW"BM116, 17 ;G1L4H2U3E2R4F1B 
D5R5H1U2E1R2F1D2G1L2BR17G1" 

2 DRAWL4H2U3E2R4F1BD5R5H1U2E1R2 
F1D2G1L2 " : PAINT (115 , 30 ) , 1 : PAINT ( 
145,40) ,1:PAINT(126,89) ,1:DIM V( 
100,1,1) :GET(0,0)-(255,1) ,V:FORC 
=0TO191:PUT(0,C)-(255,C) ,V,NOT:N 
EXTC:FORX=1TO2000:NEXTX:I$=INKEY 
$:IFI$="I"THENRUNELSEIFI$= ,M, THEN 
RUN : END 

C. W. Harriman 
Bradford, MA 



(For Ih'ni winning two-liner contesl entry, the author has been sent copies 
of both Tin Seeoml Rahthinr Hunk of Adventures and its companion 
tin 1 Seeontt Rainbow Atlvenwres /i//"'.) 



E-T.T- Electronic Typing Teacher 

by CHERRYSoft 

Learning to type the right way can save you hours of tedious 
work when entering programs into your CoCo, and this is just 
what ETT was designed to do. Devote a little time every day prac- 
ticing with ETT and before you know it you will be typing with con- 
fidence. Entering those programs will no longer be the chore it 
use to be. 

ETT's video keyboard lets you practice with all the keys labeled, 
the keys blank or only the "home" keys labeled. The visual 
cues guide you while you learn to type without watching your 
fingers. ETT shows your accuracy, response time, and words per 
minute. You will quickly see that you are improving with practice. 

With the sentences provided by ETT learning to type can be fun. 
Over 1000 variations chosen because they include every letter in 
the alphabet. You can also create your own practice sets. This 
outstanding program was written by a certified teacher and pro- 
fessional programmer and comes with a ten page student 
manual-study guide. Requires 16K Extended Basic. 

95 free $OQ95 

Cassette ^T SHIPPING Disk ^CJ 



24 



ETT is being used in schools throughout the U.S. 

See ETT at your favorite dealer or order direct. 

DEALER INQUIRES INVITED 



**zzCoCo 
c Watehouse 

Where Shopping By Mail is "USER FRIENDLY" 

500A N. DOBSON - WESTLAND, Ml 48185 

Phone (313) 722-7957 
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ftware 



Tired of the 
same old utilities? 



Would you like to protect your disk software from un- 
authorized copying, but still allow your users to make 
back up copies? Then 




? Then . ^~~. 




is for you! 



$99.95 - Disk 



PIRATECTOR features: 

• Protects Basic or ML programs 

— Encryption 

— ML AUTO Loader 

— Basic Break Disabler 

— Error catcher 

— Reset Button Disable 

• Utility subroutines included 

• Automate your duplication if 
multiple drives are used 

• Each copy will be "finger printed" 
with incrementing serial numbers 



Don't waste your valuable time and effort concocting anti- 
piracy schemes. Spend your time developing new pro- 
grams and then Pirated "" them. Piratector will protect your 
Basic or ML programs using many different sophisticated 
techniques, while still allowing your users to create (non- 
executable) backups that can be used to recover a 
"crashed" master disk. 

Piratector offers much more than just software protection. 
Several ML utilities are provided including: 

COMBINER- appends ML subroutines with 

your Basic program. 

SEMIGRAF - full featured high-resolution 8 
color semigraphic graphic edi- 
tor to build title screens for your 
programs. 

GETLIN - keyboard input subroutine for 

easy development of MENU 
oriented software (Basic or 
ML) 



i;a\h,imi 

l»r;i|iliics Editor 



Tape - $19.95 
Disk - $24.95 



Graphics editor to create and modify your own pictures 

Pictures can be used as a title t.:reen for a program 

Create a series of pictures to make a slide show 

Both Extended and non-Extended Basic 

versions on the same tape 

High Resolution 

Semigraphic modes 8, 12, and 24 

(64 x 64, 64 x 96 and 64 x 128) 

8 colors 

Combine text with graphics 

Auto-repeat and "magic" delete 

Requires 16K 



/ZZH d\\ $19.95 

AUTO DUN D<? a 

AUTO RUN 64 $24.95 

Software that you design and sell can be enhanced by 
using the Auto Run Loader Sugar Software will allow you 
to do this without requesting royalties 



Starts up your Basic or ML program automatically 

— no need to type EXEC or RUN 

Locate your program anywhere in memory 

Graphics editor helps you create attractive title screens 

for your program 

Gives your program the professional touch 

Provides an audio introduction for your program 

Create "slide shows" with a series of title screens 

Used by many CoCo software houses 

Requires 16K ECB 



Dealer and author Inquiries arc al- 
ways welcome. Canadian dealers 

should contact Kelly Software Dis- 
tributors. Ltd., P.O. Box 11932. 
Edmonton, Alberta T&J-3L1, (4<>;l) 
421-8003. 

Disk software compatible with Radio 
Shack DOS onlv. 



SUGAR SOFTWARE 

17 10 N. 50th Ave. 

Hollvwood. Florida 33021 

"(305) 981-124-1 

A complete catalog of other sweet 
Sugar Software products Is available. 



Add $1.50 per program for postage and 
handling. Florida residents add 5 r f sales tax. 
COD orders are welcome. CIS orders EMAIL 
to 70405. 1374. No refunds or exchanges. 

"— o»« VISA 




tware 



JKlp GlaOIn (Ualitgrap^r. 



Use your CoCo, your 8-bit dot addressable graphics 
printer and the CoCo Calligrapher to create beautiful 
signs, invitations, flyers, greeting cards, diplomas, cer- 
tificates, awards and love letters. 

The original Calligrapher letters are 36 points ( 1 12 inch) 
high and variably spaced. It includes an easy-to-use . 
menu-oriented program and these three typestyles: 



Old English Cartoon 

<S>1<I ^nali^h Qortoen 

Gav Nineties 

Gey Nifief ics 

The CoCo Calligrapher requires 32K ECB. 
Tape $24.95 Disk $29.95 



ADDITIONAL TYPESTYLES 

These tapes of additional typestyles are available for 
$19.95 each. They can be easily moved to disk. The 
original Calligrapher program is required. 

Tape 1 - Reduced, Reversed, and Reduced-Reversed 
versions 



Old English 



Gay Nineties 



Cartoon 



These disks of additional typestyles are 
available for $49.95 each. 

Disk 1 - all type styles on Tapes 1 , 2 and 3. 
Disk 2 - all type styles on Tapes 4, 5 and 6. 

Tape 4: Wild West/Checkers 

"Wild West CfiecU 



vLvivx titticirisJiafecde 



All typestyles on Tapes 2, 3, 4, 5, and 6 include Stan- 
dard (V2 inch), Reversed, Reduced, and Reduced- 
Reversed unless otherwise noted. 

Tape 2: Broadway/Old Style 

IBroaduay tjldsfylt 

Tape 3: Business/Antique 



Tape 5: Star 



Hebrew 



Stars m^E? 

Victorian (Standard and Reverse only) 
Tape 6: Block/Computer 

Block 

CompuTEh 



mi\e ©£-9 Calligrapher. 



$39.95 

Requires OS-9 Version 01.01.00 and a dot matrix print- 
er. The OS-9 Calligrapher reads a standard input text 
file which contains text and formatting directives to pro- 
duce standard utput for printer or disk. You can specify 
which font to use; centering; left, right or full justification; 
line fill; narrow mode; margin; line width; page size; 
page break and indentation. 



These disks of additional typestyles are available for 
$49.95 each. They are not compatible with the CoCo 
Calligrapher typestyles or program. OS-9 typestyle 
disk must be used with the OS-9 Calligrapher. 

Disk 1 - OS-9 version of all type styles on Tapes 1 , 2 and 

3. 

Disk 2 - OS-9 version of all type styles on Tapes 4, 5 and 

6. 



Dealer ami author Inquiries arc al- 
ways welcome. Canadian dealers 
should contact Kellv Software Dis- 
tributors, Ltd., P.O. Box 11932. 
Edmonton. Alberta T5J-SL1, (403) 
421-8003. 

Disk software compaUble with Radio 
Shack DOS onlv. 



SUGAR SOFTWARE 

1710 N. 50th Ave. 

Hollywood. Florida 33021 

(305) 081-1211 

A complete catalog of other sweet 
Suj^ar Software products is available. 



Add S I -50 pur program for postage and 
handling. Florida residents add 5% sales tax. 
COD orders arc welcome. CIS orders F.MAI I. 
to 70405. 1374. No refunds or exchanges. 

VISA 




WAR GAMES 





ARK ROYAL GAMES celebrates the Mew Year with reduced prices on all 
games. ..even our two newest releases! 



new! SAGA-THE SORCERER'S 
CCJRSE 32K 100% hi-res, 100% ML 

graphic adventure. Fantastic! Disk only 
— $22 

new! REDSTAR 32K 100% hi-res 
I 00% ML. Futuristic wargame involv- 
ing NATO and the WARSAW 
PACT. Disk only —$22 

BARBAROSSA 64K 100% hires 
100% ML game of the war in Russia 
1941-1944. "A Blockbuster," says 

Hot Coco's Peter Paplaskas. Reviewed 

Jan. '86 Hot Coco.— $25 

D-DAY Our second 64K 100% hi-res 
1 00% ML, this one dealing with the Al- 
lies invasion of France in 1944. Mas- 
sive! No review date set yet. — $23 

PHALANX 32K 100% hi-res, 100% 
ML game of Alexander the Great. No 
review date set yet. — $20 

ANZIO 32K Semigraphic wargame. I 
or 2 players. Simultaneous movement. 
No review date set yet. — $20 

COMPANY COMMANDER 32K ML 
routines. Tactical squad level wargame 
set in WWII. 12 scenarios, add-on ex- 
pansion modules. Dec. '85 Rain- 
bow. — $23 disk or tape 

RIVER CROSSING 32K ML routines. 
A Company Commander add-on mod- 
ule, but you no longer need C/C to play 
it.— $23 







CINCPAC BATTLE OF MIDWAY 32K 
100% hi-res 75% ML. The battle that 
turned the tide of war. Aug. '85 
Rainbow. — $20 

ESCAPE FROM DENNA 32K ML rou- 
tines. Semigraphic Dungeon adventure 
game. No review date set yet. — $18 

BATTLE OF THE BULGE 32K Semi- 
graphic wargame. 1 or 2 players. Aug. 
'85 Rainbow. — $ 15 

BATTLE FOR TUNIS 32K Semigraph- 
ic wargame. 1 or 2 players. Sept. '85 
Rainbow. — $ 1 5 

ACROSS THE RUBICON 32K Semi- 
graphic wargame. Feb. '84 
Rainbow. — $ 1 5 

WATERLOO 32K ML routines. Semi- 
graphic wargame. Mar. '84 
Rainbow. — $ 1 5 

KAMIKAZE 32K Hi-res graphic war- 
game. Apr. '83 Rainbow. — $15 

BOMBER COMMAND 32K disk, 16K 
tape. Semigraphic wargame. ML rou- 
tines. Jan. '84 Rainbow.— $10 

GUADALCANAL 32K Semigraphic 
wargame. ML routines. — $10 

THE POWER OF THE TRS-80 COM- 
PUTER Book. Loaded with great 
programming information. — $10 
(Shipped book rate) 



Prices on all programs include shipping lo U.S.. APO's. Canada. COD's (USA only) 
add I0°i. Florida Residents add 5"'.>. For disk version add S2. All Orders shipped 
within 24 hours. Programs require Color Computer TM (Tandy Corp.) or TDP Sys- 
tem 100 Computer TM (RCA). Many progiams soon to be available on MS-DOS 
systems. 



P. O. Box 14806 
Jacksonville, FL 32238 

(904) 786-8603 




DISK UTILITY 



16K 
Disk 






Not a dance, but a disk alignment aid . . . 



Doing the 
Disk-O-Step 



By Dave Trapasso 



If you've ever tried to do a disk 
alignment, you know it is necessary 
to have complete control over the 
drive on which you are working. This 
means being able to go to a selected 
track at will, and being able to turn the 
drive motor on and off. 

The problem with using most other 
disk zapper-type utilities results from 
the fact that they actually try to read the 
data from the disk. If there is a problem 
with the disk, such as alignment, the 
utility generates an error and gives up, 
or keeps stepping back to track zero 
then to the track in order to retry 
reading it. 



This is not very helpful while trying 
to keep the motor on and the head still 
at the track you are checking. This 
utility, Disk-O-Slep, lets you do just 
that. As a matter of fact, you can use 
most of the functions of the utility 
without a disk in the drive and with the 
door open! 

Since this is the age of electronic 
information storage, rather than print 
the instructions they are included in the 
program. This means you will never lose 
them and have to hunt through all your 
manuals or back issues of THE rainbow 
to find the instructions to the program. 

Disk-O-Slep is very simple to use and 



is menu driven. As a bonus, the pro- 
gram even includes a disk speed test. 
Note that the program is fully com- 
mented for debugging and for any 
changes you wish to make. Example: 
Look at lines 80, 90 and 100. You may 
want to change the maximum number 
of tracks or the step rate to suit the drive 
with which you are working. Only I6K 
of memory is required, provided that 
you PCLEflR 1 before loading the pro- 
gram. More than I6K of memory does 
not require any changes. Of course, 
Disk BASIC is required. 

So, "step out" and have a good 
time. □ 





id? 








<X 


V™ 








\ 


V 190 .. . 
410 .. 


132 2250 . . . 
7 2400 . . . 


. . .84 
.226 


IN MACHINE CODE FOR DISK SPEED T 




610 ... 


...179 2560 ... 


...60 


EST 




820 


...254 2710... 


...52 


30 READ D$ 




1010 .. 


174 2860 . . 


....1 


4j3 POKE I,VAL("&H"+D$) 




1190 . . 


...108 3020 . .. 


..148 


50 NEXT I 




1360 
1540 
1730 . . 


. . .238 3170 . .. 

.95 3320... 

41 3480 . . . 


177 

133 

...49 


60 CLS 4 

10 RES=3 'OP CODE FOR RESTORE CO 




1930 .. 


...255 3630 .. . 


.187 


MMAND 




2080 


. 55 END ... 


58 


80 SI=&H5j3 'OP CODE FOR STEP IN 
@ 6MS, USE &H53 FOR 3j3MS 


















90 SO=&H70 'OP CODE FOR STEP OUT 


The listing: DISKSTEP 




@ 6MS, USE &H73 FOR 30MS 


10 PCLEAR 1: CLEAR 5)3)3, &H4FBF i$0 MAX=34 'MAX # OF TRACKS 


20 FOR I=&H4FCp 


TO &H4FE3 


■POKE up C=&H2 9 ' SELECT DRIVE , DOU 
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BLE DENSITY 


480 


PRINT @488,TK;" " ; 


120 DN=0 ' DRIVE NUMBER 


490 


POKE &H9 7E,TK ' TELL DOS WHA 


130 MS=0 ■ MOTOR STATUS= OFF 


T TRACK WE ARE AT FOR EACH DRIVE 


140 TRK=&HFF49 'FLOPPY DISK TRAC 


500 


POKE &H97F,TK 


K REGISTER 


510 


POKE &H980,TK 


150 COM =&HFF48 'FLOPPY DISK COM 


520 


POKE &H981,TK 


MAND & STATUS REGISTER 


530 


PRINT @456,DN; 


160 DRV=&HFF40 'FLOPPY DISK SELE 


540 


C$=INKEY$ 


CT REGISTER 


550 


IF C$="0" THEN 700 


170 PRINT §231, "disk alignment a 


560 


IF C$="l" THEN 700 


id"; 


570 


IF C$="2" THEN 700 


180 PRINT (§2 60, "WRITTEN BY- DAVE 


580 


IF C$="3" THEN 700 


TRAPASSO" ; 


590 


IF C$="R" THEN 750 


190 PRINT @297, "OCTOBER, 1984"; 


600 


IF C$="I" THEN 950 


200 PRINT @448, "WOULD YOU LIKE 


610 


IF C$="0" THEN 1010 


INSTRUCTIONS"; 


620 


IF C$="G" THEN 1110 


210 Z$=INKEY$ :IF Z$="" THEN 210 


630 


IF C$="S" THEN 1810 


220 IF Z$="Y" THEN GOSUB 1970 


640 


IF C$="H" THEN 1320 


230 CLS 


650 


IF C$="A" THEN 1610 


240 GOSUB 7 80 'RESTORE DRIVE T 


660 


IF C$<>"M" THEN 540 


TRACK 


670 


■*CHANGE MOTOR STATUS* 


2 50 PRINT @0, "TOGGLE MOTOR ON/OF 


680 


MS= NOT MS 


F= M" 


690 


GOTO 420 


2 60 PRINT "RESTORE TO TRACK 0= R 


700 


DN=VAL(C$) ' GET NUMERICAL V 


ii 


ALUE OF DRIVE NUMBER SELECTED 


2 70 PRINT "0 TO 3= SELECT DRIVE 


710 


IF DN=0 THEN C=&H29 'CODE FO 


#" 


R DRIVE SELECT 


280 PRINT "STEP DRIVE IN= I" 


720 


IF DN=1 THEN C=&H2A 'CODE FO 


2 90 PRINT "STEP DRIVE OUT= 0" 


R DRIVE 1 SELECT 


300 PRINT "GOTO TO TRACK= G" 


7 30 


IF DN=2 THEN C=&H2C 'CODE FO 


310 PRINT "READ TRACK'S SECTOR I 


R DRIVE 2 SELECT 


N HEX= H" 


740 


IF DN=3 THEN C=&H68 'CODE FO 


3 20 PRINT "READ TRACK'S SECTOR I 


R DRIVE 3 SELECT 


N ASCII= A" 


7 50 


GOSUB 7 70 'RESTORE THE SELCT 


330 PRINT "MOTOR SPEED TEST= S" 


ED 1 


DRIVE TO TRACK 


340 PRINT "COMMAND:" 


760 


GOTO 4 20 


350 PRINT @384, "track zero swit 


770 


' *THIS SUB RESTORES CURRENT 


ch" 


DRIVE TO TRACK 0* 


360 PRINT @416, "motor" 


780 


GOSUB 1070 'TURN ON DRIVE & 


3 70 PRINT @448, "drive #" 


WAIT FOR IT TO SPEED UP 


380 PRINT @480, "track #"; 


790 


POKE COM, RES 'ISSUE RESTORE 


390 '*KEYBOARD INPUT ROUTINE* 


COMMAND TO CONTROLLER 


400 POKE 3 3 9,2 'KEY REPEAT THE ' 


800 


FOR 1= TO 100 'LOOK FOR TR 


I' KEY 


ACK 


SWITCH THIS MANY TIMES 


410 POKE 345,2 'KEY REPEAT"THE ' 


810 


CK=PEEK(COM) AND 4 'READ TRA 


0' KEY 


CK ZERO SWITCH 


420 POKE DRV,C 


820 


IF CK=4 THEN 900 ' IF ON THEN 


430 CK=PEEK(COM) AND 4 


WE 


ARE DONE 


440 IF NOT MS THEN POKE DRV,0 'I 


830 


NEXT I 'CHECK SWITCH AGAIN 


F MOTOR STATUS OFF, SHUT OFF MOT 


840 


PRINT @320, "DRIVE? PUSH ENTE 


ORS 


R" 




450 IF CK=4 THEN PRINT @402,"ON 


850 


A$=INKEY$ 


" ELSE PRINT @402,"OFF" 


8 60 


IF A$="" THEN 850 


460 IF MS THEN PRINT @422,"ON "; 


870 


IF A$<>CHR$(13) THEN 60 


ELSE PRINT @422,"OFF"; 


880 


GOSUB 12 80 'CLEAR THE INPUT 


470 TK=PEEK(TRK) 'FIND OUT WHAT 


LINE 


TRACK ALOPPY CONTROLLER THINKS W 


8 90 


GOTO 780 'TRY TO RESTORE AGA 


E'RE AT 


IN 
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900 MS=0 

91JZS IF PEEK(TRK)<> THEN 83,0 

920 CK=PEEK(COM) AND 4 

93 IF CK=0 THEN 8 30 

940 RETURN 

950 '*THIS STEPS THE DRIVE IN* 

9 60 IF TK=MAX THEN 390 'IF WE AR 

E ALL THE WAY IN, THEN DON'T DAM 

AGE DRIVE 

970 IF MS THEN 990 'IF MOTOR IS 

ALREADY ON, LET'S SPEED THINGS U 

P 

980 GOSUB 1070 'TURN ON SELECTED 

MOTOR 
990 POKE COM, SI 'ISSUE STEP IN C 
OMMAND TO CONTROLLER 
1000 GOTO 3 90 

1010 '*THIS STEPS THE DRIVE OUT* 
1020 IF TK=0 THEN 420 'IF WE ARE 

ALL THE WAY OUT, THEN DON'T DAM 
AGE DRIVE 

1030 IF MS THEN 1050 'IF MOTOR I 
S ON, THEN LET'S SPEED THINGS UP 
1040 GOSUB 1070 
1050 POKE COM, SO 'ISSUE STEP OUT 

COMMAND TO CONTROLLER 
1060 GOTO 390 

1070 POKE DRV,C 'SELECT DRIVE & 
TURN ON MOTORS 

1080 FOR 1= 1 TO 50 'DELAY FOR M 
OTORS TO COME UP TO SPEED 
1090 NEXT I 
1100 RETURN 

1110 '*THIS STEPS TO THE SELECTE 
D TRACK* 
1120 PRINT @320, "input track # " 

1130 INPUT TK$ 

1140 T=VAL(TK$) 'GET NUMERIC VAL 

UE OF INPUT TRACK NUMBER 

1150 GOSUB 1280 'CLEAR THE INPUT 

LINE 
1160 IF T<0 THEN 1110 'CHECK FOR 

ILLEGAL VALUES 
1170 IF T>MAX THEN 1120 
1180 M=MS 'SAVE PRESENT MOTOR ST 
ATUS, RESTORE WILL TURN IT OFF 
1190 GOSUB 770 'NOW RESTORE TO T 
RACK 

1200 MS=M 'PUT BACK ORIGINAL MOT 
OR STATUS 

1210 GOSUB 1070 'TURN ON DRIVE M 
OTORS 

1220 IF T=0 THEN 390 'IF THEY WA 
NTED TRACK ZERO, WE ARE THERE 
1230 FOR 1=1 TO T 'STEP IN ONCE 
FOR EVERY TRACK NUMBER 
1240 POKE COM, SI 'ISSUE STEP IN 



COMMAND TO CONTROLLER 

1250 IF PEEK (COM) AND 1 THEN 125 

'SEE IF COMPLETE 

12 60 NEXT I 

1270 GOTO 420 

12 80 '*THIS SUB. CLEARS THE INPU 

T LINE* 

1290 PRINT @3 20," 

ii . 

1300 PRINT @352," 

ii . 

1310 RETURN 

1320 '*THIS DISPLAYS SECTOR FROM 

CURRENT DRIVE & TRACK IN HEX* 
1330 GOSUB 1480 'INPUT SECTOR NU 
MBER, & READ IT 
1340 P=1024 

1350 GOSUB 1390 'SHOW 1/2 OF SEC 
TOR IN HEX 

13 60 A$=B$ 'SET UP TO SHOW 2ND H 
ALF IN HEX 

1370 GOSUB 1390 'SHOW OTHER 1/2 
IN HEX 

13 80 GOTO 1580 'WAIT FOR INPUT T 
RESUME 

1390 FOR I = 1 TO 128 'LENGTH 

F 1/2 OF SECTOR 

1400 H=ASC(MID$(A$,I,1)) 'MAKE H 

EX CHAR. OF EACH 

1410 HL=INT(H/16) :HR=H-HL*16 

1420 HL=HL+55 : IF HL<65 THEN HL= 

HL+57 

1430 HR=HR+55 : IF HR<65 THEN HR= 

HR+57 

1440 POKE P,HL : POKE P+1,HR 

1450 P=P+2 

14 60 NEXT I 
1470 RETURN 

1480 '*THIS READS THE SECTOR INP 

UT, FROM THE CURRENT DRIVE & TRA 

CK* 

1490 PRINT @ 3 20, "input sector # 

(1-18)"; 

1500 INPUT SN$ 

1510 SN=VAL(SN$) 'GET NUMERIC VA 

LUE OF SECTOR # INPUT 

1520 GOSUB 1280 'CLEAR THE INPUT 

LINE 
1530 IF SN<1 THEN 1480 'SEE IF I 
T'S A LEGAL VALUE 
1540 IF SN>18 THEN 1480 
1550 DSKI$ DN,TK,SN,A$,B$ 'READ 
SECTOR FROM DISK INTO A$ & B$ 
1560 CLS 
1570 RETURN 

1580 IF INKEY$="" THEN 1580 
1590 CLS 
1600 GOTO 250 
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1610 '*THIS DISPLAYS SECTOR FOR 

CURRENT DRIVE & TRACK IN ASCII* 

1620 GOSUB 1480 'INPUT SECTOR NU 

MBER, & READ IT 

1630 N=l 

1640 FOR 1=0 TO 15 'SHOW THIS MA 

NY LINES OF ASCII 

1650 AD=I+4 8 'SHOW HEX ADDRESS O 

F EACH" LINE, MAKE IT ASCII 

1660 IF AD> 57 THEN AD=AD+7 'COR 

RECT ASCII FOR HEX "A-F 1 

1670 PRINT §(32*1) ,CHR$(AD) ; "0= 

"; 'NOW PRINT ADDRESS ON LINE 

1680 FOR P=N TO N+15 'SHOW THIS 

MANY CHARS/LINE 

1690 Z$=MID$(A$,P,1) 'GET CHARS 

ONE AT A TIME 

1700 IF Z$="" THEN Z$="." 'CHECK 
UNPRINTABLE CHARS. 
IF ASC(Z$)>&H7F THEN Z$="." 
IF ASC(Z$)<&H20 THEN Z$="." 
PRINT Z$; 'NOW SHOW CHAR. 

N SCREEN 

1740 NEXT P 

17 50 N=P 'UNDATE CHAR. POINTER F 

OR NEXT LINE 

1760 IF N< 128 THEN 1790 'CHECK 



FOR 
1710 
1720 
1730 
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FOR SECOND 1/2 OF SECTOR 

1770 N=l 'SECOND 1/2, RESET CHAR 

. POINTER 

1780 A$=B$ 'SET UP TO SHOW 2ND 1 

/2 OF SECTOR 

1790 NEXT I 

GOTO 1580 

CLS 3 

GOSUB 1070 

PRINT §22 8 

POKE COM, RES 

EXEC &H4FC0 

T=2 56*PEEK ( &H4FE4 ) +PEEK ( &H4 



1800 
1810 
1820 
1830 
1840 
1850 
1860 
FE5) 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 



"MOTOR SPEED=" 



IF TO0 THEN 1900 

RPM=0 

GOTO 1910 

RPM=(5600/T)*300 

IF INKEY$<>"" THEN 1590 

PRINT §240,""; 

PRINT USING "###.# ";RPM; 

PRINT " RPM "; 

GOTO 1850 

DATA 34,12,8E,0,0,B6,FF,48, 
30,i,27,12,84,2,2 6,F5,8E,0,0,B6, 
FF,48,30,1,27,4,84,2,27,F5,AF,8D 

2 35 92 
1970 CLS: PRINT "THE 'M' KEY WIL 
L TURN THE MOTORS"; 
1980 PRINT "ON OR OFF. IF PUSHED 

WHILE THE" 
1990 PRINT "MOTORS ARE ON, THEY 
WILL SHUT" 

2000 PRINT "OFF & VICE-VERSA. AN 
Y MENU ITEM" 
2010 PRINT "MAY BE SELECTED WITH 

THE MOTORS" 
2020 PRINT "IN EITHER STATE. IF 
AN ITEM IS" 

2030 PRINT "SELECTED WITH THE MO 
TOR OFF, THE"; 
2040 PRINT "COMMAND WILL TURN ON 

THE MOTORS,"; 
2050 PRINT "EXECUTE, & TURN IT B 
ACK OFF. IF" 

2060 PRINT "THE MOTOR IS ON, IT 
WILL STAY ON" ; 

2070 PRINT "AFTER THE COMMAND EX 
ECUTES , " 

2080 PRINT "EXCEPT FOR THE RESTO 
RE COMMAND" 



2090 PRINT 
UT THE" 
2100 PRINT 
S DONE . " 
2110 GOSUB 
2120 PRINT 
TORE THE" 



"WHICH WILL ALWAYS SH 



"MOTOR OFF AFTER IT I 



3860 
"THE 



'R' KEY WILL RES 
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TEN MOST-ASKED QUESTIONS 

about DYNACALC 

THE ELECTRONIC SPREAD-SHEET FOR OS-9 SYSTEMS 



1. what is an electronic spread-sheet, anyway? 

Business people uses spread-sheets to organize col- 
umns and rows of figures. DYNACALC simulates the 
operation of a spread-sheet without the mess of 
paper and pencil Of course, corrections and 
changes are a snap. Changing any entered value 
causes the whole spread-sheet to be re-calculated 
based on the new constants. This means that you 
can play. 'WHAT if? to your heart's content. 



2. is DYNACALC just for accountants, then? 

Not at all. DYNACALC can be used for just about any 
type of job. Not only numbers, but alphanumeric 
messages can be handled. Engineers and other 
technical users will love DYNACALC's fifteen-digit 
math and built-in scientific functions. With 6809 
DYNACALC, you can build worksheets as large as 256 
columns or 256 rows (18278 columns or 9999 rows 
in 68000 versions! There's even a built-in sort com- 
mand, so you could use DYNACALC to manage small 
data bases — each row of the worksheet is 
one record. 



3. What will DYNACALC do for me? 

That's a good question Basically the answer is that 
DYNACALC will let your computer do just about 
anything you can imagine. Ask your friends who 
have Lotus 1-2-3, VisiCalc, or similar programs, just 
how useful an electronic spread-sheet program can 
be for all types of household, business, engineering, 
and scientific applications. 



4. Do I have to learn computer programming? 

NO! DYNACALC is designed to be used by non- 
programmers, but even a Ph.D. in Computer Science 
can understand it. Built-in HELP messages are provid- 
ed for quick reference to operating instructions. 



5. Do I have to modify my system to use DYNACALC? 

Nope. DYNACALC uses any standard OS-9 configura- 
tion, so you don't have to spend money on another 
CPU board or waste time learning another operating 
system 



Will DYNACALC read my existing data files? 

You bet 1 DYNACALC has a beautifully simple method 
of reading and writing data files, so you can com- 
municate both ways with other programs on your 
system, such as the Stylo-Craph word processor, 
Sort/Merge, data base systems, or other programs 
written in Basic09, C. PASCAL. FORTRAN, and so on 



7. HOW fast is DYNACALC? 

Very DYNACALC is memory-resident, so there is no 
disk I/O to slow things down The whole data array 
(worksheet) is in memory, so access to any point is 
mstantanious DYNACALC is 100% machine code for 
blistering speed. 



is there a version of DYNACALC for my system? 

There's a version of DYNACALC for EVERY OS-9 
system. Unless you have a CoCo, you need a CRT ter- 
minal with at least 80 characters per line, and direct 
cursor addressing. You can mix different brands of 
terminal on the the same system. The CoCo OS-9 
version is compatible with 80-column hardware 
cards, or will work with the standard 32x16 screen 



9. How much does dynacalc cost? 

Radio Shack sells the CoCo OS-9 version for S99.95 
The general 6809 OS-9 version is priced at S250 
S595 for the 0S-9/68k version Foreign orders add 
$10 per copy for postage. We encourage dealers to 
handle DYNACALC since it's a product that sells in- 
stantly upon demonstration Call or write on your 
company letterhead for more information 



10. Where do I order dynacalc? 

If you have a CoCo, order # 26-3275 at your local 
Radio Shack store. Otherwise, see your local 
DYNACALC dealer, or order directly from CSC at the 
address below. We accept telephone orders from 10 
am to 6 pm, Monday through Friday. Call us at 
314-576-5020. Your VISA or MasterCard is welcome. 
All orders are shipped on 5" diskette unless you 
specify otherwise. Please tell us if you need 
Microware (standard) or Mizar format. 



Computer Systems Center 

42 Four Seasons Center #122 

Chesterfield, MO 63017 USA 

(314) 576-5020 



% 



DYNACALC Reg. u. s. Pat. Off. 

OS-9 and Basic09 are trademarks of Microware & Motorola. 

1-2-3 is a trademark of Lotus Development Corp. 

VisiCalc is a trademark of VisiCorp. 

Stylo-Graph is a trademark of stvlo software, inc. 

Radio Shack is a trademark of Tandy Corp. 
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2130 PRINT "THE HEAD OF THE CURR 

ENT DRIVE TO" ; 

2140 PRINT "TRACK 0. THE RESTORE 

COMMAND" 
2150 PRINT "WANTS THE TRACK SW 
ITCH TURNED" 

2160 PRINT "ON. IF AFTER AN ALLO 
TTED AMOUNT" 

2170 PRINT "OF TIME, THE SWITCH 
DOES NOT, A" 

2180 PRINT "'DRIVE ?' MESSAGE AP 
PEARS. THIS" 

2190 PRINT "OCCURS IF THE DRIVE 
IS NON-" 

2200 PRINT "EXISTENT OR SLOW. PU 
SHING ENTER" 

2210 PRINT "WILL TRY TO RESTORE 
AGAIN, WHILE"; 

22 20 PRINT "ANY OTHER KEY WILL R 
ESTART THE" 
2 2 30 PRINT "PROGRAM." 
2240 GOSUB 3860 

2250 PRINT "ENTERING A '0 TO 3 1 
WILL SELECT" 
22 60 PRINT "THE DRIVE # THAT YOU 

WANT TO" 
2 270 PRINT "WORK WITH. SELECTING 

A DRIVE" 
2 2 80 PRINT "WILL AUTOMATICALLY R 
ESTORE THE" 
2290 PRINT "DRIVE TO TRACK 0, SO 

THAT THE" 
2 300 PRINT "PROGRAM WILL KNOW WH 
ERE THE HEAD"; 

2 310 PRINT "IS ACTUALLY POSTITIO 
NED." 

2 320 GOSUB 3 8 60 

2330 PRINT "THE 'I' COMMAND STEP 
S THE DRIVE" 

2340 PRINT "IN 1 TRACK, (MOVES T 
HE HEAD ONE" 

2 350 PRINT "TRACK TOWARD THE CEN 
TER HOLE OF" 

2 3 60 PRINT "THE DISK). THE '0' C 
OMMAND STEPS"; 

2 3 70 PRINT "THE DRIVE OUT 1 TRAC 
K. BOTH KEYS"; 
2 3 80 PRINT "AUTOMATICALLY REPEAT 

IF HELD" 
2 390 PRINT "DOWN. IF THE MOTORS 
ARE ON" 
2400 PRINT "BEFORE EITHER KEY IS 

HELD DOWN," 
2 410 PRINT "THE DRIVES WILL STEP 

MUCH" 
24 20 PRINT "FASTER SINCE THE PRO 
GRAM DOESN'T"; 
2 4 30 PRINT "HAVE TO WAIT FOR THE 



MOTORS TO" 

2440 PRINT "COME UP TO SPEED BEF 

ORE IT" 

2 450 PRINT "STEPS." : GOSUB 3 8 60 

2 4 60 PRINT "THE 'G' COMMAND WILL 
ii 

2470 PRINT "AUTOMATICALLY STEP T 

HE DRIVE TO" 

2 480 PRINT "THE DESIRED TRACK # 

ENTERED. THE"; 

2 490 PRINT "COMMAND ACTUALLY RES 

TORES THE" 

2500 PRINT "DRIVE TO TRACK 0, TH 

EN STEPS IN" 

2 510 PRINT "ONCE FOR EVERY TRACK 

#. IT WILL" 
2 520 PRINT "LEAVE THE MOTOR ON/0 
FF STATUS" 

2530 PRINT "UNCHANGED." :GOSUB 3 
8 60 
2540 PRINT "THE 'H' COMMAND WILL 

ACTUALLY" 
2 550 PRINT "READ THE DATA FROM T 
HE CURRENT" 

2 560 PRINT "TRACK #, FOR THE SEC 
TOR ENTERED."; 

2570 PRINT "IT WILL DISPLAY THE 
DATA IN HEX-"; 

2580 PRINT "ADECIMAL NOTATION. D 
UE TO THE" 

2590 PRINT "LIMITED SIZE OF THE 
SCREEN, 256" 

2 600 PRINT "BYTES OF DATA (1 SEC 
TOR) , WILL" 

2 610 PRINT "JUST FIT ON THE SCRE 
EN AT ONCE," 

2 620 PRINT "BUT THIS MEANT LEAVI 
NG OUT ALL" 
2 630 PRINT "THE SPACES & ADDRESS 

INFORMATION" ', 
2 640 PRINT "HOWEVER, THERE ARE 1 
6 BYTES OF" 

2 650 PRINT "DATA/LINE. BY COUNTI 
NG LINES," 

2 660 PRINT "YOU CAN TELL WHICH R 
ELATIVE BYTE"; 
2 670 PRINT "# YOU ARE LOOKING AT 



PRACTICAL PLANE GEOMETRY 

9 FIGURES with DEFINITIONS, FORMULAS, AND SOLUTIONS FOR 58 
FIGURE ELEMENTS, MORE THAN 200 FRIENDLY FORMULAS, MENU DRIVEN 
For Architects, Carpenters, Draftsmen, Engineers, Estimators, 
Farmers, Realtors, Students, Surveyors, or similar interests. 



TjRfc 



"PLANEGEO" - A double-sided disk with Definitions, 
Formulas, Solutions, and Manual [screen output). 

"PGCALPRT" - A single-sided disk with Solutions , p A INRQVV 
and Printer Output of your inputs and results. COTTinCATlQn 
The Definitions and Formulas are in the Manual. SEAL 

Programs $25.00 aa. separately or both For $40.00 pp U.S.A. 
Order from TASC - P.O.Box 42625-330 (corrected from prev- 
ious ad), or 10619 Bayou Glen, Houston, TX. 77042. No C.0.0. 
or charge cards. Send your SASE for more information. 



154 



THE RAINBOW April 1986 



II 


2980 PRINT "SHOWN FOR THIS REASO 


2680 GOSUB 3860 


N. ) " 


2 690 PRINT "THE 'A' COMMAND IS S 


2990 PRINT "FOR EXAMPLE, STEP TO 


IMILAR TO" 


TRACK 17, &"; 


2 700 PRINT "THE 'H' COMMAND, & W 


3000 PRINT "READ SECTOR 3 USING 


ILL READ A" 


THE •A'" 


2710 PRINT "SECTOR AND DISPLAY I 


3010 PRINT "COMMAND. THIS IS PAR 


T IN ASCII." 


T OF THE" 


2720 PRINT "UNPRINTABLE CHARS. A 


3020 PRINT "DIRECTORY. IF THE NA 


RE SHOWN AS" 


MES OF THE" 


2730 PRINT "A ■ . ' THE COLUMN ON 


3030 PRINT "FILES STORED ON THE 


THE LEFT" 


DISK DON'T" 


2740 PRINT "SHOWS THE RELATIVE B 


3040 PRINT "APPEAR, THEN THERE I 


YTE # OF THE"; 


S A PROBLEM."; 


2750 PRINT "FIRST CHAR. IN THAT 


3050 GOSUB 3860 


ROW. THE "A 1 "; 


3060 PRINT "THE OBJECT OF THE TR 


2760 PRINT "COMMAND ALSO SHOWS 1 


ACK ADJUST"; 


6 BYTES OF" 


3070 PRINT "IS TO FIND OUT WHERE 


2770 PRINT "DATA/LINE." : GOSUB 3 


THEY DISK" 


8 60 


3080 PRINT "CONTROLLER THINKS TH 


2780 PRINT "caution: DO NOT USE 


E HEAD IS AT"; 


EITHER THE" 


3090 PRINT "VS WHERE IT IS PHYSI 


2790 PRINT "'A 1 OR »H' COMMAND U 


CALLY AT." 


NLESS THE" 


3100 PRINT "UPON STARTUP, DOS DO 


2800 PRINT "DRIVE IS AT LEAST SO 


ES A RESTORE"; 


ME WHAT" 


3110 PRINT "TO GET IT'S REFERENC 


2810 PRINT "ALIGNED, & CAPABLE 


E POINT. NOW"; 


F READING" 


3120 PRINT "BY COUNTING THE # OF 


2 820 PRINT "DATA. THE PROGRAM US 


TRACKS IT" 


ES THE DSKI$"; 


3130 PRINT "STEPS IN OR OUT, IT 


2 830 PRINT "BASIC STATEMENT TO R 


SHOULD KNOW" 


EAD THE" 


3140 PRINT "WHAT TRACK IT IS AT. 


2840 PRINT "SECTOR FROM DISK. TR 


IF THE" 


YING TO READ"; 


3150 PRINT "SWITCH TURNS ON SAY 


2850 PRINT "FROM A DRIVE, UNABLE 


AT TRACK 1 , " 


TO READ" 


3160 PRINT "THE CONTROLLER GETS 


28 60 PRINT "SECTORS, WILL RESULT 


FOOLED &" 


IN AN I/O" 


3170 PRINT "WHEN IT STEPS IN 17 


2870 PRINT "ERROR. BOTH THE 'A' 


TIMES TO" 


& 'H'" 


3180 PRINT "READ THE DIRECTORY, 


2880 PRINT "COMMANDS WERE INCLUD 


IT ACTUALLY" 


ED AS AN AID"; 


3190 PRINT "IS AT TRACK 18. THE 


2890 PRINT "TO THOSE THAT DON'T 


RESULT IS AN"; 


HAVE AN" 


3 200 PRINT "I/O ERROR." : GOSUB 3 


2900 PRINT "OSCILLISCOPE AND/OR 


8 60 


AN ALIGNMENT"; 


3210 PRINT "THE ACTUAL TRACK & S 


2910 PRINT "DISK." : GOSUB 3 860 


ECTOR #'S" 


2920 PRINT "THEY WILL LET YOU VE 


3 220 PRINT "ARE WRITTEN ONTO THE 


RIFY THAT" 


DISK DURING"; 


2930 PRINT "THE HEAD IS ACTUALLY 


3 2 30 PRINT "THE FORMATTING PROCE 


POSITIONED" 


SS. IF THE" 


2940 PRINT "OVER THE SAME TRACK 


3 2 40 PRINT "TRACK NUMBER READ IS 


THAT THE" 


NOT THE" 


2950 PRINT "DISK CONTROLLER THIN 


32 50 PRINT "SAME AS THE ONE IT T 


KS IT'S AT." 


HINKS IT'S" 


2960 PRINT "(TRACK SWITCH ADJU 


3 2 60 PRINT "AT FROM THE TRACK 


STMENT. THE" 


SWITCH, DOS" 


2970 PRINT "TRACK ZERO SWITCH ST 


3270 PRINT "KNOWS SOMETHING IS W 


ATUS IS" 


RONG. " 
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3 280 PRINT "DOS WILL TRY TO REST 


3 580 PRINT "STORED ON THE DISK S 


ORE SEVERAL" 


HOULD APPEAR"; 


3 290 PRINT "TIMES TO PROPERLY PI 


3590 PRINT "ON THE SCREEN. USE A 


CK UP THE" 


WRITE" 


3 300 PRINT "TRACK SWITCH BEFOR 


3 600 PRINT "PROTECTED, STANDARD 


E DECIDING" 


TRDOS FORMAT"; 


3 310 PRINT "TO GENERATE AN I/O E 


3 610 PRINT "FACTORY WRITTEN DISK 


RROR." 


ETTE FOR" 


3320 PRINT "THIS IS THE EXTRA CL 


3 620 PRINT "BOTH THE ALIGNMENT & 


UNKING SOUND" ; 


TRACK 0" 


3 330 PRINT "THAT IS SOMETIMES HE 


3 630 PRINT "TESTS." : GOSUB 3 8 60 


ARD AFTER" 


3 640 PRINT "IF THE DRIVE RESTORE 


3 3 40 PRINT "YOUR SYSTEM IS FIRST 


S & TRYS TO" 


TURNED ON" 


3 650 PRINT "READ AGAIN, & THEN S 


3 3 50 PRINT "WHEN YOU DO A DISK A 


UCEEDS," 


| CCESS."; 


3 660 PRINT "THIS COULD BE AN IND 


3 3 60 GOSUB 38 60 


ICATION OF" 


3 370 PRINT "THE OBJECT OF AN ALI 


3 670 PRINT "AN ALIGNMENT OR DIRT 


GNMENT TEST" 


Y HEAD" 


3 3 80 PRINT "IS TO FIND OUT HOW T 


3 680 PRINT "PROBLEM. IF IT FAILS 


HE HEAD IS" 


ALTOGETHER,"; 


3390 PRINT "FINELY POSITIONED WI 


3 690 PRINT "TRSDOS WILL GENERATE 


THIN THE" 


AN I/O" 


3400 PRINT "TRACK. FACTORY WRITT 


3700 PRINT "ERROR. THIS COULD BE 


EN DISKETTES"; 


A VERY BAD" 


3 410 PRINT "SHOULD HAVE THE TRAC 


3710 PRINT "ALIGNMENT OR BAD TRA 


KS WRITTEN" 


CK ADJUST." 


3420 PRINT "AT FAIRLY CLOSE TO T 


3720 GOSUB 3860 


HE IDEAL" 


3730 PRINT "THE FINAL TEST IS TH 


3 430 PRINT "LOCATION. IF YOUR DR 


E DISK" 


IVE IS OUT" 


3740 PRINT "SPEED TEST. USE THE 


3440 PRINT "OF ALIGNMENT, YOU MA 


1 S ■ COMMAND" 


Y NOT KNOW" 


3 750 PRINT "TO MEASURE IT. THE S 


34 50 PRINT "IT TILL YOU TRY TO R 


PEED SHOULD" 


EAD & WRITE" 


3760 PRINT "BE 300.0 +/" 2 RPM - 


3 4 60 PRINT "A DISKETTE FROM ANOT 


THERE IS AN" 


HER DRIVE, &"; 


3 770 PRINT "ADJUSTMENT POTENTIOM 


3 470 PRINT "FIND I/O ERRORS OR M 


ETER INSIDE" 


ULTIPLE" 


3780 PRINT "THE DRIVE. A MACHINE 


3 480 PRINT "RESTORES WHILE DOS T 


LANGUAGE" 


RYS TO" 


3790 PRINT "PROGRAM MEASURES THE 


3 490 PRINT "PERFORM IT'S OPERATI 


TIME IT" 


ON." 


3800 PRINT "TAKES FOR THE INDEX 


3500 GOSUB 3860 


HOLE IN THE" 


3 510 PRINT "TO CHECK THE TRACK 


3810 PRINT "DISK TO PASS BY, (1 


ALIGNMENT , " 


REVOLUTION) " 


3520 PRINT "USE THE 'G' COMMAND 


3820 PRINT "AND THE PROGRAM DISP 


TO GO TO" 


LAYS THE" 


3530 PRINT "TRACK 17 (THE DIRECT 


3 8 30 PRINT "SPEED CONTINUALLY ON 


ORY) . USE" 


THE SCREEN."; 


3540 PRINT "THE 'A' COMMAND TO R 


3 840 PRINT "HOLD DOWN ANY KEY TO 


EAD SECTOR 3"; 


TERMINATE" 


3550 PRINT "THE DRIVE SHOULD BE 


3 8 50 PRINT "THE TEST & RETURN TO 


ABLE TO READ"; 


THE MENU . " 


3560 PRINT "THE SECTOR with out 


38 60 PRINT @ 480, "HIT ANY KEY T 


moving the" 


CONTINUE"; 


3570 PRINT "head, AND THE NAMES 


3870 IF INKEY$ ="" THEN 3870 


OF THE FILES"; 


38 80 CLS : RETURN 
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DATABASE 



i RAINBOW 

J- "u 



16K ■■ ., 

Disk |i ?AINBOW 



//ere !y a database program that, as the 
author says, "shows the wisdom of the 
'point and press' user environment. " 



Julie ? The Mouse' 



By Stephen P. Clark 



About seven years ago I saw the 
Xerox Star and decided 1 
needed one. Forget about typ- 
ing "coNTROl.-R-shift-*-slash" to get a 
computer to perform some function, 
just roll the little mouse around. With 
a little hand-eye coordination I could 
see that when the mouse moved left, the 
arrow on the screen also moved left. 
Press the button and whatever the 
arrow is pointing to is called to action. 

1 went back to my keyboard and 
typed away with the consolation that I 
couldn't afford a Star. "Control-R- 
escape!" Then Apple brought out the 
Lisa computer, complete with mouse. 1 
couldn't afford that either. Then Apple 
introduced the Macintosh and mouse; 
more affordable, but I already had a 
Radio Shack Color Computer and lots 
of programs 1 had spent months getting 
used to. 

Then I read that Radio Shack had 
introduced a mouse for the Color Com- 
puter. Since I had the computer, all 1 
needed was the mouse. 1 dashed off to 

Stephen P. Clark is a computer special- 
ist at Florida State University. He has 
worked in data processing for 15 years, 
and has a master's degree in computer 
and management information systems 
from American University in Washing- 
ton, D.C. 



the nearest Radio Shack and looked at 
it. It was the right size, had a tail like 
a mouse, and had a button eyeball like 
the Star/ Lisa/ Mac mouse devices. It 
plugged into the joystick plug on the 
back of the computer and had a ball 
underneath that rolled when it moved. 

"I want to see a word processing 
window overlapping a spreadsheet 
window and a graphics window," I said 
to the sales person. 

He pulled out three ROM packs and 
stacked them up on the counter. I 
recognized them since 1 already had two 
of them at home. 

"How do you make the mouse con- 
trol these?" I asked. 

He answered. "Oh, the mouse works 
like a joystick. Anywhere you can use 
a joystick, you can use the mouse." 

Since 1 had a joystick, 1 didn't see the 
need for a "rodent" that did the same 
thing. I left without buying one, but I 
knew what I needed: software! 1 would 
first write a program to use the mouse, 
then buy one. A database seemed a 
natural application for the mouse. Not 
a large system with detailed formatting 
requirements and inquiry procedures, 
but a small one that would allow me to 
store names, addresses, references to 
magazine articles and other miscellane- 
ous items. 



The system would be like an index 
card file in that it would: 1) Have 
unformatted records, 2) Be indexed 
alphabetically, 3) Have no restrictions 
on updating and 4) Be accessed without 
typed commands. The hardware con- 
straints were that it had to run in a 16K. 
Color Computer with one disk drive; 
the software constraints were that it 
should be written in BASIC with no 
special PEEKS or POKEs. The result was 
Julie. 

The Julie Program 

The Julie program requires most of 
the user random-access memory 
(RAM) in a 16K system with one disk 
drive. Part of this RAM is needed to use 
the direct (ramdom access) disk files, 
part is used for string manipulation, and 
most of the rest is filled by the program. 
Having more than 16K will not improve 
performance, so you will not miss 
anything if you only have 16K.. 

To start Julie, do the following: 

1) Turn everything on. 

2) Insert diskette in Drive 0. 

3) Type RUN "JULIE" and press 
ENTER. 

The first thing that happens is the 
screen is blanked (cleared to black 
color) and then filled with green in small 

April 1986 THE RAINBOW 157 



chunks. This is as close to opening 
graphics as possible on a 16K system. 
Once the screen is all green, you will get 
a display that looks like the following: 

FILES: (102K AVAILABLE) 
EXIT 
->OPEN NEW FILE 

This is the Files screen. If there are any 
Julie files on the disk you are using, the 
names will be included in the list. Up to 
12 files can be included on a single 
diskette, a limit set by the number of 
lines on the screen display. 

Using the mouse you can move the 
arrow up or down to make a selection. 
Left and right movement of the mouse 
will not have any effect on the arrow. 
Move the arrow until it points to the 
option or file you want, then press the 
button. Since buttons tend to become 
worn and need to be pressed hard at 
times, 1 added feedback in the program; 
whenever a button press is detected, the 
word "button" appears on the right side 
near the top of the screen. This is true 
throughout the program, so look for it 
if you are having trouble with your 
button. 

The choices lead to the following 
actions. 

Exit: This ends the program and 
returns to the familiar OK prompt. You 
are back in BASIC. 

Open New File: This is the way to 
create a new Julie file. If you point to 
this option and press the button, you 
will be asked for a filename. The name 
can be up to eight characters long, using 
the normal rules for naming files. Do 
not enter an extension since the pro- 
gram will add /JDF. This allows it to 
search the directory and find the files it 
can use. 

Filename: Any Julie (/"JDF) files 
previously created are listed on the Files 
screen. If you point to the name of the 
file and press the button, that file will 
be opened for you. You can then add 
more data, modify existing data or just 
browse through the file. You can do all 
three while the file is open, and without 
changing modes or running another 
program. 

The Open File Screen 

When you open a file, you are pre- 
sented with a screen that looks like this: 

HDD EDIT EXIT INDEX DELETE FILES 
flBC0EFGHIJi<LMN0PQRSTUVUXYZ*-i4OR0 



8 RECORDS IN filename 
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This is the Open File screen. It is the 
basic means of communicating with a 
Julie file. The top "window" is where the 
arrow, under control of the mouse, 
operates. Within this window, the 
arrow can be moved freely up, down, 
right or left. It can be placed over a letter 
and will block the letter from view. As 
soon as you move the mouse (arrow), 
the letter will reappear. 

Use the same technique of pointing to 
something and pressing the button. To 
make a selection, you must place the 
arrow below what you want to select. 
On the top line, "add" through "files," 
you can point to any letter of the word. 
Be careful when selecting "delete." 

Line three of the top window contains 
the letters of the alphabet, a plus sign 
and minus sign and "word." This line is 
used to search the file for entries. 
Pointing to 'E' and pressing the button 
will find any entries beginning with 'E', 

"You could have an 
entire diskette for 
books, say, if your 
book collection is 
extensive. It could 
contain files like 
Fiction, Nonfict, 
Science, Computer 
or whatever 
categories you can 
think of." 

and so on. The plus sign will move to 
the next record, while the minus sign 
will move back one record; you can use 
these to step through the file sequen- 
tially. "Word" is used to search for 
entries containing a particular word or 
group of characters. Select it and you 
will be asked to enter a word to search 
for. 

In all the file search options, you can 
find the next similar record by pressing 
the button again, without moving the 
arrow. If you move the arrow, the 
program starts over. For example, point 
to a letter, then press the button. If a 
record is found, it will be displayed; 
press the button again and the next 
record will be displayed. Continue this 
until all have been displayed. 

The top line of options works as 
follows. 

Add: This is the way new records are 
added to a file. The top selection win- 
dow will be replaced with an instruction 



window for editing a record. The record 
will be entered in the middle window. 
The editor is a full-window editor and 
you can move the cursor anywhere in 
the window and type something. A low 
"beep" will sound as each key is pressed. 

The arrow keys move the cursor in 
four directions, but it will not leave the 
middle window. The ENTER key moves 
you to the next line. When you type 
something, it will be entered at the 
cursor position, and the cursor will 
advance one position. If you want to 
change a letter, put the cursor over it 
and type the new letter. SHlFT-left-arrow 
will delete whatever is under the cursor; 
SHlFT-right-arrow will insert a space; 
the CLEAR key is used to end the pro- 
cess. 

The first letter in the record you enter 
is used to index the record, so plan 
ahead. If you do not start it with a letter, 
an 'X' is inserted. 

Edit: This works exactly like Add, 
except that you start with an existing 
record from the file instead of a blank 
record. To edit, you must first display 
the record, then move the arrow to Edit 
and press the button. Press the CLEAR 
key to restore the record in the file. 

Exit: This is exactly like the Exit on 
the Files screen; it returns you to BASIC. 

Index: This shows you the index of 
all the first letters of all the records in 
the file. Periods are used to denote 
empty records. You can have up to 249 
records in one file, which would fill up 
most of a diskette. 

Delete: Used to delete records from 
a file. First, you must display the record 
by searching for it through the normal 
means, then, while it is on the screen, 
move the arrow to the Delete option 
and press the button. 

Files: This returns you to the Files 
screen so you can open another file, 
start a new file or simply exit. With this 
option it is easy to move back and forth 
among files without stopping and start- 
ing several programs, as is the case with 
some database systems. 

Records, Files and Databases 

A record is the smallest unit of data 
in Julie. It is composed of 249 charac- 
ters and can be in any format. You can 
put any text or numbers you want in a 
Julie record. The main disadvantage to 
the unformatted approach is that indi- 
vidual items are not recognized as being 
distinct. If you are searching for the 
word "Smith," you will also get "Black- 
smith," "Smithsonian," etc. 

A file is a collection of records in 
Julie. They do not have to be related, 



but should be to help you locate things 
in the future. I have a file called "Ad- 
dress" to keep my address book, and 
one called "Articles" to keep references 
to published articles. One called 
"Books" could be used to inventory 
books, and one called "Records" could 
keep your record collection in order. 
The only limit is your imagination. 

A diskette could reasonably be called 
a database. I have limited the system to 



operating on a single diskette, which 
must contain the program and the data 
files. You could have an entire diskette 
for books, say, if your book collection 
is extensive. It could contain files like 
Fiction, Nonficl, Science, Computer or 
whatever categories you can think of. 
The fact that books are in separate files 
does not present a problem, since you 
can go back and forth between files 
easily. 



I have found this program to be 
useful for storing many types of data. 
It is a pleasure to move the cursor 
around the screen with a joystick (I still 
haven't purchased a mouse), and shows 
the wisdom of the "point and press" user 
environment. 

(Any questions about this program 
may be directed to Stephen Clark, 1503 
Childs Street, Tallahasse, FL 32303; 
phone 904-644-4836.) □ 



The listing: JULIE 



1^ 220 ... 


....12 




f 540 .. . 


..129 




680 ... 


1 




2110 .. 


.225 




2800 . . 


....40 




4050 . . 


...86 




6040 . . 


....41 




9020 . . 


....25 




9340 . . 


...146 




END .. 


...184 









10 GO TO 10000 

20 CLEAR 2000: DIM FX$ (12) : ' CONTI 

NUE HERE 

100 'JULIE - AN EXPERIMENTAL LIS 

A WORKALIKE PROGRAM 

105 ' (C) 1983 BY S. P. CLARK 

llj3 GOSUB 9300: 'INITIALIZE 

120 IF PSNOLPSN THEN GOSUB 8000 

: 'PRINT SCREEN 

130 LPSN=PSN:CUR$=CHR$(94) : 'SAVE 

CURSOR POSITION 
140 XC=INT(JOYSTK(0)/2)+l: 'LEFT- 
RIGHT READING 

150 YC=INT(JOYSTK(l)/4)+l: 'UP-DO 
WN READING 

155 IF YC>3 THEN YC=3 
160 PSN=YC*32+XC-1: 'CALCULATE CU 
RSOR POSITION 

170 IF YC=2 THEN CUR$=CHR$ ( 12 6) 
180 PRINT@PSN,CUR$; : 'WRITE CURSO 
R 

190 GOSUB 3000 : ' CHECK BUTTON 
200 IF BUTTON=0 THEN 120: 'REPEAT 

IF NOT PRESSED 
210 LPSN=0: 'RESET CURSOR POSITIO 
N 

220 IF YC=1 AND XC<5 THEN GOSUB 
4000: GO TO 120:' ADD NEW 
225 IF YC=1 AND XC<9 THEN GOSUB 
1500: GO TO 120: 'EDIT 
230 IF YC=1 AND XC<14 THEN CLOSE 
:END: 'END PROGRAM 
233 IF YC=1 AND XC<20 THEN GOSUB 

7000: GO TO 120: 'SHOW INDEX 
23 5 IF YC=1 AND XC<27 THEN GOSUB 

5000: GO TO 120: 'DELETE CURRENT 
RECORD 



IF YC=1 AND XC>27 THEN CLOSE 

TO 100 : ■ START OVER 

AND XC<27 THEN GOSUB 
120: 'SEARCH FOR MATC 



237 
:GO 
240 IF YC=3 

6000: GO TO 
H 
243 IF YC=3 

2800: GO TO 
245 IF YC=3 

2 500: GO TO 



AND XC<29 
120: 'MOVE 
AND XC>28 
120: 'WORD 



THEN GOSUB 
1 RECORD 
THEN GOSUB 
SEARCH 



GO 



TO 120: 'REPEAT 



250 

500 

RECORD INPUT/EDIT 

510 C=l : CUR$=CHR$ ( 159 ) : SR$=CHR$ ( 

93) :SL$=CHR$(21) : PRINT@409 , STRIN 

G$(7,CHR$(12 8) ) ; 

512 IF LEN(WL$)<249 THEN WL$=WL$ 

+STRING$(249-LEN(WL$) ," ») 

515 U$=CHR$(94) :D$=CHR$(10) :L$=C 

HR$(8) :R$=CHR$(9) : CR$=CHR$ ( 13) :C 

S$=CHR$ (12) : 'POSITION CHARACTERS 

520 PRINT@0, "COMMANDS: arrows CO 

NTROL CURSOR, shift R/L = INSERT 

/DELETE CHAR, enter = NEXT LINE, 

clear = END." 
540 IF C<1 OR C>249 THEN C=l 
560 PRINT@160 , WL$ ; : PRINT§159+C, C 
UR$; 
590 A$=INKEY$:IF A$=""THEN 590 E 

SOUND 150,1 

IF A$=U$ THEN C=C-3 2:GO TO 5 



LSE 

600 

40 

610 

40 

620 

9> 
630 

% 

640 



IF 



IF 



IF 



IF 



A$=D$ THEN C=C+3 2:GO TO 5 
A$=L$ THEN C=C-l:GO TO 54 
A$=R$ THEN C=C+l:GO TO 54 



A$=CR$ THEN C=32*INT( (C+3 
l)/32)+l:GO TO 540: 'CARRIAGE RET 
URN 

650 IF A$=SL$ THEN I$=RIGHT$ (WL$ 
,249-C)+" " :MID$ (WL$ , C) =1$ : GO TO 

540 
660 IF A$=CS$ THEN 690: 'CLEAR = 
END 

665 IF A$=SR$ THEN I$=MID$ (WL$ , C 
,249) :MID$(WL$,C)=" "+I$:GO TO 5 
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40 


2 590 RETURN 


670 MID$(WL$,C,l)=A$:C=C+l:GO TO 


2 600 IF NWS=1 THEN SMSG$= " no 


5A0: 'ADD CHARACTER 


more" ELSE SMSG$="not found" 




2 605 WORD$="" 




CTER AND RETURN 


2 610 RETURN 


690 L$=LEFT$(WL$,1) :IF L$<"A" OR 






L$>"Z" THEN MID$(WL$,1,1)="X" 


NEXT RECORD + OR - 


695 RETURN 


2810 IF XC=27 THEN REC=REC+1 


1000 ' 


2820 IF XC=28 THEN REC=REC-1 


FIND NEXT INDEX RECORD MATCH 


2830 IF REC<1 OR REOLOF(1)-1 TH 


1,010 IF REC<0 THEN REC=0 


EN SMSG$=" no more": RETURN 


1020 I=REC+1 


2840 IF MID$(INDX$,REC,1)="."THE 


1030 REC=INSTR(I,INDX$,MATCH$) 


N 2810 


1040 IF REOLOF(1)-1 THEN REC=0 


2845 PRINTS 160, STRING$ (255," ") 


1060 RETURN 


2850 GET#1,REC+1:LINE INPUT #1,W 




L$ 




EDIT RECORD 


2860 RETURN 


1505 IF REC<1 OR REOLOF(1)-1 TH 






EN RETURN 


CHECK BUTTON PUSH 


1510 GOSUB 500: 'EDIT 


3010 BUTTON=0 : ' SET INITIALLY=NO 


1520 GOSUB 2000: 'STORE ON DISK 


3020 TEST=PEEK(65280) : 'READ BUTT 


1530 WL$=STRING$ (249," "):' BLANK 


ON 


IT OUT 


3030 IF TEST=255 OR TEST=127 THE 


1540 RETURN 


N RETURN: 'NO PRESS 

3040 BUTTON=l: 'SET FOR YES 




PUT RECORD IN SLOT "REC" 


3045 PRINT@54," button " ; 


2010 IF REC<1 OR REOLOF(l) THEN 
2100 


3050 GO TO 3020: 'REPEAT UNTIL UP 




2015 GET#1,1 


ADD A RECORD FROM INPUT 


2020 PRINT #1,WL$ 


4005 REC=0: 'INITIALIZE SEARCH 


2030 PUT #1,REC+1 


4010 MATCH$="." 


2050 MID$(INDX$,REC,1)=WL$ 


4020 GOSUB 1000: 'FIND EMPTY SLOT 


2080 PRINT #1,INDX$ 


4030 IF REC<1 THEN REC=LOF(l) 


2090 PUT #1,1 


4040 IF RE0248 THEN WL$="*** TH 


2100 REC=0 


IS FILE IS FULL ***":RETURN 


2110 RETURN 


4045 IF FREE(0)<5 THEN WL$="*** 




THIS DISK IS FULL ***": RETURN 


WORD SEARCH ROUTINE 


4050 WL$=STRING$(249," ") 


2510 IF WORD$<>"" THEN 2520 


4060 GOSUB 500: 'INPUT RECORD 


2512 PRINT§160,STRING$(255," "): 


4080 GOSUB 2000 : ' PUT RECORD TO D 


PRINT@ 160, "ENTER THE WORD TO SEA 


ISK 


RCH FOR " 


4085 WL$=STRING$(2 55," ") 


2514 LINE INPUT "?" ;WORD$ : REC=0 : 
NWS=0:SMSG$=" "+LEFT$ (WORD$, 8) 


4090 RETURN 




2516 IF LEN(SMSG$)<10 THEN SMSG$ 


DELETE A RECORD 


=SMSG$+STRING$ ( ( 10-LEN (SMSG$) ) , " 


5010 IF REC<1 OR REOLOF(1)-1 TH 


") 


EN 5050 


2520 REC=REC+1:PRINT@160,STRING$ 


5020 WL$=" ..." 


(255," ") 


5030 GOSUB 2000:REC=0 


2530 IF REOLOF(1)-1 THEN WORD$= 


5040 SMSG$=" delete" 


"":GO TO 2600 


5045 SOUND 100,5 


2540 IF MID$(INDX$ / REC,1)="." TH 


5047 WL$=STRING$(255," ") 


EN 2520 

2550 GET #1,REC+1 


5050 RETURN 




2560 LINE INPUT #1,WL$ 


SEARCH FOR MATCHING RECORD 


2570 IF INSTR(1,WL$,WORD$)=0 THE 


6005 MATCH$=CHR$(XC+64) 


N WL$="":GO TO 2520 


6007 SMSG$="not f ound" : IF REC >0 


2580 NWS=1 


AND LMATCH$ - MATCH$ THEN SMSG$ 



160 
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="no more " 


9130 WL$="":CLS 


6010 IF LMATCH$="" THEN REC=0 


9140 RETURN 


6015 LMATCH$=MATCH$ 






6020 GOSUB 1000: 'FIND MATCHING R 


SELECT FILE 


ECORD 


9310 NF=0:FX$(1)="ZZ " : CLS0 


6030 IF REC=0 THEN WL$=STRING$ (2 


:FX$(0)="exit": PRINT " "; 


55," ») :PRINT@54,SMSG$; 


9320 FOR 1=3 TO 11:DSKI$ 0,17,1, 


6040 IF REC>j3 THEN GET#1,REC+1 : L 


L$ , R$ : L$=L$+LEFT$ (R$ , 127 ) 


INE INPUT #1,WL$:SMSG$=" 


9330 FOR J=0 TO 7:CP=J*32 


ii 


93 35 PRINT " " ; 


6045 PRINT@160,STRING$(255," ") 


9340 IF MID$(L$,CP+9,3)<>"JDF" T 


6050 RETURN 


HEN 9440 

9350 T=ASC(MID$(L$,CP+1,1) ) : IF T 




SHOW THE INDEX 


=0 OR T=255 THEN 9440 


7010 WL$=INDX$ 


9360 R$=MID$(L$,CP+1,8) 


7p2j3 REC=0 


9370 'INSERT IN SORT ORDER 


7030 SMSG$=" index" 


9 3 80 FOR K=l TO NF 


7040 RETURN 


9390 IF R$<FX$(K)THEN 9410 
9400 NEXT K 




PRINT A SCREEN 


9410 FOR L=NF TO K STEP -1:FX$(L 


8010 PRINT@0,L1$; 


+1)=FX$(L) :NEXT L 


8015 IF LPSN>0 THEN SMSG$=" 


9420 NF=NF+1:FX$(K)=R$ 


" : WORD$=" » : LMATCH$=" " 


9430 IF NF>11 THEN 9452 


8p2j3 PRINT@32,STRING$(23," »);SM 


9 4 40 NEXT J 


SG$; 


9 450 NEXT I 


8030 PRINTS 64, L3$; 


9452 L$="open"+CHR$(128)+ M new"+C 


8040 PRINT @ 96, BLNK$; 


HR$(128)+"file" 


8050 PRINT@128,STRING$(32,CHR$(1 


9455 CLS:IF NF<12 THEN NF=NF+1:F 


28)); 


X$(NF)=L$ 


8060 PRINT@160,WL$ 


9460 PRINT@0," FILES: ( " ; INT 


8070 PRINT@416,STRING$(32,CHR$(1 


(FREE(0)*2304/1000) ;"K AVAILABLE 


28)) ; 


)" 


8080 PRINT@448,BLNK$; 


9490 FOR 1=0 TO NF 


8085 PRINT@480,LOF(1)-1;" RECORD 


9500 PRINT " ";FX$(I) 


S IN " ;NAME$; 


9510 NEXT I 


8090 RETURN 


9515 IF NF>9 THEN PRINT@448 , "*** 

LIMIT 12 FILES PER DISK ***»; 
9520 LPSN=0 


SET UP WINDOWS 


9010 WORD$="":LMATCH$="" 


9522 XC=JOYSTK(0) :NI=INT(JOYSTK( 


9020 CLS3:PRINT§167, "OPENING ";N 


l)/4) :PSN=(NI+l)*32+4 


AME$; 


9523 IF PSN>420 THEN PSN=420 


9030 L1$="ADD EDIT EXIT INDEX DE 


9524 PRINT@LPSN," " ; : PRINT@PSN, 


LETE FILES" 


"->"; :LPSN=PSN 


9040 L3$="ABCDEFGHIJKLMNOPQRSTUV 


9526 GOSUB 3000: 'CHECK BUTTON 


WXYZ+-WORD" 


9528 IF BUTTON=0 THEN 9522 


9050 BLNK$=STRING$(32," ") 


9530 IF NK0 OR NI>NF THEN PRINT 


9060 LPSN=0 


@54," ";:GO TO 9522 


9070 PSN=1 


9535 NAME$=FX$(NI) 


9080 CUR$=CHR$(94) 


9540 IF NAME$=L$ THEN PRINT@492, 


9085 NL=LEN(NAME$) : IF NL>8 THEN 


STRING$ ( 8 , CHR$ (128)); "/ JDF" ; : PRI 


NL=8 


NT@480,"FILE NAME :";: INPUT NAME$ 


9090 L$=LEFT$(NAME$,NL)+"/JDF" 


9545 IF NAME$="exit" THEN CLOSE: 


9100 OPEN "D",#1,L$,256 


PRINT@448,""; :END: 'EXIT 


9105 IF L0F(1)<1 THEN INDX$=STRI 


9547 IF LEN(NAME$)>8 THEN NAME$= 


NG$ ( 249 , " . " ) : REC=0 : WL$=INDX$ : PRI 


LEFT$(NAME$,8) 


NT #1,INDX$:PUT #1,1 


9550 GOSUB 9000 


9110 GET #1,1 


95 60 RETURN 


9120 LINE INPUT #1,INDX$ 


10000 PCLEARl:FILES3:GO TO 20 
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Hire the CoCo 
Handiman 



By Leonard Hyre 



U 



s 



o, what do you do now that 
all the aliens are dead and you 
don't want to process any 
words?" 

If you have a computer, then you 
know the person whose words I'm 
quoting. He or she just doesn't see how 
a computer could be of any use to them. 
Well, you might just load up CoCo- 
Handiman and give him a demonstra- 
tion. 

Actually, CoCo- Handiman can be 
your helper around the house. If you 
want to do some paneling, painting, 
wallpapering, or if you wish to carpet 
a room, pour a concrete patio, or even 
tile a bath or ceiling, then this program 
is for you. Whatever the job, just choose 
from the menu and answer prompts on 
the screen. A printed "job estimate" is 
optional after each calculation. This is 
very handy for comparing the final cost 
of a project using various price ranges 
for construction, or for determining 
how much material will be needed for 
a particular job. 

Leonard Hyre is the author of Federal 
Hill Software 's Handicapper series and 
a number of articles for rainbow: He 
also published several articles in rain- 
bow's sister publication. SOFT SECTOR, 
for Sanyo computers, and is the author 
q/'Sanyopoly. a new Sanyo game front 
Michigan Software. 
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No instructions for use are necessary, 
.lust make a couple of dry runs for each 
menu selection and you'll be an expert. 



i> 

Program Structure 

Eight separate subroutines make up 
the bulk of CoCo-Handiman. These 
consist of a title screen, six different 
calculation routines and a printer out- 
put. Each can easily be followed 
through without difficulty. 

Title Screen: Lines 1145-1165 are 
used to display the title and author's 
name (ego stroke). Alternately poking 
359 with 57 and 126 causes the text on 
the screen to flash between black on 
green and red on orange. After a few 
seconds the program jumps to the menu 
screen (lines 30-90). Of interest to the 
novice might be the use of the INSTR 
command in Line 85. This is a powerful 
CoCo command, not available on many 
machines costing much more. 

Paneling and Painting: Lines 95-160 
are shared by Paneling and Painting 
equally. The necessary measurements 
are obtained here. Paneling continues 
from Line 1 65 through 2 1 and painting 
is completed from 215 through 305. 

Wallpaper: This subroutine occupies 
ines 310-405, first obtaining needed 
measurements and wallpaper data from 
the user before offering an estimate of 
rolls needed and total cost. 



Carpeting and Tiles: These two menu 
choices ('4' and '6') share the same basic 
calculation, with special requirements 
for each being differentiated by the 
original menu selection string, ANS(4 
or 6)! (lines 415-570). Also, a room 
outline is on-screen to show the user 
some of the terminology to be encoun- 
tered. The room is drawn by printing 
CHR$(12B) as needed. Lines 580-620 
complete the carpeting routine. Tiles 
are finished up with lines 825 through 
915. 

Concrete: Lines 655-820 handle the 
concrete chores. This one required a bit 
more detailed drawing as an example so 
the PMDDE 1 screen is called up for a 
drawing of a concrete pour (optional to 
user). 

Print Routine: Lines 920-1125 pro- 
vide printer owners with optional job 
estimates. I must now make a confes- 
sion. My friend Mike Himowitz is the 
creator of the print routine. Wow, I'm 
glad to get that off my mind ! I think you 
will agree he has done a super job here. 



Final Comment 

I believe you will find CoCo- 
Handiman a useful addition to your 
CoCo software library. It's not the type 
of program you will use every day, 
rather one that will be used as any other 
tool — when the need arises. 

In case you are intimidated by the 
length of the program, I will be happy 
to send you a copy on tape for $4.50 to 
cover the cost. Just send the S4.50 along 
with your request to: Leonard Hyre, 
P.O. Box 403, Cambridge, MD 
21613. □ 



Sample Printouts 



********************************************************************** 
********************************************************************** 

COCO-HANDIMAN 
JOB ESTIMATE 

********************************************************************** 
********************************************************************** 



CARPETING CALCULATION: LIVING ROOM 

MAIN AREA 50 BY 30 FEET 
COST PER SQ/YDS 3.00 

YOU WILL NEED 166 SQUARE YARDS 
TOTAL COST: S 498.00 

********************************************************************** 
********************************************************************** 

COCO-HANDIMAN 

JOB ESTIMATE 

********************************************************************** 
********************************************************************** 

CONCRETE ESTIMATE 
*****MAIN AREA***** 

WIDTH 100 FEET INCHES 
LENGTH 120 FEET INCHES 
DEPTH 10 FEET INCHES 

TOTAL CUB-IC YARDS REQUIRED: %4444.44 

********************************************************************** 
********************************************************************** 

COCO-HANDIMAN 
JOB ESTIMATE 

********************************************************************** 
********************************************************************** 



FLOOR TILE CALCULATIONS: MASTER BEDROOM 

MAIN AREA 30 BY 40 INCHES 
USING 9 INCH TILES, 
YOU KILL NEED 21 TILES 



>^^* TR -7 7 — M . 7V-U . TV—ff, . MM- fX .T.TTD— fX . rYD-M 


^ 


1/75 202 475 .... 


.71 890.... 


.250 


1 : NF=0 : GN=0 : CG=0 : CP=0 : NW=0 : SB=0 : T 




135 86 550 .... 


.233 965 .... 


.175 


W=0 : HW=0 : NZ=0 : ND=0 : CR=0 : WM=0 : LM= 




220 94 610 .... 

285 95 695 


..73 1000 ... 
.132 1055 .. . 


96 
.148 


: AW=0 : AL=0 : BW=0 : BL=0 : CW=0 : CL=0 : 




350 216 760 .... 


..96 1085 ... 


.125 


CX=0 : WX=p : YD=)3 : WF=0 : WI=p : LF=,0 : LI 




430 23 815 .... 


..24 END... 


190 


=0:HF=j3:HI=j3 

40 AW=0:AK=0:AL=0:AI=0:AH=0:AJ=0 


















: TW=0 : TX=0 : TL=0 : TY=0 : TH=0 : TZ=0 : W 


The listing: HflNDIMflN 




TL=0 : LTL=0 : OQ=0 


5 REMCOCO HANDIMAN 




45 PRINTTAB ( 11 ) ;"1. PANELING" 


10 REM32K COCO 




50 PRINTTAB ( 11 );" 2. PAINTING" 


15 REM(C)1986 L.HYRE CAMBRIDGE M 55 PRINTTAB (11) ; "3 .WALLPAPER" 


D 




60 PRINTTAB ( 11 );" 4. CARPETING" 


20 CLS 




65 PRINTTAB (11) ; "5 . CONCRETE" : PRI 


25 GOSUB 1145 




NTTAB(ll) ;" 6. TILES" 


30 CLS:GOSUB64 5:PRINTSTRING$ 


66, 70 SOUND125, 1: PRINT: PRINTTAB (8 ) ; 


246)" C O C O ** H . 


A N D I M 


A N "YOUR CHOICE?": SOUND125 . 1: PRINT 


";STRING$(66,246) ; 


: PRINTSTRING$ STRING$ (32 , 142) ; 


(11,255) ;" THE MENU 


";STRING$(11 75 AN$=INKEY$ 


,255) ; 




80 IF AN$=""THEN 75 
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85 ON INSTR("123456 ll ,AN$)GOTO 95 

,95,310,415,655,415 

90 GOTO 75 

9 5 CLS : GOSUB625 : PRINT@0 , STRING$ ( 

32 , 204 ) : PRINT : PRINT "MEASURESMENT 

S " : PRINTSTRING$ (16,131): PRINT 

"HT OF WALL (FT/IN.) ": INPUT" FT. " 

;HA$:GOSUB625:INPUT"IN" ;HB$:GOSU 

B625 

100 PRINT"WIDTH A (FT/IN) ": LINEI 

NPUT"FT?";WF$:GOSUB625:LINEINPUT 

"IN?";WI$:GOSUB625:INPUT"NO.OF W 

ALLS THIS SIZE";AZ:GOSUB635:PRIN 

T"WIDTH B (FT/IN) " : LINEINPUT"FT? 

";WG$:GOSUB625:LINEINPUT"IN?";WJ 

$:GOSUB625:INPUT"NO.OF WALLS THI 

S SIZE" ;AX:GOSUB635 

105 CLS:PRINTSTRING$(3 2,204) : PRI 

NT : PRINT "MEASUREMENTS " : PRINTS 

TRING$(16,131) 

110 INPUT"NO.OF REGULAR WINDOWS" 

;WN:GOSUB 625 

115 INPUT"NO.OF PICTURE WINDOWS" 

;WP:GOSUB625:OQ=WP 

120 INPUT"NO.OF DOORS ";DR:GOSUB 

625 

125 ZZ=VAL(HA$) *12+VAL(HB$) 

130 ZY=VAL(WF$)*12+VAL(WI$) 

135 ZX=VAL(WG$)*12+VAL(WJ$) 

140 WA=WN*1152:WP=WN*2306:DA=DR* 

1980:RE=WA+WP+DA 

145 PCLS:GOSUB645 

150 GA=(ZZ*ZY)*AZ+(ZZ*ZX)*AX:GA= 

GA-RE 

155 NF=INT(GA/144) :NI=GA-(NF*144 

) 

160 IFAN$="1"THEN 165 ELSEIF A 

N$="2"THEN 215 ELSEIF AN$="3"THE 

N310 

165 PRINTSTRING$ (32,".") ; : PRINT" 

WHAT ROOM ARE WE WORKING WITH? 
170 LINEINPUT RM$:IF RIGHT$(RM$, 
4)<>"ROOM" THEN RM$=RM$+" ROOM": 
GOSUB625 
175 NP=NF/32 

180 CLS:GOSUB645: PRINT@0 , STRING 
$(64,200) ;: PRINT" PANEL CA 
LCULATIONS " : PRINTSTRING$ (32, 200 ) 
185 PRINT" FOR YOU TO DO THE": PR 
INT" ";RM$: PRINT" YOU WILL NEED 
APPROXIMATLEY":PRINTUSING" ###.#" 

;NP: PRINT" SHEETS OF PANEL" 

190 PRINTSTRING$(32,200) 

195 PRINT"PRINT THIS (Y/N)"; 

200 LQ$=INKEY$:IFLQ$=""THEN200 

205 IF LQ$="Y"THEN GOSUB940 

210 GOTO 30 

215 CLS:PRINTSTRING$(33,208) ; : PR 

INT" PAINTING CALCULATIONS 



";STRING$ (33,208) ; 
220 PRINT "WHAT ROOM ARE WE WORKI 
NG WITH? " ; STRING$ (33,128);: LINE 
INPUT RM$:IF RIGHT$(RM$,4)<>" RO 
OM"THEN RM$=RM$+" ROOM" : GOSUB625 
225 PRINT" COST OF PAINT/GALLON?$ 
";:LINEINPUT CG$:GOSUB625 
230 PRINT "HOW MANY COATS WILL Y 
OU APPLY? ";: LINEINPUT NC$:GOSUB 
625 

235 PRINT"HOW MANY SQ . FT/ GAL" : PR 
INT"DOES MFG.RECOMEND?":LINEINP 
UT FG$:GOSUB62 5 

240 PRINT"WILL YOU BE DOING THE 
CEILING? (Y/N) " : GOSUB625 
245 A$=INKEY$:IFA$=""THEN 245 
250 IFA$=<>"Y"THEN 2 60 
255 NF=( (ZY*ZX)/144)+NF 

2 60 CLS:GOSUB645 

265 CLS:PRINTSTRING$(3 3,201) ; : PR 
INT" PAINTING CALCULATIONS 

" ;STRING$(33,201) ; 
270 PRINT: PRINT "TO PAINT THE ";: 
PRINTRM$: PRINT "YOU WILL NEED ":G 
N=NF/VAL(FG$) *VAL(NC$) :PRINTUSIN 
G"###. #" ;GN; : PRINT" GALLONS. " 
275 PRINT: PRINT "THE APPROXIMATE 
COST WILL BE" 
280 CG=VAL(CG$) :CP=GN*CG 
285 PRINTUSING"$###.##";CP 
290 PRINT "PRINT THIS <Y/N>?" 
295 OG$=INKEY$:IFOG$=""THEN295 
300 IFOG$="Y"THEN GOSUB965 
305 GOTO 30 
310 CLS:PRINTSTRING$(3 3,202) ;" 

WALLPAPER CALCULATION ";ST 
RING$(33,202) 

315 INPUT"WHAT ROOM ARE WE WORKI 
NG WITH ";RM$:IF RIGHT$ (RM$ , 4) <> 
"ROOM"THEN RM$=RM$+" ROOM":GOSUB 
625 

320 PRINT"MEASURE & RAISE RESUL 
T TO THE NEXT WHOLE FOOT! 
325 PRINT"NOTE: WE WILL BE USIN 
G STANDARD3 6 SQ.FT. ROLL FOR CAL 
CULATIONS WITH 6 SQ.FT FOR PATTE 
RN MATCH. 

3 30 PRINT"ON OCCASION YOU MAY FI 
ND DOUBLE LENGTH ROLLS OF 72 SQ. 
FT." 

33 5 INPUT"WILL YOU BE USING THE' 

SINGLE' SIZE <Y/N>";SS$:PCLS 

340 CLS:PRINTSTRING$(32,"*") "*** 

* *WALLPAPER MEASUREMENTS *****" ST 

RING$(32,"*") ; : INPUT"WIDTH WALL 

A";WA$:INPUT"NO.WALLS THIS SIZE" 

;NW 

345 INPUT"WIDTH WALL B";WB$:INPU 

T"NO. WALLS THIS SIZE"; SB 
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350 TW=VAL(WA$)*NW+VAL(WB$)*SB 

355 INPUT"HEIGHT OF WALLS "; HW : IN 

PUT"NO . OF WINDOWS" ;NZ : INPUT"NO . O 

F DOORS" ;ND 

360 RO=(TW*HW)/30-(INT(NZ)/2+ND) 

•fit IV SS$="N"THEN RO=RO/2:RO=INT 

(RO) 

365 INPUT"COST PER ROLL";CR 

370 CLS:PRINTSTRING$(34,159) " 

WALLPAPERING ";STRIN 

G$(34,159) ;"FOR WALLPAPERING THE 
" : PRINTRM$ 

375 PRINT"YOU NEED " ; INT (RO) ; " R 
OLLS" 

380 PRINT: PRINT" YOUR COST OF PAP 
ER IS "; 

385 PRINTUSING"$###.##";CR*RO:PR 
INT 

3 90 PRINT"PRINT THIS? <Y/N>" 
395 OG$=INKEY$:IFOG$=""THEN395 
400 IF OG$="Y"THEN GOSUB 990 
405 GOTO 30 

415 CLS:GOSUB645: PRINT STRING$(3 
2,200);: IF AN$="4"THENPRINT" 

** CARPETING A ROOM ** ";EL 
SEIFAN$="6"THENPRINT" ***T 
ILING A ROOM*** " ; 
420 PRINTSTRING$(32,131) ; 
425 PRINT"TERMS TO UNDERSTAND:": 
PRINTTAB(5)"1-MAIN ROOM AREA" : PR 
INTTAB ( 5 ) " 2 -CUT OUTS " : PRINTTAB ( 5 
)"3-ADD ONS" 

430 PRINT§228,STRING$(24,128) :FO 
RDW=260TO420STEP32 : PRINT@DW, CHR$ 
(128) :NEXTDW:FORDW=283T0379STEP3 
2:PRINT@DW,CHR$(128) :NEXTDW 
435 PRINT@380,STRING$(2,128) : PRI 
NT@443,STRING$(3,128) :FORDW=382T 
0446STEP32:PRINT@DW,CHR$(128) :NE 
XTDW 

440 PRINT@420,STRING$(27,128) : PR 
INT§2 63,STRING$(3,128) ; 
445 PRINT@266,"<-3 " ; : PRINT§333 , 
"<-l->" ; : PRINT@406 , "2->" ; 
450 PRINT@490, "press any key"; 
455 CT$=INKEY$:IFCT$=""THEN 455 
460 CLS:PRINTSTRING$(33,179) ; "WH 
ICH ROOM ARE WE WORKING WITH"; ST 
RING$(33,179) ;:INPUTRM$:IF RIGHT 
$(RM$,4) <>"ROOM"THEN RM$=RM$+" R 
OOM" 

465 IF AN$="4"THENPRINTSTRING$(3 
8,255) "MEASURING FOR CARPET" ;STR 
ING$ (38,255) ; :ELSEIFAN$="6"THENP 
RINTSTRING$ (38,255) "MEASURING FO 
R TILES ";STRING$(38,255) ; 
47 IF AN$="4"THENPRINT"USE NEAR 
EST FOOT FOR MEASUREMENT" ;: ELSE 
IF AN$="6"THEN PRINT"PLEASE ENTE 



R TOTAL NUMBER INCHES"; 

475 PRINTSTRING$ (32, 195) ;: INPUT 

"WIDTH MAIN AREA";WM:GOSUB625:IN 

PUT "LENGTH MAIN AREA" ;LM: GOSUB 6 

25 

480 CLS:PRINTSTRING$(3 2,195) : PRI 

NT"ADD-ON Areas (Y/N) ":GOSUB625 

485 A1$=INKEY$:IFA1$=""THEN 485 

490 IF A1$="Y"THEN INPUT"WIDTH 

"; AW: INPUT "LENGTH ";AL 

495 IF A1$<>"Y"THEN 520 

500 PRINT"OK. ANY MORE? (Y/N)":G 

OSUB 635 

505 A2$=INKEY$:IFA2$=""THEN 505 

510 IF A2$="Y" THEN PRINT "I ONLY 

HAVE PROVISIONFOR 1 MORE AREA." 
:PRINT"SO ADD TOGETHER" : PRINT"AL 
L OTHER ADD ON ■ S" : F0RX=1T04 : PLAY 
"V31T150O4ACEGO5ACEG" :NEXTX 
515 IF A2$="Y"THEN INPUT"WIDTH 
";BW:GOSUB625: INPUT" LENGTH ";BL: 
GOSUB625 

520 IF AN$="4"THEN JQ$="FOOT" 
525 IF AN$="6"THEN JQ$="INCH" 
530 PRINTSTRING$(32,131) ; "NOW FO 
R ' CUT-OUTS ' " : PRINT "REMEMBER TO 
MEASURE TO NEAREST ";JQ$ 
535 PRINT"ARE THERE ANY?-":GOSUB 

635 
540 A3$=INKEY$:IFA3$=""THEN 540 
545 IF A3$<>"Y"THEN 570 
550 IF A3$="Y"THEN PRINT"WIDTH " 
; : INPUT CW: GOSUB625 : INPUT" LENGTH 

";CL:GOSUB625 
555 PRINT"ANY MORE 'CUT-OUTS 1 ?": 
F0RX=1T05 : PLAY"V3 1O5T150AGAGAG" : 
NEXTX 

560 A4$=INKEY$:IFA4$=""THEN 560 
565 IF A4$="Y"THEN INPUT"WIDTH " 
; CX : INPUT " LENGTH " ; WX 
570 IF AN$="6" THEN 825 
575 PRINTSTRING$ (32 , 131) : PRINT"C 
OST PER SQ. YARD":INPUTYC:GOSUB6 
25 

580 CLS:GOSUB645:PRINT@0,STRING$ 
(32,142) : PRINT "CARPETING CALCULA 
TION" : PRINTSTRING$ ( 32 , 142 ) 
585 PRINT"YOU WILL NEED APPROX. " 

• 

590 CC=(WM*LM)+(AW*AL)+(BW*BL)-( 

CW*CL)-(CX*WX) :YD=CC/9 

595 PRINT INT (YD) ;"SQ. YDS": PRINT 

"OF CARPET." 

600 PRINTSTRING$(3 2,142) :PRINT"Y 

OUR COST WILL BE ABOUT. ..": CS=YC 

*INT(YD) :PRINTUSING"$#,###.##";C 

S:PRINT"FOR THE ";RM$ 

605 PRINTSTRING$(32,131) ; "PRINT 

THIS? <Y/N>" : PRINTSTRING$ (32 , 131 
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) 

610 OG$=INKEY$:IFOG$=""THEN 610 

615 IF OG$="Y"THEN GOSUB1015 

620 GOTO30 

625 PLAY"T100V31O5AGA" 

630 RETURN 

635 PLAY"T100V31O1GGGGG" 

64j3 RETURN 

645 PLAY"T100V31O5ACGACG" 

650 RETURN 

655 CLS 

660 PRINTSTRING$(38,148)"CONCRET 

E VOL.MEASURE";STRING$(38,148) 

665 PRINT "FOR CONCRETE MEASUREME 

NT YOU CANFIRST OBTAIN THE HEIGH 

T, WIDTH AND DEPTH OF THE MAJOR 

PART OF THE PROJECT. THEN WE 
CAN 'ADD- ON' THE OTHER AREAS AS 
REQUIRED OR 'TAKE-OFF'." 

670 FORTI=1TO500 : NEXT :SOUND12 5,1 

: PRINT: PRINT "DO YOU WISH TO SEE 
AN EXAMPLE ";:INPUT" <Y/N>" ;AN$ 

:IF AN$="Y"THEN 675 ELSE 700 

675 PMODE1,1:PCLS:FORTI=1TO590:N 
EXT:SCREEN1,0 

680 LINE(0,0)-(255,181) ,PSET,B:D 
RAW"BM60,110;C3;R120G30L120E30D2 
0G30U20BD20R120U20BD20E30U20BD20 
L120BR120BG15U20R30G15L30BD20R30 
U20BD20E15U20BD20L30 

685 LINE(0,40)-(255,40) ,PSET 

690 DRAW"BM12,142;C4;D20R8E2U18H 

2L8BR4BU9D5BD30D5" : DRAWBM206 , 13 
0;C4;D16F4E4U16BD16F4E4U16BH3E8B 

G30BF3G8 

695 DRAW"BM110,80;C4;D20R12BR3BU 

10BR8L8BL20L8":FORTI=1TO1600:NEX 

T 

700 CLS:SOUND166,l:SOUND13 5,l 

705 CLS:PRINTSTRING$(3 3,148) ;" 

CONCRETE MEASUREMENT ";ST 

RING$(33,148) 

710 PRINT" ENTER ALL MEASUREMENTS 
AS 'FEET 'AND THEN REMAINING AS 

' INCHES ' . " 

715 INPUT"WIDTH FT. " ;WF: INPUT "WI 

DTH + IN.";WI 

720 INPUT "LENGTH FT . " ; LF : INPUT" L 

ENTH + IN."; LI 

725 INPUT"HEIGHT(OR DEPTH) FT."; 

HF: INPUT "HEIGHT + IN.";HI 

730 MSQ=((WF*12)+WI)*((LF*12)+LI 

)*( (HF*12)+HI) 

735 CLS:PRINTSTRING$(33,148) ;" 
CONCRETE MEASUREMENT ";ST 

RING$(33,148) :INPUT"ANY ADD-ON A 

REAS (Y/N)";AO$ 

740 IF AO$="Y"THEN 785 ELSE 745 

745 INPUT "ANY TAKE-OFF AREA'S (Y 



/N)";TU$ 

750 IF TU$="Y"THEN 805 ELSE 755 

755 VCU=MSQ/46656 

760 CLS:PRINTSTRING$(32,148) ;"TO 

COMPLETE PROJECT YOU WILL USEAP 
PROXIMATLEY" ; : PRINTUSING"### . #" ; 
VCU;:PRINT" CU.YDS OF" : PRINT"CON 
CRETE . " 

765 PRINT:PRINTSTRING$(32,131) ;" 
PRINT THIS? <Y/N>":PRINTSTRING$( 
32,131) 

770 A$=INKEY$:IFA$=""THEN 770 
775 IF A$="Y"THEN GOSUB 1060 
780 GOTO 30 
785 CLS:PRINTSTRING$(3 3,148) ;" 

CONCRETE MEASUREMENT ";ST 
RING$ ( 3 3 , 148 ) : GOSUB1135 : INPUT"WI 
DTH FT.";AW:INPUT"WIDTH IN.";AK: 
INPUT"LENGTH FT. " ;AL: INPUT"LENGT 
H IN.";AI:INPUT"HEIGHT FT."; AH: I 
NPUT"HEIGHT IN.";AJ 
790 ACU=((AW*12)+AK)*((AL*12)+AI 
)*((AH*12)+AJ) 
795 MSQ=MSQ+ACU 
800 GOT0745 
805 CLS:PRINTSTRING$(33,148) ;" 

CONCRETE MEASUREMENT ";ST 
RING$ ( 33 , 148) : GOSUB1140 : INPUT"WI 
DTH FT.";TW:INPUT"WIDTH IN.";TX: 
INPUT " LENGTH FT . " ; TL : INPUT " LENGT 
H IN.";TY:INPUT"HEIGHT FT.";TH:I 
NPUT"HEIGHT IN.";TZ 
810 TCU=( (TW*12)+TX)*( (TL*12)+TY 
)*((TH*12)+TZ) 
815 MSQ=MSQ-TCU 
820 GOTO 755 
825 CLS:PRINTSTRING$(67,198) ;" 

TILE CALCULATIONS "; STRING 
$(67,198) ; 
830 PRINTSTRING$(32,131)"ARE YOU 

USING 9 OR 12 INCH TILES (9 or 1 
2)" 

83 5 INPUT TL$ 

840 IF TL$="9"OR TL$="12"THEN 84 
5 ELSE 835 
845 TL=VAL(TL$) 

850 GOSUB885:W4=INT(CW/TL) :L4=IN 
T(CL/TL) :W5=INT(CX/TL) :L5=INT(WX 
/TL) 

855 TN=(W1*L1) :IF A1$="Y" THEN T 
N=TN+(W2*L2) :IF A2$="Y"THEN TN=T 
N+(W3*L3) 

860 IF A3$="Y" THEN TN=TN-(W4*L4 
):IF A4$="Y"THEN TN=TN- (W5*L5) 
865 PRINTSTRING$(32,198) :PRINT"Y 
OU WILL NEED ": PRINT INT(TN)+1;" 

TILES 
870 PRINTSTRING$(32,131) ;: PRINT" 
PRINT THIS? (Y/N)" 
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875 A$=INKEY$:IFA$=""THEN 875 
880 IF A$="Y" THEN 1085ELSEGOTO 

885 IF WM/TLOINT (WM/TL) THEN Wl= 

INT(WM/TL)+1 ELSE W1=WM/TL 

890 IF LM/TL<>INT(LM/TL)THEN Ll= 

INT(LM/TL)+1 ELSE L1=WM/TL 

895 IF AW/TL<>INT(AW/TL)THEN W2= 

INT(AW/TL)+1 ELSE W2=AW/TL 

900 IF AL/TL<>INT(AL/TL)THEN L2= 

INT (AL/TL) +1ELSE L2=AL/TL 

905 IF BW/TL<>INT(BW/TL)THEN W3= 

INT(BW/TL)+1 ELSE W3=BW/TL 

910 IF BL/TL<>INT(BL/TL)THEN L3= 

INT(BL/TL)+1 ELSE L3=BL/TL 

915 RETURN 

920 PRINT#-2,STRING$(5,13) : PRINT 

#-2,TAB(5)STRING$(70,"*") :PRINT# 

-2 , TAB ( 5 ) STRING$ ( 70 , " * " ) : PRINT* - 

2:PRINT#-2,TAB(33) "COCO-HANDIMAN 

" : PRINT#-2 : PRINT#-2 , TAB (33) "JOB 

ESTIMATE" 
925 PRINT#-2:F0R ZV=1 TO 2 : PRINT 
#-2 , TAB ( 5 ) STRING$ ( 70 , " * " ) : NEXT 
930 PRINT#-2:PRINT#-2: RETURN 
935 'REM PANEL PRINT 
940 GOSUB 920 
945 PRINT# -2, TAB (20) "PANELING CA 



LCULATION: "+RM$:PRINT#-2 

950 GOSUB 1115 

955 PRINT#-2, TAB (20) "TOTAL SHEET 

S NEEDED: ";:PRINT#-2,USING"###. 

#";NP 

960 RETURN 

965 GOSUB 920:PRINT#-2,TAB(20)"P 

AINTING CALCULATIONS: "RM$: PRINT 

#-2 

970 GOSUB 1115 

975 print#-2,tab(20)"cost of pai 
nt: "+"$"+cg$+" per gallon" : prin 
t#-2, tab (20) "applying "+nc$+" co 
ats": if a$="y" then co$="ceiling 

included" else co$=" ceiling not 

included" 
980 print#-2,tab(20)co$:print#-2 
, tab (20) "spread rate: "fg$" sq. 
ft pe gallon" :print#-2:print#-2, 
tab(20)"you will need ";:print#- 
2,using"###.#";gn;:print#-2," ga 
llons " : print#-2 , tab ( 20 ) "approxim 
ate cost: ";: print #-2, using "$## 
##.##" ;cp 

985 RETURN 

990 GOSUB920:PRINT#-2,TAB(20) "WA 
LLPAPER CALCULATION: "+RM$: PRINT 
#-2: IF SS$="Y" THEN S1$="SINGLE 



Submitting Material 
To Rainbow 

Contributions to THE RAINBOW are welcome from every- 
one. We like to run a variety of programs that are useful/ 
helpful/fun for other CoCo owners. 

Program submissions must be on tape or disk and it is 
best to make several saves, at least one of them in ASCII 
format. We're sorry, but we do not have time to key in 
programs. All programs should be supported by some edi- 
torial commentary explaining how the program works. 
Generally, we're much more interested in how your sub- 
mission works and runs than how you developed it. Pro- 
grams should be learning experiences. 

We do pay for submissions, based on a number of criteria. 
Those wishing remuneration should so state when making 
submissions. 

For the benefit of those who wish more detailed infor- 
mation on making submissions, please send a self- 
addressed, stamped envelope (SASE) to: Submissions 
Editor, THE RAINBOW, The Falsoft Building, P.O. Box 385, 
Prospect, KY 40059. We will send you some more compre- 
hensive guidelines. 

Please do not submit programs or articles currently sub- 
mitted to another publication. 



Co Co - Cooler Too 




^ 



• Brings operating 
temperature to 
ambient, 
regard- 
less of 
acces- 
sory load 

• Redu- 
ces tem- 
perature 
of ENTIRE computer . . . 
not just the SAM chip 

• Easy 1-minute installation 

• $44.95 



Companion Keyboard Cover $9.95 



Send For Free Catalog Of CoCo Software & Computerware 
• For Fastest Service Send Money Order Or Certified Check 
• Add $2.50 Shipping For Continental U.S. 
• Add $4.00 Shipping For: AK. HI. APOs. P.O. Boxes. & Canada 
• Add SI5.00 Shipping For Overseas 
• Add S3.00 For 220-250 Volt Model 
• California Residents Add 6'A% Sales Tax 
• Add $3.00 For C.O.D. 



REM Industries, Inc. 

9420 "B"LurUneAve., Chatsworth, CA 9131 1 

(818) 341-3719 
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SIZE ROLL" ELSE IF SS$="N" THEN 

Sl$=" DOUBLE SIZE ROLLS" 

995 PRINT#-2,TAB(20)Sl$:PRINT#-2 

, TAB (20) "WALL HEIGHT: "HW" FEET": 

PRINT#-2,TAB(20)NW"WALLS "VAL(WA 

$)" FEET LONG" :PRINT#-2, TAB ( 20 )S 

B"WALLS "VAL(WB$)" FEET LONG" 

IjSfSfS PRINT*-2,TAB(20)NZ "WINDOWS 

":PRINT#-2,TAB(20)ND " DOORS " : PRI 

NT#-2, TAB (20) "COST PER ROLL: " ; : 

PRINT* -2,USING"$###.*#";CR: PRINT 

#-2 

1005 PRINT* -2, TAB (20) "YOU WILL N 

EED "INT(RO)" ROLLS": PRINT* -2, TA 

B(20)"YOUR COST: " ; : PRINT#-2 ,USI 

NG"$###.##";CR*RO:PRINT#-2,STRIN 

G$(5,13) 

1010 RETURN 

1015 GOSUB920:PRINT#-2,TAB(20) "C 

ARPETING CALCULATION: "+RM$ 

1020 PRINT* -2: PRINT* -2, TAB (20) "M 

AIN AREA "WM" BY "LM" FEET" 

1025 IF A1$<>"Y" THEN 1035 

1030 PRINT#-2,TAB(20) "ONE ADD-ON 

"AW" BY "AL" FEET": IF A2$="Y" T 
HEN PRINT#-2, TAB (20) "OTHER ADD-0 
NS "BW" BY "BL" FEET" 
1035 IF A3$<>"Y" THEN 1045 
1040 PRINT#-2,TAB(20) "ONE CUTOUT 

"CW" BY "CL" FEET": IF A4$="Y" T 
HEN PRINT* -2, TAB (20) "OTHER CUTOU 
TS "CX" BY "WX" FEET" 
1045 PRINT#-2,TAB(20) "COST PER S 
Q/YD";:PRINT#-2,USING"$###.##";Y 
C 

1050 PRINT#-2:PRINT#-2,TAB(20)"Y 
OU WILL NEED"INT(YD) " SQUARE YAR 
DS":PRINT#-2,TAB(20) "TOTAL COST: 

«;:PRINT#-2,USING"$#,*##.#*";CS 
: PRINT#-2 , STRING$ (5,13) 
1055 RETURN 

1060 GOSUB920:PRINT#-2,TAB(20) "C 
ONCRETE ESTIMATE" : PRINT#-2 : PRINT 
#-2,TAB(20)"*****MAIN AREA*****" 
:PRINT#-2:PRINT#-2, TAB (20) "WIDTH 
"WF" FEET"WI" INCHES" :PRINT#-2,T 
AB ( 20 )" LENGTH "LF" FEET "LI" INCHE 
S":PRINT#-2,TAB(20)"DEPTH"HF" FE 
ET"HI" INCHES" :PRINT#-2 
1065 IF AO$="Y" THENPRINT*-2,TAB 
(20)"*****ADD-ONS*****":PRINT#-2 
: PRINT#-2 , TAB ( 20 ) "WIDTH"AW" FEET 
"AK" INCHES":PRINT#-2,TAB(20) "LE 
NGTH"AL" FEET"AI" INCHES" : PRINT# 
-2, TAB (20) "DEPTH" AH" FEET"AJ" IN 
CHES":PRINT#-2 

1070 IF TU$="Y" THEN PRINT#-2,TA 
B(20) »******CUTOUTS*****":PRINT# 
-2:PRINT#-2,TAB(20) "WIDTH"TW" FE 



ET"TX" INCHES": PRINT #-2, TAB (20)" 

LENGTH"TL" FEET"TY" INCHES" : PRIN 

T#-2,TAB(20) "DEPTH"TH" FEET"TZ" 

INCHES" :PRINT#-2 

1075 PRINT#-2, TAB (20) "TOTAL CUBI 

C YARDS REQUIRED: " ; : PRINT#-2 ,US 

ING"###.##";VCU 

1080 GOTO 7 60 

1085 GOSUB920:PRINT#-2,TAB(20) "F 

LOOR TILE CALCULATIONS: "+RM$:PR 

INT#-2 

1090 PRINT* -2, TAB (20) "MAIN AREA 

»WM"BY "WINCHES" 

1095 IF A1$="Y" THEN PRINT#-2,TA 

B(20)"ONE ADD-ON"AW" BY"AL" INCH 

ES" : IF A2 $=" Y"THENPRINT#-2 , TAB ( 2 

0) "OTHER ADD-ONS"BW" BY"BL" INCH 

ES" 

1100 IF A3$="Y" THENPRINT#-2,TAB 

(20) "ONE CUTOUT"CW" BY "CL" INCH 

ES":IF A4$="Y" THEN PRINT#-2,TAB 

(20) "OTHER CUTOUTS"CX" BY"WX" IN 

CHES" 

1105 PRINT#-2,TAB(20) "USING"TL" 

INCH TILES , " : PRINT#-2 , TAB ( 20) " YO 

U WILL NEED"INT(TN)+1" TILES": PR 

INT#-2 , STRING$ (5 , 13 ) 

1110 INPUT"HIT <ENTER> FOR MENU" 

;PE:GOTO 30 

1115 PRINT* -2, TAB (20) "WALL HEIGH 

T: "+HA$+" FEET "+HB$+" INCHES": 

PRINT#-2,TAB(20)AZ; : PRINT* -2," W 

ALLS "+WF$+" FEET "+WI$+" INCHES 

":PRINT*-2,TAB(20)AX;:PRINT#-2," 

WALLS "+WG$+" FEET "+WJ$+" INCH 
ES" 
1120 PRINT#-2,TAB(20)WN" REGULAR 

WINDOWS" : PRINT#-2 , TAB ( 20 ) OQ" PI 
CTURE WINDOWS " : PRINT*-2 , TAB ( 20 ) D 
R" DOORS" 

1125 PRINT#-2: RETURN 
1130 PCLS: PRINT "GOOD LUCK!": END 
1135 PRINT" ADD-ONS": PRINT: RETURN 
1140 PRINT "CUTOUTS": PRINT: RETURN 
1145 CLS0:FORS=10TO53:SET(S,7,4) 
: SET (S, 14, 3) :NEXT 

1150 FORS=7T014:SET(9,S,8) :SET(5 
4 , S , 8 ) : NEXT 

1155 PRINT@133," COCO-HANDIMA 
N ";:PRINT@165,STRING$(2 2,25 
5) ;:PRINT@197," BY LEONARD HYR 
E "; 

1160 F0RTI=1T07:P0KE359, 57: SCREE 
N0 , 1 : PLAY"V2 1T5505EDC" : POKE3 59 , 1 
2 6 : SCREEN0 , : PLAY"V2 1T5503EDC" : N 
EXT TI 

1165 FOR TI=1TO600:NEXT:PRINT@48 
6,"<C> 1986 CAMBRIDGE MD" ; : FORTI 
=1TO600: NEXT -.RETURN /^ 
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Pure Seduction, Raw Power, Ultimate Elegance ! 

That's CoCo Max II. Go for It I 

You can't lose with this unmatched offer: 

A full 6 month complete money back guarantee. We will even pay the return 
postage! You don't risk a penny. Call Toll Free 

You'll use it all the time and love using it 

Look at what thousands of people are doing with CoCo Max: 

Note: all the pictures below are unretouched screen photos or printouts (Epson RX-80). 
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Publish a newsletter or 
bulletin; generate flyers. 

J£S KI CoCo «ax CoCo flax 

coco m.„ CoC< > """ CoCo "ox. 

coco «« coco m« CoCo Max 
EfiolffiB CoCo /%x 

CoCo Ulax 
CoCo max 

CoCo max 
CoCo max 

CoCo Max 

CoCo Max (SetiM mfcix 

Over 200 typestyles to 
choose from ! 

Printer Drivers Included with CoCo 
Max II 

Epson MX, RX. FX and LX actios. Gemini. Slaf. 
Mlcronu. Dolla 1 0. 1 ox. 1 5. 1 5X. SG-l 0. Okldala 82A. 
92. 93. C lion Pro-writer. Aopto Image-writer, HP 
Thlnkiet. Radio Shack DMP 1 00. 1 05, 1 1 0, 1 20. 200, 
4O0. 500, Lino POntor 7. Line Printer a. TRP-100, 
CGP-220. (DMP-1 30 U80 Line Printer 8). PMC. Gorilla 
Banana. 
COW printing: CGP-200, CGP-1 1 5 
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Fun for children, (from 
age 3!) while stimulating 
creativity. 



A new way to express 
your imagination. 



For more information on 
CoCo Max, turn the pago. 
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Business graphs, charts, 
diagrams. Also memos, 
presentions, and report 
covers. 
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TIME! 
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Junior's homework and 
science projects. Term 



papers too! 



Design work, such as 
schematics, floor plans, 



Otblfal 

COCO MAX 
Coco Max II 

Logos, letterheads, and 
other graphic art work 
including light typeset- 
ting. 



This is a cartoon. 

Upgrade: CoCo Max tape lo CoCo Max 

II disk S24.95 

Y-Cable: Special Price $19.95 

Super Picture Disks # 1 , #2, and #3 

each: $14.95 
The DS-69 Digitizer 
New Low Price $99.95 



CoCo Max on tape S69.95 

with HhP.05 Pack and manual 

CoCo Max II (on disk only) $79.95 

with Ht-Res Pack and manual 

Upgrade: CoCo Max to CoCo Max 
II S19.95 

New features ol CoCo Mai II: 14 fonts, dynamic 
shrink and stretch, rotate, multiple drive capability. 
66 page scrapbook, point and click rile load, color 
printer drivers, lull error reporting. New disk and 
manual. 



79-04 Jamaica Avenue, 
[CQLORWARE Woodhaven, NY 11421 

(718) 296-5916 



Toll Fioo Order Line 

800-221-0916 

Order* Only. NY * Into: 

call (718) 208-30(8 
Hours: 0-5 Eastern Time 




Add $3.00 per order lor shipping. 
We accept Visa. MC, checks, M.O. 
COD. add S3.00 extra. 
NY. residents add sales tax. 
Shipping lo Canada is S5.00 
O/erseas, FPO. APO add 10% 




This is one of those rare 
programs that will captivate 
everyone in your family.... 
No one can see CoCo Max 
and not want to try it! 




We are all witnessing an exciting revolu- 
tion in microcomputers: a radically new 
kind of computer and software that 
opens a whole new world of creative 
power to computer users. 

It was inevitable that this exciting ap- 
proach would be brought to the CoCo. 
With this in mind, Colorware chose to 
go all out and maximize this new con- 
cept for the color computer. That meant 
designing not just software but hardware 
too. It meant thousands of hours of pure 
machine language programming. Rarely 
has this much effort been applied to one 
product for the Color Computer. 






UNMATCHED CAPABILITY... 

Because we took the maximum approach: 
highly optimized machine code combin- 
ed with hardware, CoCo Max truly 
stands above the rest as the ultimate 
creative tool for the Color Computer. It's 
unrivaled performance lets you create 
with more brilliance and more speed 
than any similar system - much more 
than you ever imagined possible. And, 
you can do it in black & white or color. 




All the sophisticated power of the bigger 
systems is there: Icons, Pull-Down Menus, 
full Graphic Editing, Font Styles, and all 
kinds of handy tools and shortcuts. 

Plug your joystick, mouse or touch pad 
into CoCo Max's Hi-Res Input Unit. Then 
use a delightfully simple Point-and-Click 
method to get any of CoCo Max's power- 
ful graphic tools. It has them all: 



You can Brush, Spray or Fill with am Col- 
or, Shading or Pattern. Use Rubber Band 
Lines and Shapes (square, rectangle, cir- 
cle, elipse, etc.) to create perfect illustra- 
tions with speed and ease. There's a Pen- 
cil, an Eraser and even a selection of 
Caligraphy Brushes. And, as you can see, 
CoCo Max can do a lot with text. 
All of the newest special effects are 
there: Trace Edges, Flip, Invert, Brush Mir- 
rors, etc. And all ot the very latest super- 
capabilities like: Undo, which 
automatically reverses vour mistakes, and 
Fat Bits which zooms you way in on any 
part of your subject to allow dot-tor-dot 
precision. 




THE BIG PICTURE 

The large image box in the middle of the 
CoCo Max screen is actually only a win- 
dow on an even larger image. Use fhe 
Point-and Click "Hand" to effortlessly 
move your window over any portion of 
the larger image. You have a working 
area of up to 3-5$ times the area of the 
window itself. 



FLEXIBLE PRINTING... 

CoCo Max gives you many ways to print. 
Fill a whole page with your image or 
condense two full CoCo screens to less 
than V> page for a finely detailed copy. 
"Dump" your CoCo Max screen full size 
or shrink it to Va page size. 



FREEDOM TO CREATE... 

Anyone who wants to create anything at 
all on their CoCo screen or printer will 
certainly be very glad to meet CoCo 
Max. CoCo Max's friendly yet 
sophisticated graphic and text 
capabilities let you almost instantly pro- 
duce illustrations, diagrams, charts, 




graphs, and computer art - tor serious 
use or just lor creative tun. 




tion by using software schemes such as 
sliding windows. Although clever, these 
schemes yield sluggish and awkward 
results, Only CoCo Max does it the right 
way. The CoCo Max Hi-Res Input Unit 
plugs into your ROM slot and adds an 
entirely new joystick input to your com- 
puter - a precision one with a 49,152 
point resolution to match the CoCo 
screen exactly. 
Plug your same joystick, mouse or touch 



You may then use CoCo Max's graphic 
magic on it. The DS-69 is available as an 
option from Colorware from $149.95 
complete with its own software on disk 
or tape. Using the DS-69 with a disk re- 
quires an RS multi-pak adaptor. 




COCO MAX REQUIREMENTS 

The CoCo Max System includes the Hi- 
Res Input Unit, software on disk or 
cassette (please specify) and user manual. 
It will work on any 64K Extended or non- 




AN ABSOLUTE GUARANTEE 

CoCo Max is a hardware /'software svstem 
thai no software-only system can 
match, Get CoCo Max and see your 
CoCo perform as it never could before. 
If you don't agree that CoCo Max is the 
ultimate creative tool for the Color Com- 
puter, simply return it within 20 davs for 
a lull, courteous refund from Colorware. 

THE HARDWARE... 

This is the key to CoCo Max's unmatch- 
ed performance. Did you know the nor- 
mal joystick input built into the Color 
Computer only allows access lo 4,096 (64 
\ 64) points on theCoCo screen? Yel, the 
Color Computer's high resolution screen 




has 49,152 (256 x 192) pixels. This means 
that a joystick, mouse or even a touch 
pad can, at best, only access about one 
tenth oi the pixels on the CoCo screen. 

Most graphic programs ignore this hard- 
ware limitation of the Color Compuler 
and give you only low-res control. 
Others attempt to overcome the limita- 



pad into this new input and you have a 
whole new kind of control. The dif- 
ference is remarkable. 




A DIGITIZER OPTION... 

We studied all the video digitizers 
available and picked the best of them to 
link with CoCo Max. The DS-69 from 
Micro Works was our choice. This op- 
tional device lets you capture Ihe image 
from any video source (video recorder, 
camera, etc.) on your Color Computer. 




extended Color Computer, You'll need a 
Radio Shack or equivalent joystick, 
mouse or touch pad. Disk systems re- 
quire a Multi-Slot Interface or Y- 
Branching Cable. 

THE COMPLETE COCO MAX SYSTEM, 
with software on DISK 569.95 

with software on CASSETTE (Available 
Mar '85) S69.95 

Y-BRANCHING CABLEAi you have a disk 
system but do not have a Multi-Slot In- 
terface, use this economical 40-pin, 1 
male, 2 female cable to connect the 
CoCo Max Hi-Res input unit and your 

disk controller to your CoCo $27.95 

Sorry, COCO MAX is not compatible with JDOS 



[COLORWARE 



Colorware Inc. 
78-03 F Jamaica Ave. 
Woodhaven, NY 11421 
(718) 647-2864 



VISA 



ORDERING INFORMATION 

ADD $1.00 P» ORDIR FOR SHIPPING AND HANnilNG. 
C.O.D.'S ADD SJ.00 C XTRA. 

SHIPPING AND HANDIINC FOR CANADA IS SS.OO 
We ACCIPT VISA. MASTtR CARD. M.O/S. CHICKS. 
V.l. RCSIDFNTS MUSI ADD SALFS TAX. 



Why do more CoCo owners 

choose 'REAL TALKER'? 



Sure it's priced right, but there's more... 



Thousands of 'Real Talker' owners know 'Real Talker' beats ALL 
other Coco voice synthesizers in ease of use and flexibility. And, 
NO other Coco talker has a clearer, more intelligible voice. 
That's quite a lot of advantage when you consider Real Talker's 
unbeatable price. Yet, Real Talker has some important features 
that you simply will not find in other Coco talkers: 



'SAY' command - You'll have your 
computer talking brilliantly in just 
minutes thanks to this powerful 
new command. Type SAY 
"ANYTHING YOU WANT" and 
your words are instantly spoken. 
It's that simple. Think how easy 
this makes creating speaking Basic 
programs. Adding speech to your 
existing programs is a snap too. 

'CONVERT'- This is a truly power- 
ful command lor the basic pro- 
gramed CONVERT automatically 
transforms a machine language 
dependent speaking program into 
a stand-alone Basic program. In 
other words, you can effortlessly 
write speaking Basic programs that 
do not require a machine language 
translator in memory. This is a uni- 
que feature of 'Real Talker'. No 
other voice synthesizer gives you 
anything even remotely ap- 
proaching this type of capability - 
even synthesizers costing con- 
siderably more. 




'Real Talker' is compatible with any 16K, 32K, 64K Extended or 
non-extended Color Computer. It works with any cassette or 
disk system and comes complete and ready to talk through your 
T.V. or monitor speaker. Price includes the 'Real Talker' elec- 
tronic voice synthesizer in a ROM pack, software on cassette 
(may be transferred to disk), and user manual. 



NOW INCLUDED WITH 
'REAL TALKER'. 

/. 'DR. TALK-This interactive "Eliza" 
type psychoanalyst program will 
discuss your innermost problems 
at length. 

2. TALKING BATTLESHIP'-Ws you 

vs. the computer in this speaking 
version of the classic game. 

3. TALKING BLACKJACK'- Play for 
big stakes against a rather talkative 
casino dealer. 






\ 



ONLY 



'Real Talker' is a full-featured electronic voice syn- 
thesizer unit built into a compact cartridge case. You 
simply plug it into the side of your computer. 



$5995 



Other features include software controlled pitch, unlimited 
vocabulary text-to-speech, and even a program that will recite 
any ASCII file (such as from Telewriter-64 & other word pro- 
cessors). You also get Colorware's unique full-screen phoneme 
editor program that let's you experiment with and modify speech 
at it's most fundimental level. 



■REAL TALKER-V (for the original Color Computer) $59.95 

'REAL TALKER-2' (for the Color Computer-2) $64.95 

'Y ■ BRANCHING CABLE' For disk systems. If you have a disk 
system but do not have a Radio Shack Multi-Slot unit, this 
economical cable will allow to connect and use your 
Real Talker and Disk system together 27.95 



TALK 




If you have a 'Real Talker', do not deprive yourself 
of this absolutely incredible machine-language 
Talking Head simulation program. While other 
talking head simulations use a minimal cartoon- 
like face, TALKHEAD uses high resolution, full- 
screen, digitized images of an actual person's face 
to create a life-like animated effect. 




SOFTWARE FOR THE 'REAL TALKER' 

TALKHEAD can be easily commanded in Basic to 
appear on screen and say anything you want. 
Available on cassette or disk for only $19.95, 
TALKHEAD requires 64K and a Colorware 'Real 
Talker'. 

ONLY*19.95 

ACTUAL UNRETOUCHED PHOTO 



[COLORWARE 



COLORWARE INC. 
78-03 F Jamaica Ave. 
Woodhaven, NY 11421 
(718) 647-2864 



VISA 


' 
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• • • ORDERING INFORMATION *** 

ADD S3.00 PER ORDER FOR SHIPPINC AND HANDLING. 
CO.D.'S ADD $3.00 EXTRA. 

SHIPPINC AND HANDLING FOR CANADA IS $5.00 
WE ACCEPT VISA. MASTER CARD. M.O.'S. CHECKS. 
N.Y. RESIDENTS MUST ADD SALES TAX. 
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We have compiled a list of 
Color Computer Clubs be- 
cause of the many requests 
we have received. CoCo Clubs may 
wish to exchange newsletters, share 
ideas for topics of discussion at 
monthly meetings, etc. 

Please let us know if we have 
omitted any clubs and send us com- 
plete up-to-date addresses. Only 
those clubs that have signed our 
"agreement form" will appear in this 
listing of CoCo Clubs. Also, please 
notify us if you wish to add or delete 
any names on this list. Send your 
information to: 

CoCo Clubs 

THE RAINBOW 

The Falsoft Building 

P.O. Box 385 

Prospect, KY 40059 



ALABAMA 

Birmingham Alabama Color Computer Club. Ro- 
bert Matthews, 3529 Laurel View Lane, Bir- 
mingham, 35216. (205) 933-0887 

Huntsville Color-80 Users Group, Jerry Crawford, 
15001 Glory Dr.. Huntsville. 35803, (205) 881- 
9698 

ALASKA 

Alaska Color Computer Users' Group. Rick McDan- 

nel, 430C Beluga Ave.. Ft. Richardson. 99505, 

(907) 428-0392 
ARIZONA 
Huachuca Hot Pokers, James Standley, 235-A 

Jeffords Street (NBU-96H), Ft. Huachuca, 

85613, (602) 458-8338 

Tucson Color Computer Club, Marshall R. Madole, 
3721 S. Le Beaux Place, Tucson, 85730 

ARKANSAS 

N.W. Arkansas Color Computer Club, Rebecca 
Cravens. P.O. Box 131 , Bentonville. 7271 2, (501 ) 
631-1807 

Central Arkansas CoCo Club, Melinda Braslovsky. 
1203 Erving Rdg.. LP Cabot, 72023, (501) 982- 
8854 

CALIFORNIA 

California Computer Federation, (Sacramento 
Chapter), Mike Faulkin, 828 San Tomas Drive, 
David, 95616 

California Computer Federation, (San Fernando 
Valley Chapter), Jim Sutemeier. 9565 Reseda 
Blvd.. #324, Northridge. 91324, (818) 993-5217 

California Computer Federation, (San Francisco 
Chapter), Dick Stanich, P.O. Box 7007, Red- 
wood City, 94063. (415) 366-4560, BBS (415) 
364-2658 

Color America Users Group, Mark Randall. 2227 
Canyon Rd., Arcadia, 91006, (213) 355-6111 

Los Angeles-Wilshire Color Computer Users' 
Group, Norm Wolfe, P.O. Box 11151, Beverly 
Hills, 90213 



The Davis CoCoNuts. Adam Sherman. 1818 
Haussler Dr.. Davis, 95616, (916) 758-3195 

Sacramento Color Computer Club, Wayne Chri- 
sope, P.O. Box 9, Elverta. 95626 

North American CoCo - Orange County, Eric 
Wilson, 8405 Sweetwater Circle, Huntington 
Beach, 92646, BBS (714) 847-2268 

Joe Bennett, 1169 Florida Street. Imperial Beach, 
92023, (474-6213) 

CoCoholics and Tandy Computer Club, Kenneth M. 
Denny. 801 W. Roseburg Ave., Suite 200. Mo- 
desto, 95350. (209) 523-5176 

Ventura County Color Computer Club (VC4), John 
Bascue. Oxnard Public Library, 214 "C" Street, 
Oxnard, 93030, (805) 987-4752 or DATA (805) 
484-5491 

Sacramento CoCo Club, Charles Doughty, Box 
60511, Sacramento, 95860 

Salinas Color Computer Club, Larry Livingston, 501 
Monterey Highway, Salinas, 93908, (408) 484- 
9697 

Citrus Color Computer Club, Joseph Kohn, P.O. 
Box 6991, San Bernadino, 92412, (714) 792-8721 

The MC-10 Newsletter Club. Jose J. Bray, 4730 
Cass Street. San Diego. 92109. (619) 483-8744 

Local Color— A CoCo Club of San Francisco, 
Andrew G. Kieval, P.O. Box 421242, San Fran- 
cisco, 94142 

San Joaquin CoCo Club, Steven Paul Moreno, P.O. 
Box 99024, Stockton, 95209, (209) 951-3938 

Silicon Valley Color Computer Club, Shawn Jipp, 

P.O. Box 61593. Sunnyvale, 94088. (408) 749- 

1947 
CoCo Nutz Computer Club, Walter V. Seay, 68-461 

Highway 86, Thermal, 92274, (619) 397-4252 
Conejo Color Computer Users Group, Robert S. 

Rimmer, 472 Sundance Street, Thousand Oaks, 

91360, (805) 492-4972 
South Bay Color Computer Club. Karen Schlotz- 

hauer, 23113 Dana Ave., Torrance, 90501. (213) 

539-2539 



COLORADO 

Lowry Microcomputer Club/CoCo Users' Group, 

Jerry D. Surritte. 2249 Moline St., Aurora, 80010, 

(303) 343-3273 
The ESCO Computer Club, David E. Schulz, 1299 

Harrison Street, Denver, 80206, (303) 388-6988 
Colorado Color Computer Club, Joe Applegate, 

P.O. Box 33492, Northglenn, 80233, (303) 650- 

9768 
FLORIDA 
Northwest Florida CoCo Nuts, William N. Lamb, 

P.O. Box 1032. Fort Walton Beach. 32549, (904) 

244-5281 

Alachua County CoCo Special Interest Group, 

Chris Meyers, P.O. Box 14927, Gainesville. 

32604, (904) 378-9598 
Jacksonville Color Computer Club, William H. 

Brown III, 2411 Hirsch Ave., Jacksonville, 3221 6, 

(904) 721-0282 
CoCo Chips Color Computer Club, 6 Belle Mead 

Circle, Largo, 33540, (813) 581-7779 
Broward County Color Computer Club, Timothy D. 

Neary, 51 S.W. 64th Ave. , Margate. 33068. (305) 

972-4074 

South Brevard Color Computer Club, Benjamin S. 

Jerome, 496 Hillside Court, Melbourne, 32935. 

(305) 259-4609 
The Naples CoCo Club, Matt Tari, 3320 7th Avenue 

S.W., Naples, 33964, (813) 455-4830 

Color-6809 Users Group. Emery Mandel, 4301 11th 
Avenue North, St. Petersburg, 33713, (813) 323- 
3570 

CO Club of Sarasota, Ernie Bontrager, 4047 Bee 
Ridge Rd., Sarasota, 33582. (813)921-7510 

Broward CoCo Club, Sue Spahn. 11950 N.W. 29th 
Manor, Sunrise. 33582. (305) 741-4737 

IDAHO 

CoCo Questers, Scott Bellman, 2420 Salem Court. 
Bettendorf, 52722, (319) 359-7702 



CoCo-AG Farm Computer Users Group, Kelly 

Klass, Rt.1, Box 4133, Twin Falls, 83301, (208) 

733-4251 
ILLINOIS 
Town & Country CoCo, 5461 S. Kenwood, Chicago, 

(312)493-3748 
Cook County Color Computer Club, Tim Powers, 

1633 Fifth Ave., Chicago Heights. 60411, (312) 

747-7062 

Peoria Color Computer Club, Harold E. Brazee, 102 

Twin Oaks Court. East Peoria. 61611. (309) 694- 

4703 
Illinois Color Computer Club of Elgin, Steven 

Stroud, 1098 Florimond Dr.. Elgin, 60120, (312) 

695-3186 

Glenside Color Computer Club, Ed Hathaway, 8 W. 
Stevenson Drive, Glendale Heights, 60139, (312) 
462-0694 

Kitchen Table Color Computer Group, Robert Mills, 

P.O. Box 464, Hanover, 61041, (815) 591-3377 
Northern Illinois Color Computer Club. 580 Milton 

Lane. Hoffman Estates, 60194, (312) 885-2573 
Motorola Microcomputer Club, Steve Adler, 1301 

Algonquin Rd., Schaumburg. 60196, (312) 576- 

3044 

Chicago OS-9 Users Group, 480 Gilbert Drive, 

Wood Dale, 60191. (312) 860-2580 
INDIANA 
Evansville Color Computer Users Group, Dave 

Jenkins, 1418 E. Illinois Street, Evansville, 

47711. (812)424-0099 
Three Rivers Users Group, George Barber. 2410 

New Haven Ave., Fort Wayne, 46815 
Indy Color Computer Club, Mike Davis, P.O. Box 

68702, Indianapolis, 46268, (317) 257-3300 
Southern Indiana Computer Club, Route 1 , Box 459. 

Mitchell, 47446 
CoCo Program, Erik Merz, 310 Appletree Dr., 

Noblesville, 46060, (317) 842-1340 
IOWA 
Metro Area Color Computer Club, K.L. Knudtzon. 

3324 11th Ave., Council Bluffs, 51501 

Mid Iowa CoCo, Terry Simons, 1328 48th Street, 
Des Moines. 50311, (515) 279-2576 

Dubuque Tandy Users Group. Wesley Kullhem. 
1995 Lombard, Dubuque. 52001, (319) 556-4137 

Iowa City TRS-80 Users Group, Susan Chapler, R.R. 
6, The Woods. Iowa City, 52240. (319) 351-5959 

KANSAS 

KC CoCo Club, Gay Crawford, P.O. Box 11192. 

Kansas City, 66111, (913) 764-9413 
Topeka Color Computer Club, Kevin Cronister, 

2224 Hope, Topeka, 66614, (913) 272-1353 
Color Computer Club of Wichita, Rex Rivers, 1205 

N. Mosley, Wichita, 67214, (316) 264-9193 

Walnut Valley C.C. Users Club, David Anderson, 

1212 E. 4th St.. Winfield, 67156, (316) 221-0040 
KENTUCKY 
Perry County CoCo Users Group, Keith W. Smith. 

General Delivery, Hardburly, 41747, (606) 439- 

4209 
LOCO-COCO, Mike Standefer, 3141 Doreen Way, 

Louisville, 40220, (502) 458-6690 

LOUISIANA 

Red Stick Color Computer Club. Gary Cash, 8929 
Metairie Drive, Baton Rouge, 70810, (504) 293- 
7799 

Cajun CoCo Club, Bob Hoevel, 104 Karen St., New 

Iberia, 70560. (318) 365-7706 
MASSACHUSETTS 
Greater Boston Super Color Users Group, Robert 

Biamonte. 6 Boulder Drive, Burlington, 01803 
New England C.C. Users Group, Christopher E. 

Sweet, R.D. 2. Box 261, Harvard. 01451, (617) 

456- 8291 
Massachusetts CoCo Club, Jason Rahaim, Spring 

St., Lunenberg. 01462, (617) 582-6514 

CLUB 6809, Jean Salvas, 204 East Street, Spring- 
field, 01104, (413) 734-5163 

MICHIGAN 

Petoskey Area CoCo Club (PAC 3 ), Dennis Ho- 
shield. 670 Liegl Drive, Alanson, 49706, (616) 
347-0607 
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Color C.H.I.P.S.. Jack Pieron, 3175 Oakhill Place. 

Clarkston, 48016, (313) 627-4358 
CCUG (Color Computer Users Group), Rich Van 

Maner. 0-599 Lake Michigan Drive, Grand 

Rapids, 49504, (616) 453-6695 
Grand Rapids Area Tandy Users Group, Robert M. 

Worth, Jr., 1726 Millbank S.E., Grand Rapids, 

49508 (616) 245-9324 
Greater Lansing Color Computer Users Group. P.O. 

Box 14114, Lansing, 48901 
Midland C.C. Club, Neil Drake, 709 Coolidge, 

Midland, 48640. (517) 631-2939 
The Greater Kalamazoo Color Computer Club, Mike 

Marcelletti, P.O. Box 265, Paw Paw, 49079, (616) 

657-3850 
Michiana CoCo Club, Clay Howe, 310 S. Jefferson 

St., Sturgis. 49091, (616) 651-4248 

MISSISSIPPI 

Singing River C.C. Club, Mark Welch, 3605 Van- 
cleave Rd., #118, Gautier, 39553 

Gulf Coast Color Computer Assoc, Ed Keels, 22 
Christy Cove, Gulfport. 39503, (601) 832-1210 

CoCo Art Club, Joel Bunyard, Rt. 7, Box 10, Meri- 
dian, 39301, (601) 483-0424 

MISSOURI 

North County 80 Group, Tom Vogel, 12 Ville Donna 
Ct., Hazelwood, 63042, (314) 739-4078 

Mid-America Color Computer User's Group, Jerry 
Morgon, 807 Ponca Drive, Independence, 
64056, (816) 796-5813 

Coconuts, 1610 N. Marian, Springfield. 65803 

MONTANA 

Billings C.C. Club, Jayne Kenyon, 4306 Phillip, 

Billings, 59101 
NEBRASKA 
TRS-80 Color Computer Users Group of Lincoln, 

Jonathan Skean, 2629 South 15th St., Lincoln. 

68502, (402) 475-9815 
Siouxland Color Computer Club, Alan Pedersen, 

61 1 D Street, South Sioux City. 68776, (402) 494- 

2284 
NEVADA 
CAT. F.U.N., Paul A. Osborne, 201 Miners Road. 

Fallon. 89406. (702) 423-5789 

NEW JERSEY 

Intrasoft, RaviSakaria, 139 Candace Lane. Chatham 

Township, 07928. (201) 635-8025 
The Kid CoCo Club, Derrick Kardos, 1 1 Regal Drive, 

Colonia, NJ 07067, (201) 382-6862 
Bug 80 Users' Group, George R. Miller. Jr., Box 62, 

Glen Gardner, 08826 
Garden State Color Computer Users Group, Darren 

Nye, 5 North 20th Ave., Manville. 08835; Voice 

(201) 725-8385. Data (C.C.I. E. BBS) (201) 725- 

5028 
CoCo Club of W. Orange, Gregg Favalora, 12 

Blackburne Terrace, W. Orange, 07052, (201) 

736-1748 
Loco CoCo Club, Bud Lavin, 73B Wavercrest Ave., 

Winfield Park, 07036 

NEW MEXICO 

Chaves County Color Computer Club, Lee Mitchell, 
1102 Melrose Drive, Roswell, 88201, (505) 623- 
0789 

NEW YORK 

Adirondack CoCo Club (Albany Chapter). Ron Fish, 
Box 4214, Albany, 12204 

Adirondack CoCo Club, (Athens Chapter), Pete 
Chast, P.O. Box 61. Athens, 12015 

Adirondack CoCo Club (Glens Falls Chapter), Dave 
and Richard Mitchell, 39 Center St., Fort Ed- 
wards, 12828 

Queensboro Color Computer Club, Bob Rosen, 
Springfield Blvd. & 56th Ave., Bayside. 11364, 
(212)631-6233 

Island Color Computer Club, Charles Martin, P.O. 

Box 901, Bellmore, 11710 
Broome CoCo Club, Bucky Helmer, 57 Front St., 

Binghampton, 13905 

Kings Byte CoCo Club, Morty Libowitz, 1063 East 
84th St., Brooklyn, 11236, (718) 763-4233, BBS 
(718) 837-2881 



C.C. Club of Central N.Y., Joseph Short, 248 S 
Fourth Ave.. Ilion, 11357, (315) 895-7730 

Rockland County Color Computer Users Group, 
John S. Scibran, P.O. Box 131, Monsey, 10952, 
(914) 357-5580 

Olean Area CoCo Users Group, Herman L. Smith, 

P.O. Box 216, Olean, 14760, (716) 372-1170 or 

372-3121 
The CoCo Clan, John David, 56 Willowwood Lane, 

Staten Island, 10308, (718) 317-6228 
New York Color Computer User Group, Carl Glo- 

vinsky, 15 BolivarSt.. Staten Island. 10314. (718) 

761-0268 
NORTH CAROLINA 
TRS-80 Users' Group of Charlotte, Jason Foodman, 

240 Medearis Dr., Charlotte, 2821 1 

Bull City CoCo Users Group, Todd Wall, 5319 
Durand Drive, Durham, 27703. (919) 598-1348 

Raleigh Color Computer Club. David Roper, P.O. 

Box 680, Garner, 27529 
NORTH DAKOTA 
Musica 2 Users Group (MUG), Solveig Pederson, 

71 1 3rd Street S.E., Valley City. 58072. (701 ) 845- 

5063 

OHIO 

CoCo Club of Youngstown, Timothy McFadden, 
P.O. Box 478, Canfield. 44406. (216) 788-4218 

Columbus & Central Ohio Color Computer Club. 

D.E. Sparrow, 19 E.N. Broadway, Columbus, 

43214, (614) 268-5366 
Dayton CoCo Users' Group, Steve Lewis, 4230 

Cordell Dr., Dayton, 45439 
Cincinnati TRS-80 Users Group, R.A. White, 44 Dow 

Court, Fairfield, 45014 
Dayton Are Color Computer Users Group, David R. 

Barr, 2278 Yorkshire PL, Kettering, 45419, (513) 

293-2228 
M.U.G. of CoCo— Middletown Users Group, James 

Carr, Middletown, 45042, (513) 424-6905 
Greater Toledo Color Computer Club, Ronald L. 

Hall, 9646 Garden Road, Monclova, 43542. (419) 

865-3663 

Northeastern Ohio (N.E.O.) CoCo Club, Tony 
Rugue, 527 Malvern Drive., Painsville, 44077. 
(216)354-2736 

Tri-County Computer Users Group, William J. 

Loeffler, 2612 Dale Avenue, Rocky River, 441 16, 

(216) 356-0779 
Miami Valley CoCo Club, R. Douglas Wales. 2065 

LeFeure Rd., Troy, 45373 

OKLAHOMA 

CoCo Inc., Robert L. Pace, 1726 W. Rose Oak Dr., 
Mustang. 73064, (405) 376-3569 

OREGON 

Willamette Valley CoCo Users, Brian James. P.O. 

Box 11468, Eugene, 97440, (503) 687-9286 
PENNSYLVANIA 
HUG-A-CoCo, George Lurie, 2012 Mill Plain Court, 

Harrisburg, 17110, (717) 657-2789 
Penn-Jersey Color Computer Club, P.O. Box 2742, 

Lehigh Valley, 18001 
CAPATUG. Inc.. 340 Lewisberry Rd., New Cumber- 
land, 17070, BBS (717) 774-6543 
Skyline Color Computer Club of Berks County, 

Lewis F. Brubaker, 4874 Eighth Ave., Temple, 

19560,(215)921-3616 
Pittsburgh Color Group, Ralph Marting, P.O. Box 

351, West Mifflin. 15122. (412) 823-7607 

William Tucker, P.O. Box 351, West Mifflin, 15122, 
(412) 466-3078 

RHODE ISLAND 

New England CoCo Nuts, P.O. Box 6604, Provi- 
dence, 02940 

SOUTH CAROLINA 

LoCo CoCo Club, L.W. Coyle, 4334 Flynn Drive, 
Charleston Heights, 29405. (803) 747-0802 

Invitation Software Group, Tom Reed, 3562 Lin- 
brook Dr., Columbia, 29204, (803) 786-0541 

Midlands 80 Computer Club, Tommy Sanders, P.O. 
Box 7594, Columbia, 29202, BBS (803) 755-3414 

Metropolitan Greenville CoCo Club, Ed Lowe, P.O. 
Box 6, Gray Court. 29645, (803) 876-3928 



Hilton Head Island CoCo Club, Kevin Clark, P.O. 

Box 6187, Hilton Head Island, 29928, (803) 785- 

9630 
Spartanburg County CoCo Club, Dennis Shattuck, 

473 Royal Oak Drive, Spartanburg, 29302, (803) 

583-3017 

TENNESSEE 

Chattanooga CoCo Club, Jim Perkins/Jim Cox, 
P.O. Box 9825. Chattanooga, 37412, (615) 870- 
2439 

Tri-Cities Computer Club, Gary Collins, P.O. Box 
4506 CRS, Johnson City, 37602-4506, (615) 929- 
1862 

Foothills Micro-Computer Club, Ron Williams, P.O. 
Box 1541, Maryville, 37801. (615) 984-4287 

Memphis Color Computer Users Group, Ben Bar- 
ton, 4903 Warrington Rd., Memphis, 38118, 
(901) 795-7075 or 362-5945 

TEXAS 

CoCo User Group, David Karam. 1809 Dexter, 

Austin, 78704, (512) 442-6317 
B/CS Color Computer Users Group, Dale Cuthbert- 

son, 1812 Michael Lane, Bryan, 77801, (409) 

822-0731 
Deer Park Color Computer Club, Donald Burr, 4314 

W. Grant. Deer Park. 77536, (713) 479-5313 
International Color Computer Club, Inc., Robert L. 

Garrett, 2101 East Main Street, Henderson, 

75652, (214)657-7834 

TRS-80 Users Group of New Braunfels, John 
Mendez, 408 Acorn. New Braunfels, 78130, (512) 
629-3207 

The San Antonio Color Computer Club, James 
Leatherman, 2430 Rawhide Lane, San Antonio, 
78227, (512) 674-4294 

UTAH 

Ogden CoCo, Kathy Rush. 4535 S. 2600 W. Roy, 
Ogden, 84067 

Salt City CoCo Club, Dennis Mott, 720 E. Browning 
Ave., Salt Lake City. 84105. (801) 487-6032 

VIRGINIA 

Northern Virginia C.C. Club, Bruce Warner. 14503 
Fullerton Road, Dale City, 22193. (703) 670-4962 

Central Virginia Color Computer Club. Lane Lester, 
413 Woodland Circle, Lynchburg, 24502, (804) 
237-4188 

WASHINGTON 

Northwest Computer Club, Larry Haines, East 2924 
Liberty, Spokane, 99207, (509) 483-5547 

Mount Rainier Color Computer Club. Ron Amos. 
2450 Lenore Drive N.. Tacoma, 98406, (206) 752- 
8735 

WEST VIRGINIA 

Kanawha Valley Personal Computer Club, P.O. Box 
5354, Charleston, 2531 1 , BBS (304) 925-3338 or 
345-6502 

Mtn. State CoCo Users Group, Donald G. Barber, 
Jr., P.O. Box 1084, Morgantown, 26507, (304) 
599-4493 

Mil-O-Bar Computer Club, Jim LeMaster, P.O. Box 
130, Ona, 25545. (304) 743-4752 after 4 p.m. 

Blennerhassett CoCo Club, David Greathouse, Rt. 
9, Box 119, Parkersburg. 26101 

West Virginia Color Computer Club. William Muck- 
low, 949 Baier Street, St. Albans, 25177, (304) 
727-6764 

WISCONSIN 

CoCo-MUG, Tom Fandre, P.O. Box 10152, Milwau- 
kee, 53210, (414) 542-0600 

Southern Wisconsin CoCo Club, David C. Buehn, 
P.O. Box 411. Twin Lakes, 53181 

CANADA 
ALBERTA 

Calgary Color Computer Club, Don Towson, 832 
Cannell Rd. S.W., Calgary, T2W 1T4, (403) 281- 
2855 

Edmonton CoCo Users Group, Dexter Dombro, 
P.O. Box 4507 Stn. South. Edmonton. T6E 4T7, 
(403)461-4750 

Medley Computer and Electronics Club, P.O. Box 
1267, Medley, T4A 2M0 
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BRITISH COLUMBIA 

North Island CoCo Club, Ann Marie MacKay, P.O. 
Box 1740, Port Hardy, VON 2P0 

Salmon Arm CoCo. David Coldwell, 2981 N. Broad- 
view, Salmon Arm, VOE 2T0, (604) 832-8247 

MANITOBA 

Winnipeg Micro-80 Users Group, Mel Seder, 884 
Ash St., Winnipeg, R3N 0R9, (204) 284-0376 

NEW BRUNSWICK 

Color Computer Moncton Users Group (Co- 
CoMUG), Leo Allain, 91 Woodland Dr., Monc- 
ton, E1E 3C4, (506) 382-2190 

NEWFOUNDLAND 

Avalon CoCo Club, A.R. Thompson, 10 Foran St., 

St. John's, A1E4G1 
NOVA SCOTIA 
Halifax Dartmouth CoCo Users Group. P.O. Box 

572, Dartmouth, B2Y 3Y9, (902) 469-3656 

ONTARIO 

ESSA Color Computer Club, Albert L. Ley, 40 Perry 
Street, Barrie, L4N 2G3, (705) 728-9481 

International Adventurer's Club, Maurice Dow, 84 
Camberley Cres., Brampton, L6V 3L4 

K-W C.C. Club, Peter Karwowski, 23 Hudson 
Crescent, Kitchener, N2B 2V7 

Kingston CoCo Club, Kenneth Bracey. 316 West- 
dale Ave., Apt. 4-C, Kingston, K7L 4S7, (613) 
544-2806 

London CoCo Nuts Computer Club, Harry K. 

Boyce, 180 Concord Road, London, N6G 3H8, 

(519) 472-7706 
Meadowvale Color Computer Club, Howard Porter, 

P.O. Box 186, Streetsville, Mississauga, L5M 

2B8 
Niagara Regional CoCo Club, Harry VanDyke, 7707 

Jubilee Drive, Niagara Falls, L2G 7J3 

Ottawa 6809 Users Group, Norm Shoihet, 1497 
Meadowbrook Road, Ottawa, K1B 5J9, (613) 
741-1763 

QUEBEC 

Club d'Ordinateur Couleur du Quebec, Inc., Centre 
de Loisirs St-Mathieu. 7110- 8e Ave.. St-Michel, 
Montreal, H2A 3C4, (514) 729-8467 

South Shore CoCo Club, Jacques Bedard, 33 
Lisilre, St-Constant, P.Q., J0L 1X0 

Le Club Couleur du Nord, Gabriel Pigeon, RR 2, 
Ville Montel. JOY 2S0, (819) 732-2346 

SASKATCHEWAN 

Regina Color Computer Club, Georges Glass, 26 
Tweedsmuir Bay, Regina, S4X 2B1, (306) 949- 
3942 

Saskatoon Color Computer Club, L. Curtis Boyle. 
35 Bence Crescent, Saskatoon, S7L 4H9 

AUSTRALIA 

Blacktown City TRS-80 Colour Computer Users 
Group, Keith Gallagher, P.O. Box 264, River- 
stone, New South Wales. 2765 

HELF CoCo Users Group, Elvis Lazic, 27 Jensen 
Street, St. Marys, New South Wales, 2760 

Color Computer Penrith User Group. Alexander 
Schofield, 15 Tasman Avenue. Lethbridge Park, 
New South Wales, 2770 

The Hills District Color Computer Club, Andrew 
Rankin, 42 Lucas Road, Seven Hills, New South 
Wales, 2147, phone (02) 674-3741 

CoCoHUG (Color Computer Hobart Users Group), 
Robert Delbourgo, 15 Willowdene Avenue, 
Sandy Bay, Hobart, Tasmania, 7005 

ISRAEL 

The First Color Computer Club of Israel, Yosef 
Krinsky, Data Processing Division, 1 Radin 
Street, Netanya, Israel 

MEXICO 

MEXCOCO Users Group, Sergio Waisser, Pachuca 
87-109, Mexico City D.F., 06140, phone 553-11- 
98 

WEST GERMANY 

First CoCo Club Hamburg, Theis Klauberg, 2000 
Hamburg 65, Op de Solt 53 a, West Germany 



new 



clubb 



Editor: 

Where are the MC-10 users? If you have 
an MC-10 and want to use it, drop me a line 
at 10226 N. 29th Street, 33612. Let's get an 
MC-10 users group started! 

H. Francisco 
Tampa, FL 



• We have approximately 80 members in 
the Atlanta Color Computer Users Group 
and have been in existence for three years. 
Meetings are the third Wednesday of the 
month at Nash Middle School in Cobb 
County at 7 p.m. Our newsletter is only $20 
per year. For more information contact the 
club at 5155 Moroney Mill Road, 30134. 

Terry E. Love 
Douglasville, GA 



• Our club is called CoCo Queslers. We do 
print a newsletter. For more information 
please send an SASE to me at 2420 Salem 
Court, 52722. 

Scoll Bellman 
Betiendorf, IA 



• I would like to announce the start of the 
first club for TP- 10 printer owners. The club 
is only $13 a year or $1.50 per month. Each 
month you get features — articles that you 
can write — free ads, comments and ques- 
tions for the TP and three to nine useful and 
fun programs (all mailed to you on tape). 
For more information or a subscription, 
write TP- 1 Club. 7632 Saddle Drive, 66502. 

Tim Lehmann 
Manhattan, KS 



• The Tri-City Color Computer Club 
meets the third Saturday of every month at 
the Butman Fish Library, 1716 Hancock, 
Saginaw. There are no dues, although we do 
send a club newsletter. Write to me at 1806 
34th Street, 48708. 

Ron Sujkowski 
Bay City. MI 



• The Grand Rapids Area Tandy Users 
Group meets at Radio Shack Computer 
Center, 3142 28th Street S.E. on the third 
Tuesday of each month. Write to me at 1726 
Millbank Street S.E., 49508 or call (616) 
245-9324. 

Robert Worth 
Grand Rapids, MI 



• Our club is called CCUG (Color Com- 
puter Users Group). Dues are $3 to cover the 
cost of our newsletter. Also send some public 
domain software as we are building up a 
library. Contact me at 559 Lake Michigan 
Drive, 49504. 

Rich Van Monen 
Grand Rapids, MI 

• We have a club that meets on the first 
Tuesday of each month. There are no dues 
or fees. Call or write to me and 1 will be more 
than happy to answer any questions. My 
address is 61 1 D Street, 68776; phone (402) 
494-2284. 

Alan Pedersen 
South Sioux City. NE 

• Our group is a combination of users. The 
name CAT FUN stands for the Commo- 
dore, Apple, Tandy, Fallon Users Network. 
Send correspondence to P.O. Box 2155, 
89406 or phone (702) 423-8001. 

Paul A. Osborne 
Fallon, NV 

• I'd like to start a CoCo club for I6K 
owners only. Anyone interested who has a 
I6K (not Extended basic) computer write to 
me at 115 Evelyn Avenue. 12010. 

././?. Raczes 
Amsterdam. NY 

• If there is anyone in the Metrolina area 
interested in a CoCo club, please write me 
at Rt. 1, Box 720-9, 28115. 

Jim Carroll 
Morresville, NC 

• The Tandy Color Computer Club of 
Minot, P.O. Box 1095, 58702. Call me at 
(701) 852-6651 for more information. 

Pete Fettig 
Minot, ND 

• I'd like to start a club for CoCo owners 
to exchange ideas. Interested CoCoists can 
get a newsletter by sending a first class stamp 
to CoComug, 3735 Stark Street, 43906. 

Charles D. Roman 
Bellaire, OH 

• Our club in Oklahoma City has about 
280 members with about 125 at each meet- 
ing. We meet the second Saturday of the 
month at the Red Cross Building at 10th and 
Hedson at 9 a.m. For information write to 
me at 1726 W. Rose Oak Drive, 73064. 

Robert L Pace 
Mustang, OK 

• The LoCo CoCo Club meets on the last 
Tuesday of the month. Annual dues are $12 
for a monthly newsletter. For more informa- 
tion write me at 4334 Flynn Drive, 29405, 
or call (803) 747-0802. 

L. W. Coyle 
Charleston Heights, SC 
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• I am interested in starting a users group 
in the Grand Prairie-Arlington area to share 
experiences with other owners of Tandy 
Color Computers. Contact me at (214) 246- 
4396 or write to 1026 Capetown Drive, 
75050. 

Albert .1. Murks 
Grand Prairie. TX 



• We have put together a newsletter that 
is published 10 limes a year. Send a letter 
that includes your name and address so we 
can send documentation to sec if you are 
interested in signing up. Send to 5908 87th 
Street E., 98371. 

Mark Bell 
Puvallup. WA 



• I started publishing a newsletter called 
"About My MC-10." I would share a sample 
issue for the postage. Forty-two pages of 
back issues and a 100-program software 
catalog are available for $5. The current 
year's subscription is S10 to cover postage 
and photocopy expenses. Write me at E. 
2924 Liberty, 99207. 

Larry E. Haines 
Spokane. WA 



• The Ml. Rainier Computer Club meets 
at 7 p.m. the first and third Thursday of the 
month. For more information write me at 
2450 Lenore Drive N., 98406, or call 752- 
8735. 

Ron Amos 
Taconia, WA 



• The Colour Computer User Group in 
Halifax meets the first Tuesday of every 
month at the Oxford Community School. 
Contact me at 6354 London Street, Halifax, 
or call (902) 455-634 1. 

Paul A. Power 
Nova Seoiia, B3I 1X3 

• The ESSA Color Computer Club meets 
at Our Lady of Grace School, Roth Street, 
Angus every oilier Monday at 7:30 p.m. For 
more information please call Eldon Doucet 
at (705) 424-1354 or me at (705) 728-9481. 

A.L. Ley 
Barrie, Ontario 

• Announcing a new CoCo club: Le Club 
CoCo La Tuque Inc. Our address is C.P. 
458, La Tuque, G9X 3P4. We have approx- 
imately 35 members. 

Pierre Lor lie 
La Tuque. Quebec 



• I would like lo start a club for people 
using CoCo Max or Graphieom, so we could 
exchange ideas and tips. If anyone is inter- 
ested, please wrile to me at 258 Delisle, G7G 
3B3. 

Robert Delisle 
Cbieoutimi. Nonl, Quebec 



• The Southern Region Computer Club 
holds meetings at the Noarlunga Centre 
every third Tuesday of the month. For 
additional information contact Darren 
Ramsey 384-6728, Jan Lindner 382-7600 or 
me at 381-1036. 

Richard Boxall 

25 Longview Cres. 

O'Halloran Hill 

S.A.. Australia 5158 

• A new CoCo users group has formed in 
Israel: The First Color Computer Club of 
Israel. The address is Data Processing 
Division. 1 Radin Street. Netanya, Israel. 
We have a vast library of utilities that are at 
our members' disposal. Meetings are an- 
nounced in our newsletter. For further 
information write to me at the above ad- 
dress. 

Yosef Krinsky 
Netanya, Israel 

D 



Hint . . . 

Unpacking BASIC Programs 

If you have come across a program that has had its 
lines packed so tightly that parts of the lines can't be 
seen when listed, here is a way to make them visible 
again in a 64K CoCo. First RUN a program, such as 
this one from Frank Hogg, to put the CoCo in its 64K 
mode: 

10 ' ROMRAM 

20 CLEAR999 

30 DATA26,80,190,128,0,183,255,2 

22,166,128 

40 DATA183,255,223,167,31,140,22 

4,0,37,241,57 

50 FORI=lT021:READA:A$=A$+CHR$(A 

) :NEXTI 

60 P=VARPRT(A$)+1 

70 POKEP,12 6 

80 EXEC P 

90 PRINT"BASIC IS 



NOW IN RAM" 



Then simply enter POKE $HB81G,4. This poke into 
the BASIC interpreter will allow the full line to be listed. 
This POKE will affect the LIST, LLIST and ASCII save 
functions, but will not affect the EDIT mode. 



Hint . . . 

Disabling the Disk 
Controller 

Here's an easy way to modify your disk controller 
so that you can disable it without unplugging the 
controller pack. This is useful when you're running 
programs that won't work on a disk system. The only 
part needed is an SPST toggle switch, such as Radio 
Shack's catalog number 275-624. 

1 . Unplug the controller, open it, remove the circuit 
board and pull off the metal shield on the bottom. 

2. Remove the Disk BASIC ROM (a 24-pin chip), 
bend up Pin 24 and reinsert the chip. 

3. Connect Pin 24 of the ROM to one terminal on 
the switch. (These wires should be about six to eight 
inches long.) 

4. Turn over the board. Connect the other switch 
terminal to Pin 24 of the ROM socket. 

5. Replace the metal shield, mount the board in the 
bottom half of the case and replace the top. The wires 
should come out at the rear. 

With this modification in place, flipping the switch 
on will enable Disk BASIC, while switching it off will 
disable it. To change from Disk to Extended BASIC, 
switch it off and press the reset button. To go from 
Extended to Disk BASIC, type POKE 113,0 and ENTER, 
flip the switch on and press the reset button. 

Albert Rausch 
Ensival, Belgium 
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Protect Your Valuable Magazine Collection With . . . 



DISTINCTIVE, 
DURABLE 
RAINBOW BINDERS 



(fiJ:5.«M»n 



oco «% 





Each issue of THE rainbow is a vital resource that you 
will refer to again and again, to gain insights, to explore 
new areas of interest or simply to refresh your memory. So, 
you need to keep your copies of THE rainbow safe — in 
high-quality, vinyl binders that provide complete protec- 
tion. 

These distinctive red binders not only ensure that your 
RAINBOWs stay in mint condition, but they showcase your 
collection as well. Each binder is clearly embossed with the 




magazine's name in gold lettering on both the front and the 
spine. They're a handsome addition to any room. 

They also make it possible for you to organize your work 
space and eliminate the clutter on a permanent basis. You'll 
spend more time on your CoCo and eliminate those 
frustrating searches for misplaced magazines. 

A set of two handsome binders, which hold a full 12 issues 
of THE RAINBOW, is only $13.50 (please add $2.50 for 
shipping and handling). 



Special Discounts On Past Issues With This Offer 



To help you complete your collection of THE RAINBOW, 
we're offering a special discount on past issues with the 
purchase of one or more sets of binders. 

When you place an order for six or more back issues of 
THE rainbow at the same time you order your binders, you 
are entitled to SI off each magazine, which normally sells 
for the single issue cover price. For an order form, please 
refer to our "Back Issue Information" page (check Table of 



Contents under departmental listings). Also with this offer, 
copies of the "Official And Compleat Index To THE 
RAINBOW" (a comprehensive index of RAINBOW'S first three 
years, July 1981 through June 1984), usually priced at $2.50, 
may be purchased for only $1 with a set of binders. 

Due to heavy demand, we suggest you order back issues 
now while supplies last. 



YES. Please send me 



Set(s) Of RAINBOW binders at $13.50 per two- 



binder set (plus $2.50 per set for shipping and handling). If your order is to be sent via U.S. Mail 
to a post office box or to another country, please add $2. Kentucky residents add 5% sales tax. 
U.S. currency only, please. 

Order one or more sets of binders and take advantage of these exciting offers: 

I also want to take advantage of a special savings of $1 off the single issue cover price for back 
issues with the purchase of a set of binders. (Minimum order of 6 magazines. An order form from 
a recent issue indicating the back issues you wish to receive should accompany this order.) 

I want to purchase the first three-year index to the rainbow (July 1981 through June 1984) at 
the special price of $1 (regular price $2.50) with my purchase of one or more sets of binders. 



Name 

Address 
City 



State 



ZIP 



□ My check in the amount of 

Charge to: □ VISA 

Account Number 

Signature 



is enclosed. (In order to hold down costs, we do not bill.) 

□ MasterCard □ American Express 
Expiration Date 



Mail to: Rainbow Binders, The Falsoft Building, P.O. Box 385, Prospect, KY 40059. 

To order by phone, call: (502) 228-4492 



WHEN QUALITY COUNTS 




J)tauon f ^ 
WORD PROCESSOR 2.2 

TAPE OR DISK VERSION 

A feaiurc packed program ihnl lurns your CoCd into an of- 
fice machine. Crcuic urn! save letters unci documents with 
the word processor tailored for the SG- 10. 



BLUE STREAK II 

SERIAL TO PARALLEL INTERFACE 



• RUN COCO I or II to PARALLEL PRINTER 

• HIGH QUALITY TOGGLE SWITCH ELIMINATES CABLE SWITCHING 

• 300. 600. 1200. 2400. 4800. 9600 SWITCHABLE BAUD RATES 

• AC POWER OPTIONAL-NOT NEEDED WITH SG-10 PRINTER 

• COMPLETE WITH ALL CABLES AND CONNECTORS 

• THRU-PUT EQUIVALENT TO .-. t _ . cu T pp INr , 
BUFFERED INTERFACES /^\ $ 54' 5 win? 

RAINBOW fc'T^ rAlU: 

• 180 DAY WARRANTY "".".r" 



COMPLETE SG-10 

PRINTER SYSTEM 



INCLUDES 

• SG-10 PRINTER 

• 1 YEAR WARRANTY 

• BLUE STREAK II INTERFACE 
WITH MODEM SWITCH 

• SUPER GEMPRINT 

• TYPE SELECTION/TUTORIAL 

• WORD PROCESSOR 2.2 

COMPLETE 



$ 



279 



95 



+ S 10 Shipping 
and Insurance 
SG- 15-439" 





CUSTOM SOFTWARE 



Overall, Super Gemprint is very well-written and documented." 

-Rainbow December 84 review. 

BONUS! TYPE SELECTION/TUTORIAL PROGRAM 

FREE WITH SUPER GEMPRINT 

Menu driven program for the CoCo. Teaches and shows the new 
user the numerous features of the SG-10. 



SUPER GEMPRINT AND 

TYPE SELECTION/TUTORIAL PROGRAM 



5 17 



& 



+ 52 Shipping 
and Handling 



DAYTON ASSOCIATES", INC. 



wmr 



micro n i c i -int 

AUTHORIZED 
DEALER 



DUN & BRADSTREET LISTED 

7201 CLAIRCREST BLDG. C 

DAYTON, OHIO 45424 

OHIO RESIDENTS ADD 6'/ 2 % SALES TAX 

C.O.D. ADD $2.00 



AUTO»ORDER LINE 

1-800-251 STAR 

Personal Service 

(513)236-1454 



RAINBOW REVIEW 
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CAIS 

Ends Chaos in Checking Accour 

CoCo EPROM Programmer 

Has Variety of Functions/Spectrum Projects, Inc 213 

The CoCo Greeting Card Designer 

Send Personal Wishes/Zebra Systems, Inc 202 

CoCo Keyboard Software 

Increases Function Key Duties/Specfrum Projects, Inc 191 

CoCo Max II 

Major Enhancements/Co/o/ware, Inc 1 89 

Color Essential Math 

A Good Teaching Tool/Tandy Corp 203 

Complete Electronic Organizer 

Options Galore to get You in Order/Computerware 204 

Conquering Armies 

A Challenging Simulation/M/rc/ie// Software 192 

DeskMate 

An All-Purpose Package/Tandy Corp 198 

Grafix-3 

A Real OS-9 Bargain/AaroVar/c Software 196 

Knock Out 

Action Abounds in Fast-Paced Game/D/eco/r? Products 209 

Menu Maker 

Gives Easy Access to Disk Files/Saguaro Software 210 

Panic Button 

Fun for All Ages/Tandy Corp 207 

PenPal 

Useful and Affordable/Four Star Software 1 84 

Perpetulife 

Provides Enjoyment for Board-Game Lovers/Tothian Software 211 

PLANEGEO and PGCALPRT 

Euclid would be Proud/TASC 190 

SIDE WISE OS9 

Prints out Wide Spreadsheets/Derr/nger Software 212 

Symphony 12 

An Excellent Music Synthesizer/Speech Systems 1 88 

Treasure of the Aztecs 

Venture into the Jungle/Compuferware 
TRY-O-TAX 

Helps Organize Tax Preparation/TRZ-O-e YTE -^V^Bs 208 

Vincent Van CoCo ^^^^^ 

Have a Starry, Starry Night/Rococo Software 1 95 
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RECEIVED & CERTIFIED 



The following products have recently been 
received by the rainbow, examined by our magazine 
staff and approved for the Rainbow Seal of 
Certification, your assurance that we have seen the 
product and have ascertained that it is what it 
purports to be. 

This month the Seal of Certification has been 
issued to: 



EZ-Back, a 64K OS-9 utility to back up 
and restore all or part of a file system, 
reconstruct all fragmented files back to 
linearly sectored files to save time on 
disk reads/writes and repositioning 
strategically critical sectors, such as 
directories, to minimize disk head 
travel. IV A Electronics, 6117 Gerard 
Morisert, Montreal, Quebec, HIM 3J8, 
disk $24 plus $2 S/H 

EZ-Manager, a 64K OS-9 utility to 
facilitate recursive search procedures, 
spool groups of files using simple text 
formatter to the printer and use of 
windows adaptable to the user's screen 
width to display the maximum amount 
of information, thereby replacing the 
"chd" and "dir" sequence. IVA Elec- 
tronics, 6117 Gerard Morisett, Mont- 
real, Quebec, HIM 3J8, disk $19 plus 
$2 S/H 

Easy Gradebook and Grade %, a 16/ 

32/64K utility for teachers to keep track 
of student data that may be sent to 
either screen or printer. Features in- 
clude editing (add or change grades or 
names), alphabetize by name or rank, 
up to 100 students (64K), up to 50 
grades per student, letter grades and 
written in BASIC (suitable for user 
modification). Grade % is the same 
program but uses percentile scores 



rather than letter grades. Teachers Are 
Us Software, 518 West 5th, Peru, IN 
46970, cassette or disk $15 

Easy Testwriter, a 16/32/64K utility on 
disk for teachers to produce multiple 
choice or true/ false tests. Features 
include creation of questions, send to 
screen or printer, answers mixed ran- 
domly and up to 100 questions per test. 
A final exam may be compiled from 
questions on previous tests saved to 
disk. Teachers Are Us Software, 518 
West 5th Street, Peru, IN 46970, disk 
$15. A package of Easy Gradebook, 
Easy Grade % and Easy Testwriter is 
offered for $25 and a VCR tape explain- 
ing the programs is available for $10 

CoCo Text Util, an auxiliary utility 
program for use with most CoCo word 
processors. Features include resetting of 
margins for correct length for upload- 
ing, conversion of uppercase to mixed 
upper- and lowercase, display of total 
byte count, and rename and kill func- 
tions. Spectrum Projects, Inc., P.O. 
Box 21272, 93-15 86th Street, Wood- 
haven, NY 11421, disk $19.95 plus $3 
S/H 

Double RAM, a hardware plug-in 
assembly that increases the memory of 
Thunder RAM to 512K by adding a 



second bank of memory chips, a control 
module and a switch for bank selection. 
The unselected bank is placed in a 
standby state without losing its data. 
Thunder RAM must be installed and 
working properly and it is necessary to 
remove one wire from the Thunder 
RAM assembly and solder another to 
the circuit board. Spectrum Projects, 
Inc., P.O. Box 21272, 93-15 86th Street. 
Woodhaven, NY 11214, $79.95 plus $3 
S/H 



The Vortex Factor, a 32K Adventure 
game with Hi-Res graphics depicting 
the various times and places you, the 
seeker, explore in your quest to unlock 
the secrets and treasures of the Vortex 
Factor. Mark Data Products. 24001 
Alicia Parkway, No. 207, Mission 
Viejo, CA 92691, cassette $24.95, disk 
$27.95 plus $2 S/H 



Shock Trooper, a 32K arcade game 
with Hi-Res graphics. The scenario pits 
four of your Shock Troopers against a 
heavily defended enemy base to steal 
attack weapons before they can be used 
to subjugate the Earth. Mark Data 
Products, 24001 Alicia Parkway, No. 
207, Mission Viejo, CA 92691, cassette 
$24.95, disk $27.95 plus $2 S/ H 
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Infomania: The Guide to Essential 
Electronic Services, a 314-page soft- 
bound book to inform novices and 
veterans of the myriad collection of 
electronic services, tips on what hard- 
ware/software is likely to meet a user's 
needs, what the electronic services offer 
and their costs to consumers, and eval- 
uations of over 250 electronic services 
available today. Houghton Mifflin 
Company, 2 Park Street, Boston, MA 
02108, $14.95 

Assembly Language Programming for 
the TRS-80 Color Computer, a 289- 
page soft-bound book that shows in a 
tutorial fashion how to program in 
assembly language. Hardware func- 
tions, capabilities of the CoCo and how 
to control them with assembly language 
are explained, and there is a chapter on 
how to use all EDTASM+ capabilities. 
TEPCO, 30 Water Street, Portsmith, 
RI 02871, $16 plus $1.50 S/ H 

OS9 Utilities Package, a 64K OS-9 set 
of utilities with transfer routines for 
moving text between Disk BASIC and 
OS-9. Included among the commands 
are: GREP, a pattern search utility; 
CRYPT, a file encryption/decryption 
utility; and CALC, a scientific floating- 
point calculator that evaluates arith- 
metic expressions. The Other Guy's 
Software, P.O. Box H, Logan. UT 
84321, disk $19.95 plus $2 S/H 



Homeware, a 16K home utility package 
consisting of six modules. A Calendar 
module creates calendars on screen or 
paper and adds notes to specific dates 
on a large format calendar. A Savings 
module calculates compound interest 
including principal, time (years), yearly 
rate of interest, future principal and 
interest earned. A Loan module calcu- 
lates time (years) to pay back, amount 
of payment, balloon payment and total 
amount repaid. A Directory module 
tracks telephone numbers, addresses, 
birthdays, other information and prints 
out address labels of up to four lines. An 
Inventory module tracks household 
possessions for insurance purposes, 
hobby items and /or the inventory of a 
small business. A Home-Writer module 
is a word processor suitable for use in 
common household tasks such as mak- 
ing lists, recipes, memos and writing 
letters. Tothian Software, P.O. Box 
663, Rimersburg, PA 16248, entire set 
on cassette $49.95, individual modules 
on cassette $19.95, Saving and Loan 
sold as one module. 



Computer Underground, a 257-page 
soft-bound book by M. Harry on com- 
puter hacking, crashing, pirating and 
phreaking. Discussed are terminology 
and security measures for protecting 
computer systems and data. Loompan- 



ics Unlimited, P.O. Box 1197, Port 
Townsend, WA 98368, $14.95 

Telewriter-64 Character Set Editor, a 

32K ECB screen utility that allows the 
creation of modified character sets used 
by Telewriter-64 to suit user preference. 
Possible are true descenders, special 
characters and foreign language charac- 
ter sets. CMD Micro Computer Serv- 
ices Ltd., 10447 124th Street, Edmon- 
ton, Alberta, Canada T5N 1 R7, cassette 
$14.95 plus $2 SI H 

Starship Simulator, a 64K strategy 
game that places you in the role of 
starship captain fighting the Mions. 
Your weapons include phasers, photon 
torpedos, a cloaking device, warp 
speed, plasm bolts and a self-destruct 
mechanism, but every tactic deployed 
costs your finite energy supply. RDB 
Software, 379 Goodwin Rd., Eliot, ME 
03903, cassette $21.95, disk $26.95 

Comm-4, a hardware/ software serial 
communications interface package 
requiring an expansion device such as 
Multi-PakorCC Bus. Users are allowed 
serial I/O capabilities utilizing four RS- 
232 channels. Supported are full 
modem control and the enhancement of 
multitasking and multi-user features of 
OS-9. CoCo Devices, P.O. Box 677, 
Seabrook, TX 77586, $108 



The Seal of Certification program is open to all 

manufacturers of products for the Tandy Color 

Computer, regardless of whether they advertise in 

THE RAINBOW. 

By awarding a Seal, the magazine certifies the 

product does exist — that we have examined it and 

have a sample copy — but this does not constitute 

any guarantee of satisfaction. As soon as possible, 

these hardware or software items will be forwarded 

to the rainbow's reviewers for evaluation. 

— Monica Dorth 
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REVIEWING 




EDOS2.6 

Editor: 

In the December 1985 issue of THE RAIN- 
BOW, EDOS2.6 was reviewed [Page 235]. 
Many thanks. 1 must point out that the price 
reflected is incorrect. EDOS2.6 sells for 
$39.95 U.S. and $49.95 CDN. Also, a new 
version. EDOS2.7. is available and includes 
two new commands as well as a new prompt 
giving the default drive number. 

EDOS can be customized at no charge at 
the time of ordering from Micro Computer 
Services, and a 16K version of EDOS is 
currently being developed. It is intended for 
use in the new controllers that will accept 
16K EPROMs. Expected release date is the 
summer of 1986. 

Eldon Doucet 
Angus. On i aria 



TX 

Editor: 

1 would like to respond to the review of 
TX by John Ogasapian [March 1986, Page 
209]. Few people need or use in their per- 
sonal correspondence underline, subscript, 
superscript, double-width print, etc. Few 
people write professionally at home with a 
CoCo. 

TX is intended for those users who just 
want to compose a simple letter or form on 
an 80-column by 66-line printer page. TX 
does this easily, at a cost of $12.95. Cer- 
tainly, heavyweight WPs give embeddable 
printer codes and a 10-page buffer, but in 
reality, how many people write a 10-page 
letter to grandma with italics, subscripts, 
etc.? 



TX displays the page exactly as it will 
appear on the printer. To accomplish this on 
a standard CoCo screen, TX uses the screen 
as a window over the printer page, and the 
four arrow keys guide the screen and cursor 
around the page with the cursor being non- 
destructive. From the main menu, pressing 
ENTER moves to the page editor and change 
is the default mode of TX. While entering 
text, users can access the 16 function keys 
(that include center, string$, calculator, 
mark, erase and print block) by holding 
SHIFT and pressing ENTER. 

The program is in basic and the editor is 
admittedly slow, however the maximum 
typing speed has been changed from three 
characters per second to eight cps. TX holds 
one page at a time. When more are needed, 
users can store them, one at a time, on a 
diskette usingdisk I/O from the main menu. 
Printer control codes cannot be embedded 
within the text. 

If you need printer codes, or can't tolerate 
typing at eight cps. then TX isn't for you. 
But if you're looking for something with a 
simple format (what and where you type is 
what you get), TX is an inexpensive answer. 

Fred Kolesar 
Kolesar B/S 



Microartist 



Editor: 

I would like to thank John W Robinson 
for the fine review of Microartist that 
appeared in the December 1985 issue of 
RAINBOW [Page 240]. We appreciate both his 
compliments and comments, which promp- 
ted the author. Woody Pope, to make several 
improvements to the program. A multiple 



GET/ PUT function is now available and the 
spray paint function has been enlarged. An 
UNDO function has been added to allow the 
user to correct mistakes before they become 
a permanent part of the picture. Microartist 
owners who would like to update their 
version to version 2. 1 may do so by sending 
their original tape or disk and $6.50 ($5 plus 
$1.50 S/H) to Prickly-Pear Software. 

Joanne Chintis 
Prickly- Pear Software 



Calculating Parts Per Million 

Editor: 

1 would like to thank Mr. Odlin for his 
review of my program, Calculating Parts 
Per Million, March 1986. Page 195. I made 
PPM user friendly and added a routine to 
give the amount in tablespoons so that home 
gardeners could use it. 

Mr. Odlin has made some suggestions 
concerning the program flow and screen 
display. I have taken his suggestions to heart 
and revised the program. Now the error- 
trapping routines work better and the screen 
display looks better. I have also expanded 
the documentation to four pages so that it 
will be more easily understood, especially by 
home gardeners. 

Jose Garcia 
Green Horizons 



We welcome letters to "Reviewing Re- 
views" and remind you that they may also 
be sent to us through the MAIL section 
of our new Delphi CoCo SIG. From the 
CoCo SIG> prompt, pick MAIL, then 
type SEND and address to: EDITORS. 
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TRS-80 COLOR COMPUTER USERS-MAGAZINE 
Sell or trade your unwanted programs or hardware in this monthly 
newspaper. Find great buys. List your club or BBS. Full of tips, arti- 
cles, reviews and programs for your COCO. Don't delay, subscrip- 
tion starts at only $5.00 per 12 issues (1 year) classified ads only 
$.15 a word, use seperate sheet of paper for classified ads. 
Yes- I would like a subscription to COCO ADS 

1 year third class mail $5.00 

1 year first class & Canada $10.00 



Name 



Address 



, City, State Zip 

Please have checks payable to - P D Software 
P.O. Box 13124 Houston, Texas 77219 
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Enjoy Your RAINBOW Programs 

with the Greatest of Ease 
Subscribe to rainbow on tape! 




Each month, rainbow on tape gives you as many as two dozen ready-to- 
run programs from the current issue of the rainbow, excluding OS-9 
programs and those less than 20 lines. With just a one-year subscription, you'll 
receive more than 230 new programs. And, using the documentation provided 
by the magazine, all you have to do is load and run them. 



Need a back issue of rainbow on tape? 
Issues available beginning with April 1982 



Subscribe to rainbow on tape Today! 

LOOK FOR OUR ORDER CARD 
BETWEEN PAGES 34 AND 35 

The cost for a single copy of rainbow on 
tape is $10 within the United States; U.S. $12 
in all other countries. The annual subscription 
rate for rainbow on tape is $80 within the U.S.; 
U.S. $90 in Canada; and U.S. $105 for all other 
countries. U.S. currency only, please. In order 
to hold down non-editorial costs, we do not 
bill. 




NOW AVAILABLE ON DELPHI! 

For your convenience. RAINBOW ON tape can also be 
ordered via the Delphi Information Network, in our Shopping 
Service area of the rainbow's Color Computer SIG (Special 
Interest Group). 

The individual programs from our past April issues are also 
available for immediate download in the RAINBOW ON TAPE 
Database area in THE rainbow's Color Computer SIG on 
Delphi. There is a $3.50 per program surcharge. 



RAINBOW ON TAPE is not a stand-alone product, but is 
intended as an adjunct and complement to the magazine. 
Even if you purchase RAINBOW ON TAPE, you will still need 
the magazine for loading and operating instructions. 



Programs from Our Past April Issues: 

April 1985 (Hardware/Simulation issue) — CoCo Payroll, part 
two of a complete small business payroll; Landlord's Helper, 
part two of a program that manages rental property; Surface, 
a Simulation that takes you to the North Pole; Cardio, a 
Simulation that transfroms you into a heart specialist; The 
Adventure Writer's Toolkit, offers tips on writing your own 
Adventure; Run lor Your Life, a survival game; Concert, a 
animated graphics program; Porsche, a graphics represen- 
tation of the Porsche 930 Turbo; and Wishing Well, a 
collection of educationa programs that help make learning 
more fun; plus four additional programs. 

April 1984 (Gaming issue) — Roulette, a betting game played 
on the numbered wheel; The Icing on the Cake, a tutorial on 
writing Adventure programs; Craps, a game played at the 
"Casino CoCo"; A Day at the Races, a BASIC game that 
simulates horse racing; Bingo, a game where your luck is in 
the cards; Blackiak, a game for the "21 and under" crowd; 
Memscan, a utility for the memory explorer; The Home Slot 
Machine, a real money saver for the BASIC gambler; Spinning 
Fortune's Wheel, a rotary "hangman" game for up to eight 
players; Place Your Bet, a pari-mutuel wagering system for 
your Derby party; plus seven additional programs. 



To order by phone, call: (502) 228-4492 



Software Review, 
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PenPal is Useful 
and Affordable 



PenPal is an integrated software package that includes 
a word processor, a spreadsheet, database, communications 
package and a graphics package. Users have options to print 
out data from the spreadsheet and produce pie graphs, 
horizontal or vertical lines, dot or bar graphs. Files can be 
transferred between modules, saved to disk, sent to a printer 
or transmitted over a modem. All these functions can be 
accomplished without leaving the integrated program. 

Each program module has its own online help screen at 
the bottom of the screen. The keys ' I ' through '9', '0', ':' and 
'-' in conjunction with the CLEAR key and the SHIFT-CLEAR 
keys act as functions 1 through 12 and alternates 1 through 
12 respectively. 

PenPal requires 64K and at least one disk drive. While 
a graphics printer and a modem are considered optional, 
there are many features you will not be able to use without 
them. A second disk drive is also useful since you must have 
a program disk in Drive 0. If you only have one drive and 
must save disk space, you make a program disk that 
contains only the modules and help files you are using 
during that particular session. With two drives you have all 
the modules on the program disk in Drive and you have 
a files disk in Drive 1. Two drives increase the versatility 
of PenPal. 

Besides the five modules in the integrated package, the 
main menu also allows manipulation of files. Function keys 
in the main menu allow swapping the default drives, 
renaming files, display free space on the default drive, kill 
files, display an expanded directory, change the drive step 
rates or run a configure program to set all of the above 
defaults. Along with these seven functions, PenPal has four 
alternate functions that are available at any time from any 
of the modules and main menu. A simple calculator is 
available, the option to set up the printer defaults, toggle 
between white and green screen display modes or a help file 
can be called up for the specific module currently engaged. 

Now, the individual programs do not always have all the 
bells and whistles some of the larger, more expensive 
programs have, but in a few cases PenPal has more bells 
but less whistles. For example, the Write module is slightly 
restricting in that you definitely do not get what you see, 
i.e., the way the text looks on the screen is not necessarily 
how the printout looks. In my opinion, this is the chief 
weakness of the program. I would like to see a 64-column 
mode. The screen is Hi-Res consisting of 50 columns. While 
the Write module does not have all the options some bigger 
programs have, it does have 18 functions, making the first 
nine function keys used twice. These functions include Find 
and Replace, an overstrike or insert mode, delete character 
and line functions and the ability to merge files to the end 
of the current file. Also available are multiple block 
functions. 

The Calc module includes most of the more popular 
functions. The spreadsheet is laid out into 255 columns and 
255 rows. Of course, you cannot have a 255 column by 255 
row spreadsheet but this layout does allow the user good 
flexibility. The Database module includes many options of 
the more popular databases. While no database is going to 



cover everyone's needs, PenPal's version should cover most 
requirements. 

The Graph-It module is very useful for creating graphs 
from the data of the Calc portion of PenPal. Users are given 
seven options of the type of graph to plot. As mentioned 
earlier, possible selections are a pie graph, horizontal or 
vertical line dot or bar graphs. Users can then add more 
than five styles of text as labels, print the graphs out using 
standard or double-width modes, or save the graph in a 
binary format and later modify it with any of the several 
commercially available graphics programs. PenPal comes 
with six printer drivers: Epson, Gemini, CGP-220, the DMP 
series, LP VII and VIII, and C. Itoh 85IOA. This module 
has many options and a review could be written on just this 
module alone. It is the most powerful module of PenPal. 

The Telecom module is the last of the PenPal modules 
and is also well-designed. When at the main menu, users 
can choose any of the auto-log files they have created for 
any BBSs wanted or they can create a new auto-log file to 
get on a new BBS in the area. Once in Telecom, users have 
all the options of most terminal packages and maybe even 
some added features. 

For instance, you can use the auto-log file you called up 
or you can go straight to the terminal mode. For transferring 
data you have three protocols from which to choose. You 
can use the simple mode that has no built-in checks or you 
can use the very popular XMODEM protocol. You also 
have a third choice, PenPal's own protocol that uses a 
checksum to ensure error-free transmission. This last option 
can only be used if the other party also uses PenPal. 

The more I used PenPal the more impressed I became. 
It is nice to be able to switch between the modules quickly 
and have all the data from the different modules compatible 
with each other. There are other packages available that do 
this, but they are not as affordable as PenPal. It may be 
true that if taken separately, any one of the modules is not 
outstanding, but together, PenPal makes a very useful 
package. The weakest part of PenPal is the 50-column 
screen on the Write module, but I believe the power in the 
Graph-It module compensates for this weakness. 

The documentation is well-written and is very easy to 
follow. Four Star Software seems to have done it again, and 
I readily recommend PenPal. 

(Four Star Software, P.O. Box 730, Streetsville, Ontario, 
Canada, L5M 2C2, 64K disk $89.95 U.S., $119.95 CDN) 

— Dale Shell 
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CAIS Ends Chaos in 
Your Checking Accounts 



CAIS stands for Checking Account Information System, 
a disk-based program that requires at least 32K and a disk 
drive. It handles multiple drives for data disks and sends 
to any 80-column printer, but does not require one. It is 
written in BASIC in seven disk modules, which are accessed 
during the running of the program. It also POKES machine 
language routines that disable the BREAK key and enable 
virtually error-free screen input of data. 

CAIS records checking account transactions, including 
Automatic Teller Machine (ATM) transactions, interest and 
service charges, and other debits and credits into disk files 
that maintain a record of that account. The program then 
functions to reconcile your checking account when you 
receive your statement, maintaining a history of both 
reconciled and outstanding debits and credits. The program 
is capable of maintaining records on eight accounts using 
the same program disk, although additional data disks in 
additional drives are necessary for more than two at once. 
Each data disk is capable of holding three accounts. 

It also prints reconciliation summaries and account 
summaries. Although no accommodations are made within 
CAIS for advanced printer capabilities, they could easily 
be added by altering the BASIC program. 

Program functions are accessed through menus. The first 
order of business is to set up the accounts by name of bank, 
account number, whether it is an interest bearing account 
or not, and the drive number on which the data will be 
found. That account is then created on the disk. You may 
then post transactions, which include the listing of checks, 
deposits, ATMs, interest, service charges and miscellaneous 
debits or credits. 

When the bank statement arrives from the bank, you 
select the "reconcile account" option, which steps you 
through all your recorded transactions as you indicate, one 
by one, whether those transactions have been cleared or not. 
You are also prompted to indicate service charges and 
interest earned. When you are finished, CAIS creates a file 
of cleared transactions called a "history file" and maintains 
outstanding checks, etc., in an active file. This module offers 
the option of getting a printout of the reconciled and 
outstanding checks, as well as current summaries of your 
checking account. Naturally, the program maintains the 
current balance in your accounts at all times. 

Selecting the "display accounts" option offers the choice 
of seeing your current balance, reviewing your current 
transactions, searching for specific checks and getting a 
complete summary of any account. It is this module that 
offers editing capabilities for all transactions that have not 
yet been reconciled. Although you might expect to be able 
to get a printout of the account summary option, it is not 
possible from this menu. 

The last main menu is that offering the "file management" 
options. From this menu you can change or delete whole 
accounts or purge an account history. The latter is an option 
meant to clear the transactions from an account at the end 
of a quarter or a year. When an account history is purged, 
the option to print out all transactions of the purged period 



of time is offered. In a typical scenario, this printout would 
be a valuable reference to search for tax-deductible expenses 
at that time of the year. The purge also empties the data 
from the account disk file giving you a clean slate of disk 
space on which to start a new year. 

A final option is to get a display of the disk utilization, 
which keeps you posted on the available disk space for any 
account. Three files are created for each account, one for 
credits, one for debits and one that holds cleared transac- 
tions. The number of disk granules used for each file, as 
well as the percent of disk space available, is given. 

I was especially impressed by two aspects of CAIS: the 
documentation and the screen input. The documentation is 
43 8'/2 by 1 1 -inch pages in a soft vinyl folder, produced by 
a dot-matrix printer. But what impressed me is its organ- 
ization, clarity and lack of errors. Each menu is reproduced 
in the documentation, each option is explained whenever 
it is available, and proper use of indentation and boldface 
type make its use as both a tutorial and a reference possible. 
The last page is a form soliciting user comments. 

The screen input, accomplished by poking a machine 
language routine into memory, makes entry easy. 1 will use 
the entry of checks as an example. The data lines are check 
number, date, amount and payee. Data is entered into a blue 
field with arrow keys controlling the cursor. The check 
number is automatically updated after each check, but may 
be changed by typing the new number. The cursor moves 
to the next line when the field is full. The date must be 
entered by MM/DD/YY (Month, Day, Year — two digits 
each), but only changed data need be entered; other 
numbers stay as they were. The amount is registered as 
dollars until the user presses the decimal (period). It is not 
necessary to enter the decimal or zeros if there are no cents. 
The payee line is 30 spaces long. Since the search-for-checks 
function selects from any part of the string, you could use 
the ample field to describe checks by categories in addition 
to payee. 

The unfortunate part of CAIS is that one of the really 
useful parts of a program for recording all your checks is 
missing. After creating diskfuls of files with my year's 
checks, I would expect to be able to pull out expenses by 
categories that may be tax-deductible, get the total and a 
printout. Organization by category would also be useful for 
setting up budgets. The rather limited printout options are 
also a drawback. I would like to be able to change the printer 
Baud rate within the program. It would also be useful to 
get printed reports of checks from one date to another and 
reports showing all checks to specific payees. 

If you have more than one checking account, even up to 
eight, the program helps you track and update them all 
easily. I would like to see the implementation of my 
suggestions because the quality of CAIS leads me to expect 
good things from possible upgrades. Overall, however, 
CA IS is a good applications program that delivers a quality 
job for the dollar. 



(After Five Software, 8100 Bayfield Rd., Apt. 8-0, Colum- 
bia, SC 29223, $24.95 plus $2.50 S/H) 



— Dennis A. Church 
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DeskMate® 7*in4 software 

makes your Color Computer 

better than ever. 



Now our popular Deskmate® soft- 
ware is available for disk-based 
Color Computers! DeskMate 
(26-3259, $99.95) features seven 
popular personal-productivity 
programs — all on one disk! 

A general-purpose TEXT entry 
and editing program performs 
search and replace, file merge and 
block select, copy and delete. It's 
ideal for writing correction-free 
letters, memos and short reports. 

A simple spreadsheet program in- 
cludes an easy-to-use menu and au- 
tomatic column formatting. You can 
use LEDGER to do budgeting, 
sales forecasting, profit-and-loss 
projections and other "What 
if. . .?" calculations. 

A four-color picture editor lets 




you create lines, 
shapes, patterns, 
fills in areas 
with color and 
enter text. Using 
PAINT, you can 
LEDGER create colorful 

charts, graphs, designs and "doo- 
dles" on your screen, then print a 
copy on a dot-matrix or ink-jet 
printer. 

The INDEX CARDS personal fil- 
ing system lets you enter and edit 
data and per- 
form simple 
sorts and 
searches. It's 
ideal for keep- 
ing track of 
names and 
addresses. 




INDEX CARDS 






TELECOM, a 
communications 
program lets 
you access na- 
tional informa- 
tion services, 
TELECOM pl us transmit 

and receive files from other com- 
puters by phone (requires modem), 

A simple monthly calendar pro- 
gram displays "to do's" for any date. 
CALENDAR is an easy way to or- 
ganize your work day. 

A four- 
function CAL- 
CULATOR, with 
memory, is also 
available within 
any application 
TEXT EDITOR without inter- 
rupting the screen in the program 
you are currently using. 

If you don't already have a disk 
drive for your color computer, you 
can add one 
for just $299 
(26-3131). The 
5 1 /-.", thinline 
floppy drive 
plugs into your 
Program Pak® 
CALENDAR port for over 

156,000 characters of storage. Add 
a second drive at any time, too. 

Radio /hack 

The Technology Store" 

A DIVISION OF TANDY CORPORATION 




Free! New 1986 Software Guide RSC-16. 



I 
I 



Mail to: Radio Shack 

Depl. 86-A-97, 300 One Tandy Center 

Fort Worth, Texas 76102 



Name 

Address . 



City _ 

State . 



Phone . 



Price applies at Radio Shack Computer Centers and par- 
ticipating stores and dealers. DeskMate/Registered TM 
Tandy Corp. 
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Symphony 12 is an Excellent 
Music Synthesizer 



Symphony 12 is another release from Speech Systems and 
is one of a long line of excellent products developed by them 
for the Color Computer. Symphony 12 is a I2-voice 
hardware music synthesizer. It comes in a ROM pack along 
with tape/disk software that contains the necessary 
programs to operate the synthesizer and some sample music 
files for listening. This creation is a marvel for a machine 
that is supposed to have one operational voice. Some 
software developers have created programs with BASIC and 
machine language to create up to four voices, but this from 
Speech Systems emulates 12 separate voices. It features four 
noise channels and plays in stereo or mono. It can be hooked 
up to your home stereo or jam box. Special sound effects 
can be created and Symphony 12 is compatible with Musica 
files (Version 2.7). 

Symphony 12 alone comes with a program disk or tape 
and the ROM Stereo Pack. The options available include: 
Piano Keyboard (2'/ 2 octaves) for $79.95, Piano Keyboard 
(4 octaves) for $1 19.95 and Y-Cable (required for disk) for 
S28.95. 

I used a Mutli-Pak Interface to connect the hardware 
cartridge and disk controller to my computer. 1 put the disk 
controller in Slot 4 and the sound cartridge in Slot 3. The 
sound cartridge has two RCA-type jacks that can connect 
to your stereo system. If you want to connect the stereo 
cartridge to your computer monitor, you need a Y-adapter 
cable so you can hear both output channels. Symphony 12 
comes with a stereo patch cord to connect the stereo 
cartridge to your stereo or computer monitor. 

I didn't have one of the piano keyboards for this review, 
therefore I had to use the CoCo keyboard. Symphony 12 
uses the bottom two rows of keys as the piano keyboard. 
The 'Z' through '/' keys are the white notes (A, B, C, D, 
E, F, G, A, B and C). The second row of keys, 'S' through 
'L', are the black notes and correspond to B flat, D fiat, 
etc. The CoCo keyboard allows you to play around with 
the various voices of Symphony 12. However, it is very 
limiting and difficult to play anything halfway serious. 
Octaves can be raised and lowered, but must be done 
manually by pressing the SHIFT key and one of the up- or 
down-arrow keys. You are given a visual piano keyboard 
on the computer screen and indicators are given as each note 
or chord is played. For serious users. Speech Systems and 
I both recommend one of their piano keyboards. 

If you are already a Musica owner, you may use your 
Musica creations with Symphony 12. However, only four 
voices are available to you. To take advantage of the 12 
simultaneous voices, you must create the music with 
Symphony 12. 

Symphony 12 gives you control of many aspects of 
generating various sounds. You have control of volume, the 
envelope (sound shape), noise, rhythm and preset instru- 
ment settings. The program comes with nine preset settings, 
each of which can be changed or adjusted to fit your 
particular needs. This allows the user to quickly change 
from one voice setting to another. Once you set up voicing 
to your liking, you can save the settings to tape or disk for 
future use. 



The music you create with Symphony 12 can be recorded 
in real time, or saved to disk or tape for future playback. 
When you press the 'R' key, everything you play is 
remembered by the computer and replayed at your 
command. The manual does not indicate how much the 
program can remember, but this is an excellent feature. If 
you make a mistake, you must start over again with the 
recording and the previous one is erased. A special feature 
of playing music is when you press a note to sound, you 
can "bend" the sound up or down. By pressing the CLEAR 
key you raise the pitch, and the shift-clear to lower the 
pitch. I found this feature absolutely fascinating! 

Envelope and noise control are somewhat complicated, 
but the manual gives very simple information to control 
these features. The manual also gives technical specifica- 
tions for the A4-3-89I2 chip that is the heart of the 
Symphony 12 program. This would be useful to serious 
programmers and technical users. Noise can be used to 
accompany the sound so that it takes on a breathy quality, 
but noise and rhythm cannot be on at the same time. 

When playing musical files, you are asked if they are in 
the Musica format or the Symphony 12 format. You can 
play a Musica file in the Symphony 12 format, but 
remember, you can only use four voices. One nice feature 
this method allows is to change instrument settings as the 
music is played. This is particularly fun and enjoyable. You 
can also play each of the four voices as separate instruments. 

Symphony 12 has a demo program that shows how to 
create various sound effects. You hear a wolf whistle, race 
car, Pacman laser, bomb, steam locomotive, and a little 
Bach, among others. Symphony 12 files can be accessed 
from BASIC and the manual gives those instructions and a 
sample printed program. 

This program would be a great addition to any music 
lover or user's library. Symphony 12 does not support 
printer operations, therefore files must be recorded in the 
Musica format and transferred to the Musica program for 
printing. Speech Systems has quite a library of Musica files 
for your enjoyment and they are quite inexpensive. There 
is also a National Musica Users Group that supports this 
program. 

You can gather that I enjoyed Symphony 12. My only 
dream is to have a program that allows you to play a note 
on a keyboard (piano or computer), display the note on a 
musical staff, sound the note or chord and send it to a 
printer. Maybe that will be next from Speech Systems. 

(Speech Systems, 38W255 Deerpath Road, Batavia, IL 
60510,579.95) 

— James Ray 
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CoCo Max II Features 
Major Enhancements 



CoCo Max //is an enhanced version of the original CoCo 
Max graphics system that was reviewed in the June 1985 
issue of THE RAINBOW (Page 217). The materials I received 
for this review were for the upgrade to CoCo Max II from 
the original version of CoCo Max. If you're not familiar 
with CoCo Max, please refer to the previous review; I'll be 
highlighting the enhancements to CoCo Max that upgrade 
it to CoCo Max II. 

CoCo Max II is available to disk users only for $79.95 
plus $3 shipping and handling. The original CoCo Max was 
discontinued after January 1986. CoCo Max owners may 
upgrade to CoCo Max II for a fee of $20 plus $3 to cover 
shipping and handling. 

The CoCo Max II upgrade comes with a non-copy- 
protected diskette and a 16-page User's Manual Addendum. 
The diskette contains the CoCo Max system, one picture 
(not much room on the disk for more), a second pattern 
set, and a BASIC program to configure the system for 
multiple drives, various printer models and Baud rates. 

My diskette contained machine language drivers for C- 
Itoh, DMP-I00, DMP-I05, DMP-110, DMP-120, DMP- 
200, DMP-400, Epson MX, Epson RX, Gemini, Gemini X, 
LP VIII, Oki 82, Oki 92 and TRP-100 printers. 

The User's Manual Addendum is comprehensive, illus- 
trated and well-organized like the original CoCo Max 
User's Manual, and its packaging matches the original. 

New Features 

Multiple drives are now supported; the CONFIG 
program supplied enables you to configure CoCo Max II 
for the number of drives in your system. "Clicking" the 
Drive option in the Files menu changes the working drive 
number. 

CoCo Max II has error reporting, a deficiency of the 
original. CoCo Max II informs you if the disk is full, or 
if you try to load a non-existent file. 

Files may now be loaded by "clicking" on the directory 
listing in addition to manual entry from the keyboard. 

A Clipbook file has been added to save any Clipboard 
file to disk under the filename CLIPBKXX/S YS (where the 
"XX" is any two-digit number) for later retrieval. The 
maximum number of Clipbook files you can get on one disk 
is 68; they're saved in standard machine language format. 

The patterns created with the Edit Pattern function can 
now be saved to disk. The Files menu includes a Save 



Hint 



Command Disable 



To disable the LIST and DIR commands on your 
computer, use POKE 158. This simple POKE can be 
undone by entering POKE 383,126. 



Pattern function to save the current pattern set in a file called 
PA TTERN3/ MAX. You have no control over the filename 
the pattern set is saved under. If you want to make another 
pattern set to save, you must quit CoCo Max II, rename 
the PA TTERN3/MAXi\\e and re-enter CoCo Max II. The 
next Save Pattern saves the pattern set as PATTERN3/ 
MAX. The procedure to load a pattern set is the same as 
that for loading a picture: the file's address information 
causes it to load into CoCo Max ITs pattern tables rather 
than the picture area. 

Fourteen different character fonts are now supplied 
including the new Glyphic font. Some of these are size 
variations of one font (small, medium, large), but overall 
a good selection to fit many applications. The Glyphic font 
associates a small drawing to a key (similar to sprites on 
other computers), for instance, the 'a' key causes the 
".pencil" icon in the tool kit to be drawn, the 'b' key, a pair 
of eyeglasses, and so on. Youngsters will certainly be 
fascinated with this font, which allows them to make rubber 
stamp-like drawings by using the keyboard. 

Edit Pattern has a new feature that enables you to pick 
up a pattern from a picture by "dragging" the mouse over 
the picture area; releasing the button captures the pattern. 

A Window Locator has been added to the Show Page 
function that lets you select your working area from the 
entire picture in the Show Page display. 

A Rotate function has been added to the Edit menu. Parts 
selected by the Edit Box may be rotated 90 degrees 
clockwise about the center of the box. 

A dynamic two-dimensional Stretch feature has been 
added that lets you stretch or shrink part of the picture 
selected by the Edit Box. By holding down the space bar 
and dragging the mouse in the windowed portion of the 
picture, the window stretches or shrinks in the direction the 
mouse moves. 

Deficiencies 

CoCo Max II deficiencies are minor and few. Lack of 
access to file functions such as Kill and Rename are not 
serious, just slightly bothersome. CoCo Max has no 
provision for killing or renaming files. 

The inability to handle filenames in Disk BASIC syntax 
is annoying. I succeeded in saving a file called I:JUNK on 
Drive 0; Disk BASIC would have recognized that 1 wanted 
the file JUNK on Drive 1, but CoCo Max thought the "1:" 
was part of the name. 

Though not deficiencies, here are a few things I'd like to 
see added to CoCo Max II: a programmable grid, such as 
one for printed circuit board layouts; a programmable zoom 
magnification; and rotation for increments smaller than 90 
degrees. 

Conclusions 

CoCo Max II offers a major improvement over the 
original CoCo Max in respect to file handling and error 
reporting. The enhancements of multiple drive support, 
window stretching and clipbook files provide a new level 
of performance to an excellent graphics system. 

(Colorware, Inc., 78-03F Jamaica Avenue, Woodhaven, NY 
11421, 64K disk, Y-cable or multi pack Interface, joystick, 
mouse or touch pad required, CoCo Max II disk $79.95 plus 
S3 S/H, CoCo Max II upgrade disk $20 plus $3 S/H) 

— Jesse W. Jackson 
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Euclid would be Proud 

of PLANEGEO 

and PGCALPRT 

By John McCormick 

PLANEGEO and PGCALPRT both do practically the 
same thing: they calculate the various parts of most plane 
geometric figures (square, circle, polygon, rectangle, 
parallelogram, trapezoid, right triangle, oblique triangle 
and ellipse) from the various combinations of data you have 
available (diagonal, side, area, etc.). These programs are 
aimed at engineers and others who have a regular need for 
these calculations. 

You might ask just why an engineer would need to have 
a program to tell him the area of a square is found by 
squaring one side. Well, if you do, please tell me (off the 
top of your head) what is the area of a circle having a chord 
length of 100 feet and a chord height of 10 feet? According 
to PLANEGEO the area is 53,092.917 square feet. 

Both PLANEGEO and PGCALPRT are written entirely 
in BASIC "to permit the user to make changes" (a comment 
in the documentation I found prophetic). 

The lack of machine language is no handicap since the 
actual calculations performed in the program are quite short 
and BASIC doesn't really slow down the operation at all. 

A nice touch is the Conversions program, which converts 
various data, such as feet, inches and fractions to feet and 
decimals, or the reverse, to the nearest '/i6 inch and also 
converts angles in various ways. 

PLANEGEO 

This program comes on a double-sided disk (which must 
be turned over for some calculations) and has a smaller 
user's manual because almost anything you want to know 
about these geometrical figures is included in the program 
itself. 

Talk about user friendly! There are over 100 menus in 
this program (if I didn't lose count) and you can even call 
up an illustration of a square and be shown graphically what 
a side looks like. The menus also offer a complete listing 
of the formulas used in all calculations and word descrip- 
tions of the process. 

These extensive help menus don't slow down the program 
(other than the fact that the extensive on-screen documen- 
tation requires the two-sided disk) because they only appear 
if you request to see them. Even this is not much of a 
problem since all calculations for a given shape are done 
with no disk changes. 

What PLANEGEO doesn't have is a way to print out the 
results, which brings us to: 

PGCALPRT 

This version does exactly the same calculations as the 
other but, because of the reduced on-screen documentation 
(the user's manual is over twice as big as PLANEGEO's), 
the entire program fits on one side of a disk, thus eliminating 
some delays. 

PGCALPRT prints out results. Unfortunately, in my 
opinion, it always prints out results. In fact, it won't even 
run without a printer online. This feature can lead to lots 
of wasted paper. 



BUGS 

I wish I didn't need to have this section but, alas, these 
very user-friendly programs do 'contain some bugs. 

In PGCALPRT, for instance, if you try to exit the 
conversions portion of the program you find that the 
authors accidentally used the conversions subprogram from 
PLANEGEO and it therefore calls the wrong program (NE 
Error in Line 610). Anyone with experience in BASIC can 
easily repair this bug (change RUN"PLFINGE2" to read 
RUN"PGCRLPRT"). This repair allows the program to 
operate but still leaves a problem. The version mistakenly 
used in PGCALPRTdoes not print out results. This means 
that after running a conversion you must copy down the 
results before returning to your calculations. TASC 
acknowledges the problem and I feel certain they will have 
it corrected. 

Another problem cropped up in PLANEGEO when 
trying to use "Parts of a Circle." Line 1800 contains a 
reversed ')' (close parenthesis mark) after POKE. The 
program ran fine when I changed this to '('(open parenthesis 
mark). 

Room for Improvement 

The first point is a matter of judgment. The program 
contains no provision to prevent erroneous input data (for 
instance, you can calculate the area of a one-sided polygon). 
One of the authors, a chemical/ mechanical engineer, told 
me that since the program is aimed at professionals he felt 
(subject to user complaints) that this modification is not 
needed. 

Personally, I feel such a user-friendly program cried out 
for this further enhancement to prevent accidental input 
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THE RAINBOW'S 

"One-Liner Contest 

'has now been expanded 

to include programs of 

either one or two lines. This 

means a new dimension and new 

opportunity for those who have "really 

neat" programs that simply just won't fit in 

one line. 

Here are the guidelines: The program must 
work in Extended basic, have only one or two 
line numbers and be entirely self-contained — 
no loading other programs, no calling ROM 
routines, no poked-in machine language code. 
The program has to run when typed in directly 
(since that's how our readers will use it). Make 
sure your line, or lines, aren't packed so tightly 
that the program won't list completely. Finally, 
any instructions needed should 
be very short. 

Send your entry 
(preferably on cassette) to: 
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but, on the other hand, since the program only performs 
very limited calculations, there is very little chance that an 
erroneous input would lead to further trouble. 

Now we come to what I consider a serious mistake. I did 
not like the fact that PGCALPRT did not allow me the 
option of printing or not printing my results; I think that 
changing this would be a great improvement in the 
usefulness of the program. 

It may be nit-picking, but the fact is that neither program 
addresses the problem of the trapezium (for those who need 
a refresher, a trapezium has four sides with no two parallel). 
The user's manual points out . . . "It is a very common 
figure. Most real property is of this shape . . ." and 
recommends that a trapezium be broken down to two 
triangles and solved that way. This is certainly the way to 
approach a trapezium, but I feel a program that offers to 
define the area of a square should have presented more 
information about this "very common figure." 

I know it is easy for a reviewer to make suggestions since 
he didn't sweat over the original product, but I have a few 
anyway. 

The authors consistently point out that the program is 
designed for professionals, yet they include even the most 
elementary of explanations. This is not a fault, it is a virtue. 
I feel that if PLANEGEO had a bit more information added 
it would make a fine educational tool; it is almost ready to 
give to a high school student in its present form, and 
certainly with a little added information (perhaps just a new 
user's manual) it would be a better educational program 
than many I have seen. 

My other suggestion is to make printing optional for 
PGCALPRT instead of mandatory. In my opinion, this 
would make it a better product for professionals. 

Conclusion 

Apart from some minor bugs, these are good programs 
— very user friendly. In my college days we carried slide 
rules and CRC books at all times and dreamed of programs 
like these. 



(TASC, 10619 Bayou Glen, Houston, TX 77042, 32K ECB 
and disk drive required, PLANEGEO disk $25, 
PGCALPRT disk $25, or both $40) 
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See You at 

RAINBOWfest-Chicago 

May 23-25 



CoCo Keyboard Software 
Increases Function Key Duties 

If you are among the people who have switched your 
original CoCo keyboard to one of the popular replace- 
ments, here is a short program you may be interested in. 

The CoCo Keyboard Software works on a 16/32/64K 
CoCo with Disk Extended BASIC. To start the program type 
RUN"B00T" and press ENTER. A title screen appears and 
allows you to specify how much memory your computer 
has. A short machine language program is loaded and auto- 
executes, resulting in these function key uses: 

H.IL-57 and Micronix keyboards: 

Fl=Text screen dump 

F2=Tap & release-9600 Baud printer 

F3 + SHIFT=BASIC LIST 

SHIFT + F4=Cold Start 
A Deluxe keyboard has these function key uses: 

ALT=Text screen dump 

CTRL=9600 Baud printer 

Fl + SHIFT=BASICLI5T 

SHIFT + F2=Cold Start 

My CoCo has the HJL-57 Keyboard and CoCo Key- 
board Software worked fine, although 1 did notice one bug. 
After hitting FI for the text screen dump, the '@' symbol 
returns following the cursor. All the other functions worked 
fine. 

Although the HJL-57 Keyboard comes with a listing to 
program the function keys, the keys do things other than 
the screen dump, namely key repeat, upper-/ lowercase 
toggle and a control key. CoCo Keyboard Software then 
provides the user with three additional often-used functions 
and is inexpensive. 

The disk is not copy protected, so backup copies for your 
own use is not a problem. 

The documentation consists of a half page instruction 
sheet and is adequate for a short program of this nature. 

If you use the function keys on your replacement 
keyboard and/ or would like to increase their duties, CoCo 
Keyboard Software can fit your needs. 

(Spectrum Projects Inc. P.O. Box 21272, 93-15 86th Drive, 
Woodhaven, NY 11421 $14.95 plus S/H) 

— David Gerald 



OS-9 BULLETIN BOARD 

PBBS 4.0 Features: 300/1200 Baud - A levels 

Definable drive names - Multiple sub-boards - Chat 

Operation visible on screen - EXPANDABLE!!! 

Requires. OS-9 - Basic09 - TRS-80 RS-232 pak 

Multipak or Y-cable - 3 floppy drives or Hard drive 

Hayes-compatible modem. 

Send check or ffO 5. D. Roberson 
for $50.00 to: 1702 Writ Veiw 

(AZ res. add 6.5ft) Mesa, AZ 85201 
See PBBS in operation 24 hours a day: 602-899- 1350 
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Conquering A rmies 
is a Challenging Simulation 

Conquering Armies is a satisfyingly difficult game to play. 
There are 50 levels of difficulty. Level 50 must be a real killer, 
because the highest I was able to go was level seven. The 
game is played on a map of the mythical kingdom of Glasco. 
You are the heir to the throne, and six of seven of your 
provinces have been taken over by enemy forces. Your task 
is to recapture your lands. (No matter at which level you 
play, this scenario stays the same, i.e., the same six provinces 
are always under enemy control and you are always in 
control of Avon.) 

Depending on the level of play selected, the number of 
troops you control will differ. They are divided into the 
categories of knights, light cavalry, men-at-arms and 
archers. Typing T at any point gives an inventory of the 
areas and troops you control and gives the option of 
creating an army with some or all of those troops. You also 
have one, two or three allies that can help by giving extra 
troops if you can get one of your armies to their castles — 
not always an easy task. The number of allies varies with 
the playing level and random chance. Each time you 
recapture one of your lands, you also gain troops. The 
liberated inhabitants also enlist with you, showing their 
gratitude by their willingness to be slaughtered in your next 
battle. 

The playing screen is a nicely done map. The small red 



The Coco Greeting Card Designer 

The Coco Greeting Card Designer can be used to design 
and print custom Greeting Cards for all occasions 
including: Valentine's Day, Birthdays, Mother's Day and 
more. 

It's easy to use and includes a library of predrawn Hi-Res 
Graphic Pictures! You can write custom messages on the 
cover and inside your cards in a selection of character 
fonts and sizes. An easy to use editor allows you to pick 
your type style, font size, and more. Two fonts and a 
selection of custom border patterns are included, and the 
easy to use editors allow you to create many more! 
The Coco Greeting Card Designer requires a Coco or 
Coco II with a minimum of 32k, One Disk Drive (Disk Ext. 
BASIC 1.0/1.1, ADOS, or JODS). Some of the printers that 
the Greeting Card Designer supports are: EPSON RX/FX, 
GEMINI 10X or SG-10, C-ITOH 8510, DMP-1 00/1 05/400/ 
430, SEIKOSHAGP-1 00/250, LEGEND 808 and GORILLA 
BANANA. Send an SASE for current list of other compat- 
ible printers. See Review in April 86 Rainbow . . . ^^ 

Only: $24.95 

Plus S3. 00 Shipping & Handling 

NY Residents add Sales Tax. 

UPS COD ADD S3.00 

VISA7MC Accepted 

ZEBRA SYSTEMS, 
INC. 

78-06 Jamaica Avenue 

Woodhaven, New York 11421 

(718) 296-2385 

Dealer Inquiries Invited 

Colored Paper Packs — Now available are packs of 40 
sheets of tractor-feed paper and 16 matching envelopes 
in bright RED, GREEN and BLUE. Perfect for making your 
card unforgettable! Price $19 95 







castles represent castles that rule the country of their 
location. The large red castles are capital cities. Red lines 
mark off countries, with yellow areas controlled by you and 
green areas controlled by the enemy. A blinking green dot 
indicates an enemy army on the move. Since enemy 
territories are green, their armies are invisible until they 
cross your borders. They will occasionally flash, giving you 
the equivalent of a "rumor" of their approach, a nice touch. 
Your armies (you can have up to five armies active at any 
one time depending on the troops you control) also show 
as a blinking dot, visible at all times. You move your troops 
with the right joystick. 

You win this game by recapturing all your lands, a feat 
accomplished by successfully laying seige to each area's 
castle. Once you start a seige, the computer runs the battle. 
You will win a seige if you outnumber the defenders, but 
your troop strength is often reduced by ambushes that occur 
with distressing regularity, another realistic touch. Also, the 
enemy is likely to attempt to retake a castle they have just 
lost, so leaving a garrison behind is a must. This, of course, 
limits the amount of troops you can put in the field. 

You can also confront an enemy army in the field — here's 
where those "rumors" come in handy. Since the enemy 
moves at the same speed that your armies do, you must head 
into them or cut them off; there is no catching up with them 
in this game. Again, once the battle is joined, the computer 
takes over, and again, you will win if you outnumber the 
enemy, especially in the key areas of knights and light 
cavalry. The odds are slightly in your favor if you are 
defending a castle, slightly in the enemy's favor if you are 
beseiging them, and equal for a battle in the field (assuming 
equal numbers of forces). This is an attempt to recreate the 
actual odds of medieval battles, where the defenders of a 
castle did have an advantage over an attacking army. 

Earlier I said that you win the game by recapturing your 
lands. I find that this is not quite true. Once you have 
retaken your lands, the enemy launches anywhere from one 
to three more attacks. If you defeat these, you win. If the 
enemy recaptures one of your castles, the game continues 
with the enemy sending in increased numbers of troops, a 
touch you may not think of as a plus. 

It takes several playings to get a feel for this game, but 
your skill increases with each round. Luck does play a part 
in this game, bu* skill and foresight can carry you through 
some bad luck. There is just enough randomness (the 
ambushes, the number of allies, etc.) to make the game a 
challenge at any level. The game played smoothly at all the 
levels 1 tried. Indeed, the only complaint I have is the 
slowness of movement of the armies. All the people I invited 
to try this game, adults and children, had the same 
complaint. Some also complained about the length of time 
some of the battles took, but this becomes a problem only 
if you have or are confronting really massive (20,000+) 
numbers of troops. The documentation (three typed pages) 
is more than adequate. The game has many little pluses, 
even including some humor in the documentation. 

All in all, Conquering Armies is a winner — fun to play, 
and as challenging in its own way as some text Adventure 
games. 

(Mitchell Software, P.O. Box 194, Tomahawk, WI 54487, 
I6K cassette or 32K disk S9.95 plus $1.50 S/H) 

— Mark Williams 
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PAPER ROUTE 




SCORE 
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As a paper boy, you ride your bike along your 
route delivering papers to your customers. 
Break customers' windows or damage their 
property and they will cancel their 
subscriptions! Earn bonus points by damaging 
non-subscribers' property. Avoid pedestrians, 
cars, and maybe even a mad dog in your 
attempt to deliver all your papers! Detailed 
graphics and lots of surprises make this game a 
real challenge foreveryone. 



64 k and joystick required 
tape or disk 



$28.95 us 

$38.95 Can 



KARATE 
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Challenge the computer, or a friend to a Karate 
match! In this game, you will use various Karate 
punches and kicks to knock your opponent down 
and earn points to win the match. When challeng- 
ing the computer, your opponent's Karate skills 
increase as you win matches. This game is a 
challenge for even the expert game player. 



64 k and joystick required 
tape or disk 



$28.95 us 

$38.95 Can 



MARBLE MAZE 




Move your marble around the mazes 
in your search for the finish line! 
Avoid the marble eaters, acid puddles 
and other creatures that inhabit the 
mazes. Avoid falling into holes or off 
the edges of the maze. Eight different 
levels and great graphics make this 
game a must for your collection. 
Congratulations to the contest 
winnersl 

64 k and joystick required 
tape or disk $28.95 U.S. 
$38.95 Can. 



KNOCK OUT 





Fight against five different boxers in this great boxing game! At first the boxers are easy 
to knock out, but beware, it gets harder as you move on. The boxers are out to stop you 
in your quest to become champion of the world. But once you become champion your 
task is not over. You will then have to defend your title against those trying to regain the 
championship from you. Outstanding graphics make this a must for your collection! 

64 k required 

tape or disk $28.95 U.S. $38.95 Can. 



6715 FIFTH LINE, MILTON, ONT., CANADA L9T 2X8 



We accept: 




24 hr. order line: 

(416) 878-8358 

personal service 9-5 



Please add $2 for shipping 
& handling. Ontario 
residents add 7% sales tax. 
Dealer inquiries invited 
Looking for new software 



cheque or money order 
COMING SOON MISSION F-16 ASSAULT ANDMISSION RUSH N' ASSAULT 



Now from Falsoft, The RAINBOW MAKER, comes . . . 




The monthly magazine that's reader-friendly 

If you're interested in the highly popular Model 100, the Tandy 200, the brand new portable Tandy 
600 or Tandy's new generation of MS-DOS computers — the 1000, 1200, 2000, or the exciting new 
Tandy 3000 — PCM is for you! 

PCM, The Personal Computer Magazine for Tandy Computer Users, is brought to you by the same 
people who bring you THE RAINBOW, the premier magazine for the Color Computer. Need we say more? 

So, if you're ready to add portability or step up to MS-DOS, stay with Tandy and THE RAINBOW family 
by subscribing to PCM! 

FREE PROGRAMS! 

We learned from THE RAINBOW that readers want programs to type in , so each month we bring you 
an assortment of them, including games, utilities, business applications and graphics. 

BAR CODE, TOO! 

Also, PCM is the only computer publication in the world (that we know of) that brings you programs 
in bar code, ready to scan into memory with the sweep of a wand ! 

TUTORIALS GALORE 

Add to this our regular tutorials on telecommunicating, hardware and machine language, as well 
as BASIC programming tips and product reviews, and we think you'll find we're one of the most 
informative and fun magazines on the market today. 

So if you're ready to add portability or step up to MS-DOS, stay with Tandy and THE RAINBOW family 
through PCM. 



□ YES! Please send me a one year (12 issues) 
subscription to PCM for only $28/ A savings of 22% 
off the newsstand price. j^HHm^ 



Name 



Address 
City 




State 



ZIP 



In order to hold down costs, we do not bill. 

I I My check in the amount of 

Charge to my: I — I VISA I (MasterCard 

Acct. # 



is enclosed. 

I lAmerican Express 

Expiration Date- 



Signature 

'Canadian subscribers add U.S. $7. Surface rate elsewhere $85. Allow 5 lo 6 weeks (or first copy. Kentucky residents add 5% sales tax. 
U.S. currency only, please. 

Mail to: PCM, The Falsoft Building, P.O. Box 385, Prospect, KY 40059 
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Have a Starry, Starry Night 
with Vincent Van CoCo 

Vincent Van CoCo ( VVC) is a graphics utility that amazes 
you with the number of easy-to-use features provided for 
a price that would please even a tightwad. The program 
requires 32K ECB, a joystick or a mouse (two are preferred) 
and either a disk drive or cassette player. The disk version 
supports multiple drives but requires only one. VVC is 
supplied on a non-protected disk or tape, with an appeal 
to not make unauthorized copies. There is a registration 
card for the purchaser to fill out to receive news of future 
updates. 

The author of VVC was especially careful to make the 
program easy for even a beginner to use effectively, but also 
versatile enough to be useful to the seasoned veteran. This 
user friendliness begins with a user's guide printed on a 
separate %Vi by 1 1-inch page, listing all 55 program options 
and the key combinations necessary to access them. Other 
software vendors would do well to include such a guide with 
software that uses many different options and key combi- 
nations. It is a breeze to use these features with this guide. 

If you are entering requested data, the program gives you 
an opportunity to re-enter the data if you make a mistake. 
If an error does crop up, or if you are hopelessly lost, typing 
GDTD2 gets you back to where you were without disturbing 
the picture you have been creating. 

VVC allows you to create drawings through the use of 
either or both of the joysticks or mouse devices, or the arrow 
keys. You are presented with two cursors on the screen that 
are used to do the actual drawing. You select the color to 
be used as the background as well as the color in which to 
draw. VVC supports four color sets with both two- and four- 
color modes. The speed of cursor movement for drawing 
is under your total control. The arrow keys can be used to 
move the cursor one pixel at a time to allow for detailed 
drawing. 

You can shrink or enlarge the drawing, copy one half of 
the screen to the other half (for a mirror image effect), flip 
any part of the screen upside down and even store the screen 
on the other graphics page. This allows you to experiment 
and if you don't like the results, just use the "original" stored 
on the other page. You can change the color of any part 
of the screen at any time. While you only have a maximum 
of four colors to work with, you may paint any part of the 
screen in any of 255 varieties of color patterns. If you want 
to create pictures to be used for window displays, you can 
scroll up to eight parts of the screen all at the same time 
and in any of the four directions. This makes for a 
mesmerizing attraction unmatched by more expensive 
advertising displays I have seen. 

You can do the usual graphics editing things, like draw 
a box or a circle easily; cut a section of the screen, store 
it and later paste it somewhere else on the screen; turn on 
or off the color generated by movement of the cursor; 
replace or exchange colors on any part of the screen and 
store the results of your labor on cassette or disk for later 
use with VVC or your own BASIC program. VVC also 
features the use of text on the graphics screen and comes 
with four fonts and a utility that allows you to modify these 
or create your own (you are told you can use these in VVC 
but are not told how). 



A unique feature of Vincent Van CoCo is the ability to 
scramble a picture so it looks like graphics garbage and 
thereby conceal it from the person who gains access to it 
without your approval and tries to view it with a BASIC 
program. A simple command unscrambles the picture to its 
original state. And speaking of access to the pictures, the 
documentation says that pictures created by VVC can be 
used with CoCo Max, Master Design, Graphicom, Graphi- 
com II and Bjork Blocks. I can vouch for all but the last 
one (1 don't own Bjork Blocks). 

The author has included eight sample pictures that were 
created with VVC that will impress even the experienced 
user with the amount of detail. 

The documentation consists of 20 8'/$ by 1 1-inch pages 
punched for a three-ring binder and stapled at the top. Also 
included is the one-page guide mentioned earlier. Each 
command and option is explained with enough detail to 
allow you to use it. Only in the explanation of the scrolling 
options does the language of the documentation require 
more than a beginner's knowledge of BASIC, and even this 
section is understandable overall to the novice. 

Vincent Van CoCo is an excellent value in a graphics 
editor for the CoCo. It is a comprehensive graphics editor 
but not a full-featured one. You can spend more money and 
get more complex features in a similar program, but for ease 
of use and versatility at an affordable price, VVC will be 
difficult to top. 

(Rococo Software, 3019 Sylvester Drive, Hartland, WI 
53029, tape $17.95, disk SI 8.95) 

— A. Buddy Hogan 
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- - 32K ECB PROGRAMS - - 

TEACHER PAK PLUS Includes Teacher Pak and CoCo 
Test em described be I ow $47. 95 

COCO TESTEM Make multiple choice, matching, 
true/false, completion, and short answer 
tests. Requires printer with underline 
ability. Works with tape or disk $19.95 

COCO-LIFE II The living patterns game. .. .$19.95 

- - 16K ECB PROGRAMS 

HOMEWARE New! Give vour CoCo real power at 

home. Printer preferred. Works with tape 

or disk. Five modules: 

CALENDAR Draw calendars. Various formats. 

SAVINGS/LOANS Powerful calculating tool. 

DIRECTORY Phone numbers, addresses, etc. 

INVENTORY For insurance, hobbies, business. 

HOME-WRITER Finally! Easv word processing. 

Single modules. . .$19.95 Whole set... $49. 95 
TEACHER PAK Weighted & regular grading, seating 

charts, alphabetizing, statistical analysis, 

4 programs. Works with tape or disk . . . $34 .95 

TIME MASTER Rainbow review 12/85 $19.95 

COCO GARDENER Discover computerized garden 

planning. Printer preferred $19.95 

PERPETULIFE Checkers & Life mixed $19.95 

GRAPHIC PHYSICS Rainbow review 9/65 $19.95 

COCO ECHO ML Rainbow review 10/85 $9.95 

All programs sold on tape. Send check or money 
order (no cash - Pa. residents add 6'/.) to: 



/r^\ T ° th p an |« tW-r- ^^ 

RAINBOW BOX 663 RAINBOW 

?JKS2S Rimersburg. Pa. 16248 <nST 

All of these programs carry the Rainbow Seal. 
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STEP 
UP 



UniQuad 



IF YOU HAVE ... 

• a terminal (or terminal program) 

• one or more disk drives (40 track or larger) 

IF YOU CAN ... 

• make or acquire cables 

• make or acquire a power supply 

• connect cables for terminal, drives, and 
power supply 

THEN YOU CAN ... 

• Step up to a 68000 UniQuad System 

for only $995 



$995 
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UniQuad 1 

68008 processor running at 8 Mhz 

4 serial ports 

2 parallel ports 

supports 2 floppy disk drives 

SASI bus tor connection to hard disk drives 

I28K bytes of RAM (expandable to 512K bytes) 

up to 32K bytes of ROM 

UniQuad 2 $1495 

68000 processor running at 10 Mhz 

4 serial ports 

2 parallel ports 

supports 4 floppy disk drives 

SASI bus for connection to hard disk drives 

I/O expansion bus 

51 2K bytes of RAM (expandable to 1 Megabyte) 

up to 128K bytes of ROM 

Both UniQuads come complete with: 

OS-9/68000, BASIC09, STYLOGRAPH, and DYNACALC 

HAZELWOOD COMPUTER SYSTEMS 

907 E. Terra, O'Fallon, MO 63366 314-281-1055 
MasterCard and VISA accepted 
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Grafix-3 is a Real 
OS-9 Bargain 

Over the past four or five years, there have been a lot of 
graphics programs developed for the Color Computer. 
Many of them have been developed to take full advantage 
of CoCo's graphics abilities. Some, like CoCo Max, are 
extremely advanced, making their use and understanding 
easy, while others lack that extra something needed to make 
CoCo show its colors. 

Recently, Aardvark Software released Grafix-3, a new 
graphics program for the Color Computer. The newness of 
it is that it is the first graphics program I've seen (other than 
programming in BASIC09) that is used under OS-9. That and 
the $20 price tag make it a worthwhile investment. 

Grafix-3 is relatively simple to learn. It makes designing 
graphics much easier than programming in BAS1C09 or any 
of the other programming languages available for OS-9, but 
there are some problems with it. 

Since writing my first user's guide, I've been very critical 
of software documentation. Add to that almost 20 years of 
professional writing experience and you have someone who 
can get cynical about sloppy writing. Grafix-3 is a program 
that shows the many reasons I am critical of documentation. 
Grqfix-3's documentation lacks illustrations and program- 
ming examples that would walk you through your first 
picture. Of the program itself, there are no program menus 
and no help options. You must learn the program and 
remember everything you've learned. This is far from the 
user-friendly, menu-driven software we've come to know. 

On the other hand, there isn't a whole lot to remember. 
Pictures can be created using either the arrow keys or the 
right joystick. Use of the joystick does require some 
keystrokes to set some software switches before you can use 
the joystick. Either method works as documented and 
requires little or no user intervention. 

Unlike most OS-9 programs, Grafix-3 has made one 
mistake. Most OS-9 programs allow some table on disk that 
is referred to for setting printer attributes and control codes. 
In this method, Grafix-3 could support any number of 
printers. Instead, it supports only two printers, the Tandy 
CGP-115 and the Okidata 82A. Neither of these printers 
is manufactured any longer, one of the risks of supporting 
a limited number of specific printers. 

If you do any other programming requiring graphics, 
you'll be glad to find out that Grafix-3 has a Hex command 
that allows you to dump the Hex values of each byte of the 
graphics screen to the printer or disk. This can allow you 
to later read the values in from a BASIC09 program and show 
the screen or even include them directly in your programs. 

When you get to the bottom line, Grafix-3 only costs $20 
and does what it claims. That's a bargain for any program 
that works, and a real boon for OS-9 software. Considering 
all of these features, it is a great bargain. I'd recommend 
Grafix-3 to anyone running a Color Computer under OS- 
9 who is looking for graphics capabilities. 

(Aardvark Software, P.O. Box 60183, Palo Alto, CA 94306, 
disk $20) 

— Bruce Warner 
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Venture into the Jungle 
with Treasure of the Aztecs 

Have you ever considered taking a vacation in Mexico 
and exploring the Aztec ruins? If you have, but could never 
afford to get there, now's your chance! That is, if one has 
a good imagination and is keen for computer Adventures, 
Treasure of the Aztecs will interest you. 

This Adventure takes place circa 1520 — after Hernando 
Cortes conquered the Aztecs. You are among the soldiers 
searching the city to find the great treasure of the Aztecs. 
But there's a catch: you were rendered unconscious by some 
of the Aztecs during an attack. The last thing you can 
remember is following a trail into the jungle. Assuming your 
fellow soldiers are dead and the Aztecs are out there waiting, 
it is up to you alone to find the treasure while avoiding 
death. 

Treasure of the Aztecs simply requires a 64K CoCo. 
There are versions for cassette and disk. I highly recommend 
using disk, since it would take an awfully long time to load 
in all the pictures from a tape. Joysticks are not required, 
as all input is through the keyboard. 

To play, just type L0hDM"TREh5URE" or CLOflDM for 
cassette. The program automatically executes when it's 
finished loading. After you get the title screen and hear the 
song, just press the space bar twice to begin. The disk is 
copy protected. All pictures are on the disk in some type 
of compressed format, and all are loaded into memory 
before execution. It takes approximately 50 seconds to load 
them in from disk. Having all pictures in memory greatly 
speeds up the game and saves wear and tear on drives. 
However, one annoying aspect is that on some screens 
portions must be painted, but this only takes a few seconds. 

Game play is easy, especially moving around. All you 
have to use is the arrow keys, although at some points in 
the game you might have to type "climb." For example, if 
you want to "go north," you can either type it as such or 
just press the up-arrow key. An added feature of Treasure 
of the Aztecs is the Vocab command. Just type that and a 
brief list of possible commands are displayed on the screen. 
You can also quickly save or load previous games. So, if 
you think a dangerous spot is ahead, save the game before 
moving. The Help command also gives clues as to what 
should be done in certain situations. Last but not least, if 
you have a Radio Shack Speech/ Sound Pak, it can be used 
for added sound and voice. While I am not impressed with 
Radio Shack's voice chip, it does add a special touch to the 
Adventure. 

Treasure of the Aztecs is a very good program, entertain- 
ing for all ages. Scott Cabit, the program's author, did a 
nice job and I hope to see more work from him. If you're 
into graphics Adventures, I'm sure this one will keep you 
busy for hours. It did me, and I still haven't solved it! Good 
luck and happy hunting! 



(Computerware, 4403 Manchester Ave. Suite 102-Box 668, 
Encinitas, CA 92024, requires 64K, cassette $24.95, disk 
$27.95) 



— Darren Nye 
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Back copies of many issues of THE 
rainbow are still available. 

All back issues sell for the single issue 
cover price. In addition, there is a $3.50 
charge for the first issue, plus 50 cents 
for each additional issue for postage and 
handling if sent by United Parcel Service. 
There is a $5 charge for the first issue, 
plus a $1 charge for each additional issue 
on orders sent by U.S. Mail. UPS will not 
deliver to a post office box or to another 
country. 

Issues July 1981 through June 1982 
are available on white paper in a reprint 
form. All others are in regular magazine 
form. VISA, MasterCard and American 
Express accepted. Kentucky residents 
please add 5 percent state sales tax. In 
order to hold down costs, we do not bill 
and no C.O.D. orders are accepted. 

Due to heavy demand, we suggest you 
order the back issues you want now while 
supplies last. 

To order, just fill out the form on the 
next page and mail it with your payment 
to: 



THE RAINBOW 

The Falsoft Building 
P.O. Box 385 
Prospect, KY 40059 
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DeskMate — An All-Purpose 
Package for CoCo 



By James G. Kriz 



Beginning with the Tandy 1000, Radio Shack has been 
introducing an integrated software package called Desk- 
Mate for each of its computer lines — the MS-DOS 
machines, the Model IV and now, the CoCo. The term 
"integrated software" refers to a program that includes 
multiple applications instead of just one. The advantages 
of such a package include having just one program to do 
several different tasks, using similar commands in each 
different application and the ability to share files among the 
different applications. To see how DeskMate measures up 
to these advantages, it is important to remember that some 
comprehensive integrated packages for MS-DOS compu- 
ters are real "core hogs" — often requiring over 512K of 
memory to run — while our CoCo has a practical limit right 
now of only 64K. 

The DeskMate applications include a calendar, a text 
editor, a spreadsheet, a filer, telecommunications and paint 
(graphics drawing). In addition, it has a built-in calculator 
function that can be used anytime any of the other functions 
are in use. 

DeskMate runs under OS-9 and includes enough of the 
OS-9 operating system to function completely without 
having to purchase that system separately. This means the 
user needs a 64K CoCo with at least one disk to use 
DeskMate. I would recommend a second disk for file 
storage, although it is not an absolute necessity. A joystick 
or mouse is also recommended for efficient operation — I 
used a joystick for this review although I think a mouse 
would have been better. 

The functioning of DeskMate is similar to the idea 
originally developed by Xerox and made popular by the 
Macintosh. The screen displays icons (pictures) to represent 
the available applications and an application is selected by 
moving a pointer to its icon using the mouse or joystick and 
pressing the firebutton. Within each application are pull- 
down menus. A bar across the top of the screen contains 
the names of available functions in that application and 
pointing to the name pulls down a menu showing the 
options available. For example, a common function is one 
called "Files"; pointing to Files pulls down a menu including 
such options as Open, Close, Save, Merge and Help. Every 
option has a Help selection that explains in more detail what 
the other options do. Moving the pointer to an option and 
pressing the firebutton selects it. Now, let's take a look at 
each of the applications. 

The calendar function displays a one-month calendar on 
the upper half of the screen with the current day highlighted. 
Using joystick or cursor control keys, you can move forward 
or backward by day, month or year. The lower half of the 
screen is used to display reminder messages for the 
highlighted day. Messages may be entered, edited or deleted 
and are automatically saved. 

The text editor function is a word processor that includes 
copy, insert and delete. It does not support any printer 
control functions; special printer features such as underline, 
expanded or condensed print, etc., are not available. 
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The spreadsheet is a simple program handling elementary 
spreadsheet functions. It is very similar to Color Speclac- 
ulaior. Movement through the spreadsheet is accomplished 
using either the joystick or the cursor keys. 

The filer uses the concept of index cards, and pictures the 
data on images of an index card file. Options include format 
of the index card, add, insert, delete, sort, search and print. 
The print simply lists all or selected records from a file. It 
cannot be formed into special formats such as labels. 

The telecommunications application requires the use of 
the RS-232 Program Pak — it will not function through the 
standard RS-232 port. Of course, this means you also need 
the Multi-Pak Interface since the disk controller is already 
plugged into the ROM port. A modem is necessary as it 
would be for any communications. The telecommunications 
application seems to be one of the most comprehensive in 
this package. It has keystroke multipliers, allowing the user 
to define certain keys for multicharacter entries such as 
passwords and user IDs. It allows setting of Baud rates, 
parity, word size, stop bits, line feed option and echo. This 
application is also capable of sending and receiving files. 

The paint application wins the award for most fun. It is 
similar to the "famous" MacPaint for the Macintosh. 
Through the use of pull-down menus, the user can select 
either the two-color PMDDE 4 with its pseudo colors or the 
four-color PMODE 3. Different tools are also selectable 
including a pencil, line, circle, paint brush, spray paint, 
eraser, etc. The palette option offers a wide choice of 
patterns and colors for filling shapes. Drawing can be 
accomplished by using either a mouse, a touch pad, a 
joystick or the cursor keys. I feel the mouse or pad would 
work best. 

One small problem is the joystick input only resolves 64 
by 64 points while the drawing is the 256 by 192 PMDDE A 
screen. This makes it difficult to align two lines or to 
precisely position a point. Pictures made using paint can 
be saved and recalled later for viewing or changing. Pictures 
can also be printed using a Radio Shack graphics printer. 
However, there is no provision for specifying non-Radio 
Shack printers such as Epson or Okidata. 



One- Liner Contest Winner . . . 

This one-liner is called Catch, and that pretty well 
describes what the red and blue boxes are playing. 

The listing: 

1 CLS : PRINTS 164, CHR$( 191) : PRINT@ 
187,CHR$(175) :E=128:Y=20:B$=STRI 
NG$ (2)3 , 143 ) +"*" : F0RA=1T022 : FORX= 
1T0Y:NEXTX:PRINT@165,MID$(B$,A,2 
2) ;CHR$(143) ; :NEXT A:E=E+1: SOUND 
191,1: FORA=22T01STEP-l : FORX=lTOY 
:NEXTX:PRINT§165,MID$(B$,A,2J3) ; : 
NEXTA: E=E-1 : SOUNDl^ , 1 : RUN 

Bill Bernico 
Sheboygan, WI 

(For this winning one-liner contesl entry. Ihe author has been sent copies 
of both The Second Rainbow Book of Adventures and its companion Ttie 
Second Rainbow Adventures Tape.) 



All DeskMate applications can save and load files and 
each file is linked to the application that created it. This 
means by selecting a file, the application that created it is 
first automatically loaded and then the file is loaded by the 
application. In other words, if a user is on the main menu 
screen and selects a text file, the text editor is first loaded 
and then the text file. DeskMate also allows limited linking 
of files across applications. It is possible, for example, to 
save a segment of a spreadsheet as text and merge that with 
text data in the editor as you might wish to do in certain 
business applications. I did not, however, find a way of 
mixing text and graphics in the same application. 

In general, the package is easy to use and it is difficult 
to really mess things up. The inexperienced user can safely 
try things without worrying about losing files. If, for 
example, you create some text using the text editor and then 
try to exit that application, it asks if you want the data saved 
and prompts for a filename. The documentation is very 
comprehensive, covering a total of 1 86 pages. It is well-done 
but there are a few points that could be more clearly 
explained. For example, in several places in the manual the 
user is encouraged to use a second disk for file storage since 
DeskMate is large and disk-intensive in its operation. 
However, there are no clear instructions in the manual as 
to how to designate to DeskMate that the files are to be 
placed on a disk in Drive 1. The answer is to select the 
"folder" on the icon bar. The folder allows the changing of 
some of the file attributes including the device allocation. 
Simply change one of the file folders to 'Dl. DeskMate 
stores this on the system disk so it is not necessary to change 
the defaults every time the program is loaded. 

This brings up another point. DeskMate is not protected 
and the user is encouraged to make a backup immediately. 
I strongly concur! Disk-intensive DeskMate seems to be 
constantly reading and writing, so save your original and 
work from a copy. Other than a few minor flaws in the 
documentation, the only other problem I found is that the 
user can only select two printer Baud rates — 600 or 1200. 
I have an Okidata 92 and having to use 1200 Baud holds 
it back from running at its full capabilities. 

My overall opinion is that this is a well-done program, 
easy and fun to use. It does a good job of showing off just 
how much can be done with our favorite computer. But, 
should you buy it? The text editor is no match for full word 
processors like Telewriter-64. The spreadsheet can't 
compare to Elite* Calc or DynaCalc. The filer has many nice 
features but not as many as the better database programs. 
In other words, this single package can't provide everything 
you'll ever need. I think the best marketing of this package 
would be to include it as part of the purchase price of a new 
CoCo just as is now done with the Tandy 1000. DeskMate 
provides a good overall set of applications that would 
suffice for the novice until he or she can access their needs 
and can acquire the specific software for those particular 
needs. In addition, the calendar, paint and telecommuni- 
cations applications may be all the average user would need 
or want in those areas. 



(Tandy Corp., available in Radio Shack stores nationwide, 
requires 64K and one disk drive, S99.95 ) 
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Educational Best-Sellers! 



P-51 Mustang 
Attack/Flight Simulation 

The ultimate video experience! Link two 
CoCo's together by cable or modem, and 
compete against your opponent across 
the table OR across the country! (Both 
computers require a copy of this program). 
The P-51 flight simulator lets you fly this WWII 
attack fighter in actual combat situations— 
against another player OR against the 
computer. 

32K Machine Language 

Flight Manual Included 

Tape $29.95 Disk $34.95 
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Worlds of Flight 
Small Plane Simulation 

Real-time simulation generates panoramic 
3-D views of ground features as you fly 
your sophisticated plane in any of nine 
different "worlds." Program models over 35 
different aircraft/flight parameters. Realistic 
sound effects too! Manual included helps 
you through a typical short flight. 
"...the best out-the-window simulation 
available lor the CoCo." 

~ Dr. Scott L. Norman 
Hot CoCo, 12/84. 

32K Machine Language 

Flight Manual Included 

Joysticks Required 

Tape $29.95 Disk~£34.95 



Teachers Database II— Allows teachers 
to keep computerized files of students. 
Recently updated with many new features! 

• Up to 1 00 students, 24 items per student 

• Many easy-to-follow menus 

■ Records can be changed, deleted, 
combined 

• Statistical analysis of scores 

• Grades can be weighed, averaged, 
percentaged 

• Individual progress reports 

• Student seating charts 

• Test result graphs/grade distribution 
charts 

64K TDBII $59.95 Disk Only 
32K TDBI $42.95 Tape $39.95 

Fractions- A Three-Program Package. 
1/Mixed & Improper 2/Equivalence 
3/Lowest Terms. Practice, review and defi- 
nitions make learning easy. 
32K Ext. Basic 
Tape $30.95 Disk $35.95 



Factpack— Three programs for home or 
school use provide drill and practice with 
basic "-/+/-/x" Grades 1-6. 
32K Ext. Basic 
Tape $24.95 Disk $29.95 

Vocabulary Management System— Helps 
children learn and practice using vocabu- 
lary and spelling words. Eleven programs 
including three printer segments for tests, 
puzzles, worksheets and five games; many 
features make this a popular seller! 

Requires 1 6K Ext. Basic/ 

32K for Printer Output 
Tape $39.95 Disk $42.95 

Math Duel -A challenging math game that 
pits you against the computer in a game 
of wits. Use your knowledge of factors, 
multiples and prime numbers to gather 
points against your CoCo. 
32K Ext. Basic 
Tape $30.95 Disk $35.95 
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Approach Control Simulation 
From Betasoft Systems. 

"Caught in a blinding snowstorm, two jet 
airliners are on a collision course. The 
pilots are unaware ol the imminent danger. 
Hundreds of lives are at stake. A high-speed 
disaster is inevitable unless you act fast..." 
This and many other exciting scenarios 
await you as an Air Traffic Controller. The 
thrills, challenges and frustrations you'll 
experience with this authentic, real-time 
simulation will give you countless hours of 
discovery and adventure. 

No Joysticks Required 

Comprehensive Manual-Reference Guide 

32k Ma chine Language 

Tape"$29.95 Disk $34.95 



New! Tandy 1000/1200 and 

IBM/PC-Compatible Software Now 

Available! Write for a Catalog. 



We Have More Software 

Available Than Listed Here. 

Please Write for a Free Catalog! 



Unique Utilities! 

New! Use the tools we've used to create 
"Donkey King," "Sailor Man" and others! 

• Full use of 64K RAM 

• 100% Machine Language 

• No ROM Calls 

• Selectable Drive 

• Support 1-4 drives 

• Menu Selected functions 

• "Cold Start" exit to Basic 

• Parameters easily changeable in basic 
loader 

MAS Assembler-the finest ever! 
(Includes EDT) 

Disk $74.95 
EDT- Effortless full screen editing w/2-way 
cursor. Text files to 48K+. Copy, save, 
move, delete, print blocks, much more! 

Disk $39.95 
Deputy Inspector-Alphabetize, resort and 
backup directory; fast 3-swap backups, 
copy files or programs, auto-reallocate 
granules during backup for faster loading, 
more! 

Disk $21.95 
Sector Inspector— Alphabetize, backup and 
print directory; repair crashes, LLIST basic 
programs, read in and edit 23+ grans, 
much more! 

Disk $29.95 

M 

TOM MIX SOFTWARE 

4285 Bradford N.E. 
Grand Rapids, Ml 49506 

616/957-0444 
Ordering Information 

•Call us at 616/957-0444 
for Charge Card orders 

• Add $3.00 postage and 
handling 

• Ml residents add 4% 
sales tax 

• Authors-We pay top 
royalties! 




Look What's New at NOVflSOFT! 



Top-quality software at 

affordable prices, written by 

well-known authors in 6809 

Machine Language 



FuTlVJI Direct ions: (Hest .Hot- th-> 
V, You're drivina 
»- uour sports car. 



f 




;vv : iuutt-; 


■-■ II1U1 Ullf 


m 


'..': v ■: . 




■>.:> 


aj 


- 





er-nr 



]128 CI iol: to stop 



I New Release I 
Maui Vice 

Step into the shoes of Crockett & Tubbs, 
and gather evidence, photographs and wit- 
nesses to convict your suspects! With 
"windows" to select your options, hi-res 
graphics, and a new story generated each 
time you play. This is state-of-the-art that 
guarantees excitement and newness every 
time you play. 

64K Ext. Basic & Joystick Required 
Tape S1 8.95 Disk $21.95 
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The Misadventures of Eddie 

Another great Novasoft adventure. The ol' 
man in the mines' rebellious son, Eddie, is 
roaming through time, creating havoc— and 
you must bring him home in order to return 
to your own time! Over 140 locations, 50+ 
commands, in hi-resgraphics. Experienced 
adventurers will love this one! 

Requires 64K 
Disk $21.95 




Goldrunner 

Travel the maze in your never-ending search 

for gold-but beware of trap doors, burly 

guards and other hazards! 33 screens. 

64K Joystick or Keyboard 

Tape $1 4.95 Disk $17.95 




Moneyopoly 

Play the popular board game on one of 
the most realistic computer game simula- 
tions ever! Contains all the features of the 
original. Buy, sell, rent, wheel 8 deal your 
way to fortune. 

32K Joystick Required 
Tape $19.95 Disk $22.95 




Vegas Game Pak 

Six games in all! Blackjack, Keno, Video 
Poker & 3 slot machine lookalikes. Super 
graphics! 

16K Ext. Basic Required 
Tape $24.95 Disk $27.95 



Other Best Sellers 

Martian Crypt-Life once existed on Mars! 
Find the hidden Martian crypt. Animated 
hi-res graphic adventure with sound effects. 

32K Tape $18.95 Disk $21.95 
Skyway— Manuever your craft along the 
skyway avoiding enemy craft, mines, sky 
bugs and holes! 32K and Joystick. 

Tape $19.95 Disk $22.95 
Blackbeard's Island-Find Blackbeard's 
treasure but be ever mindful of the hazards 
along the way. Graphic adventure. 

32K Disk $19.95 
Brewmaster-Move along the end of the 
bars, serving beer to your thirsty customers. 
Fast-paced action. 32K & Joystick. 

Tape $14.95 Disk $17.95 
CoCo Crosswords -Master set has 27 
puzzles, four levels of difficulty. Pull down 
menu. Additional sets have 30+ puzzles 
each. 

32K Master Set Disk $24.95 
Sets #2, B3, #4 just $12.95 ea. on Disk 
Color Car— Fast moving racing lets you 
"bump & jump" other racers through the 
course. 

64K & Joystick. Tape $19.95 Disk $22.95 



Tom Mix Products at 
New Reduced Prices! 

Sailor Man -Defeat the bigfatbadguy and 
win Elsie's heart. Super graphics. 

64K Tape $24.95 Disk $27.95 
Dragon Slayer-Defeat the dragon by 
finding your way through a mountain maze. 
Gather treasure but avoid the deadly traps! 
1 60 exciting screens. 

32K a Joystick or Keyboard 
Disk $24.95 
The King- 

32K Tape $24.95 Disk $27.95 
Draconian— 

32K Tape $19.95 Disk $22.95 
Ms. Maze— 

32K Tape $1 9.95 Disk $22.95 
Kater Pillar II- 

1 6K Tape $1 9.95 Disk $22.95 
Warehouse Mutants— 

1 6K Tape $1 8.95 Disk $21 .95 
Buzzard Bait- 

32K Tape $19.95 Disk $22.95 

NOVflSOFT 

A Tom Mix Company 

4285 Bradford N.E. 
Grand Rapids, Ml 49506 

Ordering Information 

■ Add $3 shipping/handling 

• Ml residents add 4% sales tax 

• Dealers welcome 

• Many more titles— write for free catalog! 

Credit Card Orders 

Call 616/957-0444 
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Send Personal Wishes with 
CoCo Greeting Card Designer 



The CoCo Greeting Card Designer is the maiden effort 
in the Color Computer software market for Zebra Systems. 
If this package is an indication, I look forward to their 
subsequent efforts. 

The program, on a non-copy protected diskette, allows 
the user to easily design and print personalized greeting 
cards for any occasion. A 32K CoCo or CoCo 2 is required, 
with one disk drive. Disk BASIC 1.0 or 1.1, or JDOS. Zebra 
Systems' list of tested compatible 80-column, dot-matrix 
printers is: Epson RX-80, FX-80, Gemini 10X, Star 
Micronics SG-10, Panasonic KXP-1090, KXP-1091, 
Memotech DMX-80, C. Itoh 8510AP, 8510AS, Leading 
Edge Prowriter, Seikosha GP-100, GP-250, Gorilla Banana, 
Radio Shack DMP-100, DMP-105, DMP-110 and DMP- 
400. 

The list also includes a number of printers that have not 
been tested but may be compatible (including the DMP-430, 
which 1 used with no problems), as well as a number of 
printers that are not compatible. The Radio Shack LP 
Series is included in this latter category, and indeed, I tried 
the program with a LP Vll without success. If this program 
interests you, my advice is to contact Zebra Systems 
concerning compatibility if your printer is not on the above 
list. 

isccseeeQQececcceeosccososeeooee'seosoov 

THE SO FTWARE HOUSE 

SOOPER | OUR OWN 

DOOPER j KM | "BRAND" 

DISKS 1 - ; | I LABEL 

PROGRAMMER'S DISKS 

SS/DD 10/$ 9.00 100/S80.00 
DS/DD 10/$ 10.00 100/$90.00 

SENTINEL COLORS Gift Boxed 

13 COLOR DISKS FOR $13.95 

w/Tyvek Sleeves & ..abels 
100% Certified - Lifetime Warranty 

COLOR RIBBONS: Red, Green, Blue, Brown 
GEM/OKI 4/S10.00 
EPSON 4/S24.00 
APPLE/NEC 4/S24.00 

Media Mate Disk Bank $12.95 
Head Cleaner Kit $6.95 

Add $2.50 S/H in U.S.A ■ Canada Add $3.50 

Michigan Residents Add 4% Sales Tax 
Send check or money order payable to: 

THE SOFTWARE HOUSE 

9020 Hemingway, Redford, Ml 48239 
(313) 937-3442 

Send Card Number and Exp. Dale 
Mm Charge Order S20.00 



AMATEURS: See Us (WD8KJV) at: Y'all 

Miami Hamboree, Feb. 8 & 9 Come 






The documentation is very clearly written and easy to 
follow. The program itself is menu driven and so logically 
organized that, after the first time through, you'll find 
yourself referring to the documentation only to select 
graphics icons and borders from the pictures there. 

The finished product created using The CoCo Greeting 
Card Designer consists of the cover of a card (printed upside 
down) in the upper-left quadrant of an 8'/i by 1 1-inch sheet, 
and the inside fold of the card (right side up) in the lower- 
right quadrant. The result is that when the sheet is folded 
in quarters, a greeting card is created. The process used to 
design both the cover and the inside fold of the card is 
identical. 

The user may select from eight decorative borders and 
two fonts for the text. The text can be written in large or 
small characters, the large font allowing six lines of eight 
characters; the small font allowing 13 lines of 1 6 characters. 
The user may also select from 21 pre-drawn Hi- Res graphics 
icons, many in holiday themes. Included are a heart, acupid, 
a birthday cake, a graduate and several Christmas symbols. 

These icons can also be printed either in large or small 
formats at selected locations: large on a three by three grid, 
small on a six by six grid. Text takes precedence over 
graphics, so letters are legible when superimposed over 
graphics. The product is impressive. As well as printing the 
card, the user may save it on disk, load a card from disk 
or edit a card. 

The more creative user has the option of creating unique 
designs for any of the three elements: text fonts, borders 
or graphics icons. The text characters can be designed on 
a 12 by 20 grid, the border elements on a 12 by 12 grid, 
and the graphics icons on a 32 by 56 grid. The editing is 
accomplished by cursor movement and setting or resetting 
of points in the grid. 

In the case of the graphics icons this is done on a Hi-Res 
screen with both a blown-up and near actual-size version 
appearing on the screen at once. Repetitive patterns can be 
quickly created using a Repeat command. The 1,792- 
element grid allows intricate designs. The custom designs 
of any of these three elements can be saved to mix and match 
on later card creations. 

This program is well thought out — easy to use, yet 
flexible enough to allow nearly endless variations. I highly 
recommend it to anyone wishing to create greeting cards 
with CoCo. 

Also available from Zebra Systems (at $19.95) is a Paper- 
Pack with 120 sheets of pinfeed computer paper in three 
colors with matching envelopes just the right size for these 
cards. This would certainly spruce up your creations. 

(Zebra Systems, Inc., 78-06 Jamaica Ave., Woodhaven, NY 
11412, disk $24.95 plus $3 S/H) 

— Stanley Townsend 



See You at 

RAINBOWfest-Chicago 

May 23-25 
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Color Essential Math — A 
Good Teaching Tool 



This was the first time I've been able to sit back and watch 
while one of the kids voluntarily took a piece of software 
for a spin. 

Cindy is 1 1 and in the sixth grade. She was having some 
problems with math facts when this package arrived for 
review by a happy coincidence. She was able to run the disk 
version of Color Essential Math on her own and find her 
own skill level. We were especially happy to find the cursor 
waiting for right-to-left answers (as you'd actually calcu- 
late). 

Volume I of Color Essential Math is designed for 
classroom use but it's written so a parent could use this as 
an aid at home. The package includes both the disk and tape 
versions along with a 26-page manual in a white plastic 
three-ring binder. It's for practice of addition, subtraction, 
multiplication and division, and includes place value, 
rounding, factoring, exponents, square and conversion of 
fractions to decimal. 

Grade levels aren't discussed or noted, but I'd say this 
would help at any grammar school level. My own kids, third 
grade through sixth, were all challenged by it. This package 
doesn't replace the need for a nearby parent or teacher to 
explain basic ideas. It does provide lots of practice nailing 
down what you've learned. 

The manual assumes your computer is set up, but it does 
explain every step after that, including making of backup 
copies. The teacher is told how to set up for a placement 
test and options for varying time (one to 99 seconds) and 
number of problems per lesson (one to 99). 

A promotion/ demotion feature can be turned on or off. 
When on, it automatically moves your student along to the 
most appropriate next lesson or drops back for more 
practice on a weak point. Each lesson is outlined along with 
two examples of the problems your student is asked to solve. 

The manual doesn't try to explain math concepts . . . just 
how to use the programs. But this should pose no problem. 
The manual does have very detailed, step-by-step explana- 



Hint 



All 'Caps' Down 



Are you trying to switch from upper- to lowercase 
from within a BASIC program? To accomplish this, 
type POKE 282,0. To return to the uppercase mode 
just type POKE 282,255. 



tions with pictures so that either a parent or teacher can 
understand how to use the lessons for their own child or 
a classroom of children at different levels. I was impressed 
with the obviously professional care they took in explaining 
teaching concepts so even I could understand. 

The planning, guidance and examples in the manual 
reflect the work of professional educators at Bertamax, who 
have licensed Volume I to Tandy. 

The student doesn't need a manual because all entries are 
prompted on the screen and errors are trapped and 
explained. Impatient students who want to forge ahead can 
press any key to clear a correct answer and bring on the 
next problem at their own pace (and end a frustrating wait 
for the next problem). 

The program does give an on-screen progress report 
whenever requested, but it doesn't make any permanent 
record, and there is no save option. You or your student 
must write down where he or she stopped so they'll know 
where to pick up when coming back for future lessons. 

I do wish they had included more work on basic fraction 
concepts. My fifth and sixth grade girls both need help 
there. Dave (third grade) wanted time with the program, 
too. The program treats each child individually, so each one 
can earn "Good Job!" at his/her own level. I can honestly 
say all three enjoyed the challenge of Color Essential Math. 

(Tandy Corp, 1400 One Tandy Center, Ft. Worth, TX 
76102, Catalog No. 26-2643, disk/tape S120) 

— Bob Dooman 



XPN0R2 

for the CoCo 
DISK SYSTEM 




XPNDR2 S39.95 each or 2/S76 
This prototype card features a 40 pin 
connector lor projects requiring an on- 
line disk system or ROM paks. The 
CoCo signals are brought oul to wire- 
wrap pins. Special gold plated spring 
clips provide reliable and noiselree 
disk operation plus solid support for 
vertical mounting of the controller. The 
entire 4.3* 7 inch card is drilled for ICs. 
Assembled, tested and ready to run. 

XPNDR1 S19.95 each or 2/S36 
A rugged 4.3 " 6.2 inch bare breadboard 
that brings the CoCo signals out to 
labeled pads. Both XPNDR cards are 
double-sided glass/epoxy. have gold 
plated edge connectors, thru-hole 
plating and are designed with heavy 
power and ground buses. They're 
drilled for standard 0.3 and 0.6 inch 
wide dual in-line wirewrap sockets; 
with a 0.1 inch grid on the outboard end 
for connectors. 

SuperGuide S3.95 each 
Here is a unique plastic insert thai 
aligns and supports printed circuit 
cards in the CoCo cartridge port. Don't 
forget to ORDER ONE FOR YOUR 
XPNDR CARDS 



Included with each XPNDR card 
are 8 pages of APPLICATION 
NOTES to help you learn about 
chips and how lo connect them to 
your CoCo. 



To order or for technical informa- 
tion call: 

(206) 782-6809 
weekdays 8 a.m. to noon 
We pay shipping on prepaid orders. 
For immediate shipment send 
check, money order or the number 
and expiration dale of your VISA or 
MASTERCARD to- 



ROBOTIC 



r 



e££> 



MICROSYSTEMS 



BOX 30807 SEATTLE, WA 98103 
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Complete Electronic 

Organizer — Options Galore 

to get You in Order 

By Robert E. Foiles 

This may not be the usual way to start a review, but the 
"bug trapping" routine in Complete Electronic Organizer 
(CEO) is so unique that it rates being first. 

Built into CEO is a system-monitoring subroutine that 
kicks in if a program error is encountered. This routine takes 
over the program and prints to the screen a message 
instructing the user that a program error has been encoun- 
tered and the disk should be returned to Computerware with 
an explanation of what the user was doing just before the 
message appeared. Unfortunately, the routine also locks up 
the program and only a total system shutdown restores 
control of the computer to the operator. 

In the first run-through of the program the "bug trap" 
snapped and the original disk with my explanation as 
requested was shipped back to Computerware. A few days 
later a reply acknowledged receipt of the disk and noted it 
had been sent back to the programmer for review. Six days 
later, the corrected disk was mailed back (very good 
turnaround time, considering this exchange had to take 
place just before Christmas and from east to west coast). 

CEO is full of surprises, as you will learn, and most of 
the surprises were welcomed. Overall, CEO is a graphics 
delight. The program uses a 51 by 24 Hi-Res display for all 
its screens and has more options than a politician has 
excuses. 

The system requirements are a 64K. Color Computer with 
at least one disk drive. If more than one drive is online, then 
a couple of additional options can function. The program 
works just as well with only one drive, but the user has to 
swap the system disk for a data disk as called for by the 
option selected. Most of the program is loaded into memory 
at startup, but a couple of the other options are loaded from 
the system disk as needed. 

The main menu screen shows the top of a desk with a 
border of either red or blue (border colors are random 
choice by CEO). Listed below the desk top, in two columns, 
are the program's options. Also appearing at the top of 
screen is the date and on the right side is a real-time clock. 
The user's name also appears after a "Good Day" message. 

To get the main menu, the program has a start-up routine 
that asks the user to enter the number of disk drives in use. 
Baud rate for the printer, user's name, the time and date. 
It also provides for the formatting of the data disk needed 
for either a single- or double-drive system. The disks must 
already be initialized for use in the drives (e.g., using the 
DSK INI command) and the program establishes the "tables" 
where the data is stored. When CEO asks for the time to 
be entered, it expects the time to be in a 24-hour format, 
i.e., 5 p.m. is entered as 1700. The date is entered as 
MMDDYYYY, i.e., 01011986 for New Year's Day. If the 
user does not change the system configuration, the program 
uses the previously entered data and only asks for a new 
time and date on future runs. 

The main menu displays the entered date and the time 
with the first digit, either a 'P' or 'A', followed by the hour 
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and after a blinking colon, the minutes. The clock functions 
throughout all the options even if it is not visible in some 
screens. Since the clock is running in the background it is 
possible to use the alarm feature to sound off at the user's 
selected time. 

From within the main menu, the user is able to select any 
of the options by moving the box with the arrow keys so 
it encloses the option wanted. Tapping the enter key loads 
and/ or executes the option within the box. Some of the 
options execute within the main screen and three others 
have separate screens. The first group of options take care 
of the housekeeping for the program and are called up 
individually or by selecting the "Other Things" option. The 
main menu options are: 

1) Set Time allows the user to set the correct time, which 
might have been slowed because of extensive printer use. 

2) Adjust Time provides a means of correcting the speed 
of the clock for accurate time. 

3) Alarm Set/ Reset allows the user to preselect one time 
for the alarm to sound. This clock program "beeps" on the 
hour, but the alarm sounds a tone for almost a minute or 
until the space bar is pressed. 

4) Set Date allows the user to enter a new date after the 
start-up routine. While not covered in the manual, this 
option is necessary to move from one year to another. The 
program appears to have been designed to handle only one 
year at a time and will not move into a new year without 
using this option. A word of caution: If a new year is entered 
with the Set Date option, CEO overwrites the information 
in the data disk. The program prints to screen the month 
and year as entered at startup or as entered with Set Date 
and reads the saved data from the data disk, regardless of 
the year saved on that disk. The user must be sure to mark 
each data disk with the year on it to avoid such problems. 

5) Other Things option brings up a submenu of additional 
options: A) Set Baud Rate allows for a change of the Baud 
rate if the data is not entered at startup or if the user changes 
his system configuration with a new printer. B) Change U 
of Drives allows the user to add a second drive and adjust 
the program to accept the second unit online (or vice versa). 
As noted earlier, a couple of additional options come into 
play with two drives online. C) Change the Name provides 
for another individual's name to be entered on the "desk 
top" of the main menu screen. D) Return to Menu does just 
as the name suggests. E) Format a Data Disk turns an 
initialized blank disk into a data disk for the system to use. 
While not covered in the manual, when data or dates are 
to be entered into a new year, a formatted CEO data disk 
must be ready to receive the information. Thus, if a data 
disk had not been prepared for the new year, the user has 
to abort the option in use and return to the main menu to 
format a data disk. F) All of the Above option actually does 
a total start-up routine that covers all the steps needed to 
adapt the program to the user's configuration. G) Done for 
the Day is the command used to return to BASIC. It is the 
only safe way to exit the program without losing data. To 
get to this decision, the user must be in the main menu, then 
get into the submenu and answer "yes"; this is a somewhat 
cumbersome way to exit the program. It would be more 
convenient for the user if the Exit Routine was one of the 
major main menu options and maybe have the clock speed 
adjustment option become part of the housekeeping 
subroutines. 

The Calculator option draws the face of a standard 
pocket calculator as an overlay on the main menu screen. 
The calculator has a border of either red or blue depending 



on the color of the border around the desk. The design does 
brighten the screen. The graphics display of the calculator 
has a window into which the figures are entered from the 
computer's keyboard. The unit operates as a four-function 
calculator (add, subtract, multiply and divide). The usual 
keyboard keys are used to control the procedures. There is 
room for a nine-digit result and the digits are entered from 
left to right. If the results of a math operation require more 
than the nine spaces, the readout is given as a natural 
exponential of the number and no further number crunch- 
ing is allowed. The CLEAR key must be tapped to start 
another math problem. The 'S' key may be used to change 
the sign of a number. To end the option and return to the 
main menu the '@' key is used. 

The remaining main menu options have their own 
individual screens. For many users, the Calendar option will 
be the most frequently used option because of the many 
ways it can be set up and used. 

The Calendar option draws a familiar calendar with 
blocks and dates. The month presented the first time is the 
month of the year as entered in the start-up routine (or 
through the Set Date suboption). The day of the month is 
enclosed in a set of brackets. The days of the month are 
selected by moving the brackets with the arrow keys. Once 
a specific day of the month has been selected, tapping the 
ENTER key brings up a new screen. 

Across the top of this screen is a row of icons depicting 
operations that may be called up by moving the pointer 
under the specific icon (with the arrow keys) and tapping 
the ENTER key. Just below the icon line is a space for the 
name of the first item on the Clipboard to flash. Under that 
is the line that shows the name of the day of the week and 
the date (month, day. year) under consideration. Below that 
is a Special Occasion data field for a 32-character message 
to be logged. Below that line are 10 hourly entry fields 
(limited to 15 characters each) followed by a Memo field, 
which is also a 32-character field. When the program is first 
executed all these fields are empty until the user loads in 
appointments and saves the data. The dozen data fields are 
the backbone of the data entry of the calendar and are 
recalled from the data disk whenever that date is requested. 
A special feature of data entry into the Special Occasion 
line is that this date on the calendar has its number 



Hint . . . 



Disappearing Act 



If you want to disable the output to your screen, 
just type POKE 359,255. This causes the computer to 
appear to be locked up. Remember that any entered 
command will be executed, but the text will not appear 
on the screen. To get out of this and allow screen 
output, just type POKE 359,126. 



highlighted. Thus, when a month has any Special Occasion 
dates recorded, they are quickly visible. 

The program automatically activates the keyboard icon 
upon entry into scheduling operation. The icons depict the 
operation they support and the user can always tell which 
icon is operational because it is in inverse image. Because 
the keyboard option is active upon arriving at the selected 
date, the user can move the highlighted box down the 
appointment time lines with the arrow key to the selected 
time. The ENTER key is pressed and a blinking cursor 
appears at the head of the highlighted line allowing data 
to be typed in. When finished (15-space limit), the ENTER 
key is pressed again to hold the data in place and the user 
can move to another time line. To save the data entered for 
that day, the user moves the pointer to the disk icon and 
presses ENTER. A new submenu pops up. 

The user now must choose to save the date, save the data 
to another date or both, return to the day for more work, 
or return to the calendar and not save the data. An option 
is selected by moving the pointer in front of the option 
wanted and pressing ENTER to execute. With two disk drives 
online, the program is supposed to be able to transfer a 
Special Occasion date forward to another year to save 
typing in all those items. If this selection is attempted, a 
screen message shows up telling the user to insert a blank 
data disk in Drive to receive the data. However, the 
program reads that disk, reports "disk not blank" and 
aborts the transfer. The same message appeared with a blank 
disk (not a formatted data disk). 

There are six additional icons to choose from while on 
the scheduling screen. The Help icon can be invoked and 
when the pointer is stopped under any of the other icons, 
pressing the ENTER key produces a Help screen of specific 
instructions for that icon. A handy feature when you don't 
want to go searching for the manual to look up something. 

The Scissors icon is used to cut a specific data field from 
the display screen. Once cut, the data field can be pasted 
to another field, tacked onto the Clipboard or even put in 
the "Trash Can." The cut and paste operation helps move 
data around within the same day without having to retype 
it, and by posting the data to the Clipboard, the data can 
be transferred to another day within the month or to 
another month of the same year. The Clipboard can hold 



One- Liner Con lest Winner . . . 

If you enjoy word games. Anagram may help you 
with the guesswork. It takes any word you enter 
and randomly scrambles it. This means you don't 
have to decide how to best scramble the word. 

The listing: 

j3 INPUT"WORD" ;A$:L=LEN(A$) : FORJ= 
1T0L:R=RND(L) :T$=MID$ (A$, J, 1) :MI 
D$(A$,J / 1)=MID$(A$,R,1) :MID$(A$, 
R, 1) =T$ : NEXTJ : PRINTA$ 

Bruce Wulfsberg, M.D. 
Moor est own. NJ 



( Kor this winning onc-lincr conicsi entry, the author has been sent copies 
of both The Second Rainbow Book of Adventures and its companion 
The Second Rainbow Adventures Tape.) 
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up to nine data fields in storage and the actual number of 
items stored are listed on the Clipboard outline. The top 
entry in the Clipboard file is flashed on the Clipboard data 
line just under the row of icons each time an icon is accessed 
as a reminder. If several items are posted on the Clipboard 
it may be necessary to remove the top items (by selecting 
the Scissors and the Trash Can icons) to get to the correct 
item to transfer. It takes some work shifting between icons 
to get the job done, but once familiar with what comes first, 
it really becomes fun to switch data around with just a 
couple of keystrokes. 

Another icon is the Duplicator. This icon allows for a 
duplicate copy of a data field to be created. For example, 
an item placed on Clipboard might be copied with Dupli- 
cator and moved to more than one location. 

The last icon is the Printer, which produces reports on 
a printer. Since no graphics symbols are used in the 
printouts, there are no special restrictions on the types of 
printers that will work with CEO. CEO produced Pre- 
formatted reports on both an Okidata 82 and a DMP-200 
printer without problems. 

The Printer submenu allows for a printout of just the 
selected day being worked on, a printout for a week starting 
with the selected date, prints a monthly calendar (with the 
Special Occasion dates set off by asterisks) or prints out a 
listing of days by "key word." A search for a key word such 
as "birthday" or "doctor," between specific dates, produces 
a printout of those days. The key word to be used in the 
search must be exact or it will not be found. Again, there 
is a little extra effort by the programmer to set up a check 
in the system to see if a printer is online or not. 

Maybe the most useful report to be printed is the single 
page "week-at-a-glance" printout. Each day is printed with 
its day of the week, date and year and two columns of 
"Today's Schedule." To exit the Calendar option and return 
to the main menu, the 'Q' key is tapped. 

The Phone Directory option also has its own screen and 
commands and handles up to 192 names and phone 
numbers in a fast and friendly way. The user is permitted 
to select one of six suboptions by moving the pointer to the 
proper selection and pressing ENTER. To add a person to 
the file, the Add Names suboption is selected and the user 
is presented a place to enter a name (up to 32 characters); 
by tapping ENTER the cursor moves to the phone line 
awaiting the number (up to 14 characters). Pressing ENTER 
again offers another sequence. Pressing ENTER with no entry 
returns the user to the menu. 

The manual suggests that entries be made with the last 
name first so when the program automatically sorts the 
names alphabetically they are in acceptable order. It is 
interesting that the Find routine locates a name in upper- 
or lowercase or presents name(s) and number(s) of all that 
group if only one letter is entered (i.e., just a V). Pressing 
ENTER lists the total file. 

One small quirk in this section is when the Change of 
Name suboption is used, CEO writes the old name to the 
screen and leaves it there even after the new name has been 
committed to the file. The screen stays cluttered until the 
user goes back to the main menu. 

The Note Keeper rounds out the complete organizing 
functions of CEO. Six of the 15 pages of the manual are 
devoted to suboptions of this section. 

The data handling of this "free-form file drawer" is 
supposed to be made easier by the use of single letter codes. 
However, among the suboption codes is the use of the same 
letter code to accomplish different missions — confusing to 
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say the least. Due to what must be a typing error, the manual 
also lists a key to be used as a command, but the Color 
Computer keyboard does not include such a key. 

The manual states that up to 479 records can be stored 
on the data disk, depending on how long each record might 
be. An individual record may be as long as 5,400 characters 
and its title must fit into a maximum 48-character line. The 
record titles are stored in an index file that can be called 
up for viewing. An individual record can be called up by 
title directly, and any record can be edited, have lines added 
or deleted, or be printed (a line at a time or total record). 

There are three different "search" routines in the 
command list. Two of the routines are used to locate a 
record by finding a key word within the title of the record. 
The GET and '?' command worked. However, all too 
frequently the only response with Find (which was to locate 
a key word in a record) was a screen message "<E> Sorry 
No Match." 

The data entry into a record is not very user friendly in 
that only 230 characters are all the program accepts at a 
time. It is frustrating to be typing along from a source and 
realize the program had stopped accepting data a couple 
lines back. However, pressing the enter key moves the 
cursor down to an empty line and more data can be entered. 
The manual does not explain or warn the user of this little 
quirk. Also, trying to free up space by removing some 
records proved to be less than complete. While the record 
was gone from the disk, the title of the record remained in 
the index. 

On the bright side, the programmer created several 
special handling procedures that are great. The user can 
toggle the scroll rate from fast (default) to slow. The slow 
scroll of the data is smooth as it moves up/down the screen. 
There is also a disk housekeeper routine that can be called. 
The Organizer command packs the disk to make the best 
use of the space. The manual notes that the system 
automatically invokes this command if the user tries to save 
a record and there is not enough room for it. The program 
provides a fast means to check disk space available and 
storage space in memory. The report gives the size of the 
record in memory (in bytes), the remaining amount of 
memory, the number of free records left and the amount 
of free disk space remaining. 

The last option is the Memo Pad, which allows the user 
to create one record (up to 5,400 characters) as the only 
entry in that file. This record can be called to screen or 
printed out. If a new memo is entered, it replaces the former 
message. 

CEO has many bells and whistles that work and are not 
just for show. However, the database portion of the program 
would not be my choice as a tool to use often. If someone 
wants an excellent appointment scheduling program, CEO 
is worth considering. The Calculator option may be useful 
to have online for those who might want to keep CEO up 
and running for most of the day and need a fast math job 
done. On balance, the appointment scheduling portion 
carries the day for CEO. 

The manual, 15 half-pages in length, covers most of the 
functions in detail. There are some omissions and typos that 
make the manual better than some, but with room for 
improvement. 

(Computerware, 4403 Manchester Ave., Suite 102-Box 668, 
Encinitas, CA 92024, disk $49.95 plus $2 S/H) 
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Panic Button is Fun 

for All Ages 



Imagine yourself working on an assembly line. Your job 
is to assemble one of the following six items: robot, house, 
cake, lamp, phone or TV set. 

To play the game, you need to follow these simple 
directions: 1) insert game cartridge, 2) plug in left joystick, 
3) turn on your CoCo, 4) turn on your TV set. 

The first screen allows you to set the level of difficulty 
you want to use. There are three difficulty levels to choose 
from — 1, 3 or 7. Number 1 is the easiest and number 7 
is the hardest level of play. I suggest that everyone start at 
Level 1 until they get used to playing this game. 

After choosing the level of play, the computer shows you 
how to assemble an item and how many items you need to 
assemble in the allotted time. When you are ready to play, 
just press the left joystick button. 

You are now in the assembly room and the different parts 
of the item start falling onto the conveyor belt. Your job 
is to assemble the item correctly and send the completed 
item to the shipping dock. If you don't assemble the 
specified number in two minutes, you are fired. 

But don't despair if you find yourself falling hopelessly 



behind; you can always press the panic button. This stops 
the conveyor belt for approximately 15 seconds and allows 
you to try to catch up. Be careful about using the panic 
button, as your foreman really frowns upon its use. 

If you successfully complete your assignment by assem- 
bling the correct number of items in the specified time limit, 
you advance to the next level. The next level will have you 
assemble a different item, plus one more item than you did 
in the previous level. 

When two levels of play are completed, you receive a 
reward. Could it be you get a raise in pay? Or maybe you 
will get a day off? No, if you successfully complete two levels 
of play, you get to throw a cake in the foreman's face! How 
sweet it is! 

When I received Panic Button, my whole family sat down 
around the CoCo for what turned out to be a really exciting 
evening of playing. Alice (my wife) got fired so many times, 
the foreman almost hated to see her go in to "work." 

My children (Lisa is 11, Eddie is 7) both enjoyed Panic 
Button very much. When they started playing, they couldn't 
make it past the first level of play. But after a few games, 
actually quite a few games, they were doing great! 

Panic Button turned out to be a lot of fun, but watch out 
— it can be addicting! 

(Tandy Corp., available in Radio Shack stores nationwide, 
requires 16K and joysticks, S19.9S) 

— John H. Appel 



About Your Subscription 

Your copy of THE RAINBOW is sent second class 
mail. If you do not receive your copy by the 5th of 
the month of the publication date, send us a card and 
we will mail another. Canadian subscribers and 
foreign airmail allow two additional weeks. 

You must notify us of a new address when you 
move. Notification should reach us no later than the 
15th of the month prior to the month in which you 
change your address. Sorry, we cannot be responsible 
for sending another copy when you fail to notify us. 

Your mailing label also shows an "account number" 
and the subscription expiration date. Please indicate 
this account number when renewing or corresponding 
with us. It will help us help you better and faster. 

For Canadian and other non-U. S. subscribers, there 
may be a mailing address shown that is different from 
our editorial office address. Do not send any corres- 
pondence to that mailing address. Send it to our edi- 
torial offices at Falsoft, Inc., The Falsoft Building, 
P.O. Box 385, Prospect, KY 40059. This applies to 
everyone except those whose subscriptions are 
through our distributor in Australia. 



Two- Liner Contest Winner . . . 

Type in Scroller as listed. Once you have seen 
what it does, change Line 1 to meet your own needs. 
This can be a pretty useful subroutine, too. 

The listings: 

j3 CLS:PRINT@257,STRING$(30,42) :P 
RINT§129,STRING$(30,42) :Q=28:REA 
DA$ : FORX=lTOLEN ( A$ ) +28 : Q=Q-1 : Q=Q 
*SGN(Q) :P$=MID$(A$,X+(Q-27) ,28-Q 
) : PRINT@ 194+Q , P$ : F0RT=1T07J3 : NEXT 
T,X:RESTORE:GOTO 

1 DATA DISPLAY ANY MESSAGE HERE 
BY replacing this message WITH O 
NE OF YOUR OWN IN LINE NUMBER 1. 

THE MESSAGE WILL BE REPEATEDLY 
DISPLAYED AS LONG AS YOU LIKE.O 
<><><><«MESSAGE SCROLLER>»<«B 
Y JIM COCKRUM>»<><><><> 

Jim Cockrum 
Martinsville, IN 



(For this winning iwo-liner contest entry, the author has been sent copies 
of both The Second Rainbow Book of Adventures and its companion 
The Second Rainbow Adventures Tape.) 
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TRY-O-TAX Helps Organize 
Tax Preparations 

I may not be the typical customer for TRY-O-TAX. I 
have been doing my own income tax returns for over 20 
years, but always dread and hate the task. On the one hand, 
that means 1 search every year for a computer program to 
relieve the annual pain. On the other hand, it means I expect 
a tax program to do things very well that I already have 
much familiarity with. It may be I have higher standards 
of performance for tax software than the average person 
who is just trying to avoid a trip to an accountant. 

I have used two of the earlier versions of TRY-O-TAX's 
annual offerings, and was hoping for major improvements 
this year. The 1985 program arrived early, but because of 
review deadlines that allow readers to see this in the prime 
tax season, it meant I was doing the 1985 Income Tax (with 
partially bogus projected figures) immediately after 
Thanksgiving. 

The 1985 version includes two impressive features. The 
first is an abbreviated program that allows the user to 
predict the following year's situation in order to estimate 
whether to change withholding or find a tax shelter. I found 
this mini-program quite useful for its intended purpose, and 
I would like to return to it each quarter throughout the 
coming year. I would buy that program separately as it is 
very user friendly, and while not too sophisticated, it did 
an excellent job. 
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GRAFPLOT DEMOl 
•3.00 DISK OR TAPE 
REFUND W/PURCHABE 
"A GREAT PACKAGE 
GETS EVEN BETTER" 
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30 DAY 

UNCOND IT! ONAL 
MONEY-BACK 
GUARANTEE ! ! 
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"• £ Weeks Sirice Starting (lew Budget 

» CREATES PROFESSIONAL LOOKING GRAPHS IN JUST MINUTES. 

» AUTOMATICALLY LOADS DATA FROM MOST POPULAR SPREADSHEETS. 

* OVER 100 GRAPHING SYMBOLS AND UNLIMITED OVERLAY OF DATA. 

* AUTOMATICALLY SCALES AND LABELS ALL THREE OF THE AXES. 

* CALCULATES MATH FUNCTIONS, INTEGRALS AND MOVING AVERAGES. 

* FULLY AUTOMATIC. MENU DRIVEN W/ COMPLETE ERROR TRAPPING. 

16K TAPE - aSS.OO, 32K TAPE - MO.OO, 32K DIBK - »43.00 
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UN I ^/l=F<S.=ll_ SCREENPRINT F»F«Ol3F*«r1 

He GET "PICTURE PERFECT" FULL-PAGE PRINTOUTS EVERY TIME! 

* "PERFECTLY SIMPLE" TO OPERATE - "BIMPLY PERFECT" RESULTS! 

* "PERFECTLY COMPATIBLE" WITH ALL DOT MATRIX PRINTERS! 

* GET "PERFECT CONTROL" OFi HEIGHT, WIDTH, POSITION, 

BAUD RATE, DOT DENSITY, NE6ATIVE IMAGES, ETC. 
» THE "PERFECT SOLUTION" TO YOUR GRAPHICB PRINTING NEEDS! 

* COMPATIBLE WITH GRAPHICOM AND COCO MAX PICTURES! 

♦ ONLY »2S.OO ON DISK OR Tf=>F>IE. ♦ 



BUY BOTH lliOI.RAMS 8. SAVE I» 1 O . OO 

CALL NOW FOR FREE INFORMATION (IIS) 347-7337, OR WRITEl 

HAWKE8 RESEARCH SERVICES I B39 STANFORD AVE, OAKLAND, CA 94608 
YOUR PERSONAL CHECK IS WELCOME! SHIPMENT WITHIN 4B HOURS! 

ODD «3.00 SHIPPING ON ALL ORDERS . CA. REB1DENTB ADD BALES TAX 



The other feature is the ability to exit from the future 
estimation program by pressing a key that makes your 
computer (already pre-loaded with such information as 
your address) type out your order form for the following 
year's version of TRY-O-TAX. 

TRY-O-TAX works and prints out only in integer math. 
While Uncle Sam will accept your tax return with all figures 
rounded to the nearest dollar, most of us do not do our 
income tax that way. This may seem minor since it is legal, 
but it annoyed me. When I entered items to the cent and 
checked, I found TRY-O-TAX carried out the math 
correctly before rounding to the dollar. 

77? F- 0-7/1 A' forces the user to transfer the data from his 
printout to his Form 1040, and provides plain paper 
substitutes (which the IRS will accept) for all the other 
attachments, schedules and forms. (The IRS demands use 
of their form only for the 1040 itself, although it is 
customary to use IRS forms throughout.) This, like the 
rounded dollar example, is legal and acceptable to the IRS, 
but it can be a nuisance to some of us. Many taxpayers must 
provide a copy of their return to someone else (e.g., a former 
spouse or creditor) and the format of the plain paper result 
doesn't have a professional appearance. 

Because the 1985 tax forms were not released when TR Y- 
O-TAX went to press, the instructions warn the user that 
some line numbers may not match properly with the actual 
forms this year. The author states that correct 1 985 tax rates 
and rules are used, and he seems (as far as I could check) 
to be correct. 

TRY-O-TAX needs to be run two or three times before 
the final pass because limitations in punctuation prevent 
proper entry of some business names and other data; the 
computer does not like commas in the middle of string 
input. The documentation is poor on such minor points as 
how to enter both spouses' Social Security numbers to 
match the proper printout format. This is another reason 
the user should cycle through the program more than once. 
The computation of excess Social Security withheld from 
more than one employer was omitted entirely. For me, that 
computation can double or triple the refund due back. 

In summary, TRY-O-TAX is better than the author's 
1984 version and is useful in helping one organize and do 
the first rough pass. But for me, for reasons mentioned, I'll 
send in my final income tax return done manually. 

(TRY-O-BYTE, 1008 Alton Circle, Florence, SC 29501, 
16K cassette or 32K disks S29.95 plus S3 S/H) 

— H. Larry Elman 



ENHANCE YOUR COCO! 

The Enhancer gives you mixed text and graphics, 
user-defined keys, PROCEDURES, keyboard AUTO- 
REPEAT, scroll protect. It gives you true lower-case 
letters, 224 characters, user-definable characters, 
reverse/bold/underlined characters. The Enhancer 
adds 15 commands and 3 functions to your CoCo's 
vocabulary. It requires 64K, Extended BASIC. To 
order, please specify tape or disk and send $18.00 U.S. 
to: 

H.D.R. Software 
27 Doyle Street 
St. John's, Nfld. 
Canada A1E 2N9 Tel. (709) 364-3125 
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Action Abounds 
in Fast-Paced Knock Out 

Knock Out by Diecom Products is a fast-action boxing 
game for a 64K CoCo. The object of the game is to become 
the Boxing Champion of the World. In order to become 
champion you must fight and defeat five opponents. The 
first boxer you face is a real sucker. I was able to beat him 
on my third try. (Perhaps I should point out that I'm no 
martial arts expert.) 

The first boxer makes a good practice opponent. Each 
new opponent becomes progressively harder to defeat, and 
as a matter of fact, I never got past the second boxer. I 
managed to knock down the second boxer several times but 
he always managed to finish me off first. I can only imagine 
how fast and smart the final challenger would be. To give 
you an idea of this second opponent, he resembles Mr. T. 

Knock Out is a fast and action-packed boxing game. Your 
boxer is outlined and transparent. This allows you to look 
through your boxer and see your opponent. During the 
game you go at your opponent toe to toe. 

Use the up arrow to move your boxer's hands or guard 
up, down arrow to move your boxer's hands or guard down, 
left arrow to make your boxer dodge to the left and right 
arrow to make your boxer dodge to the right. The 'Z' key 
makes your boxer punch with his left hand. If your boxer's 
guard is up, he punches to your opponent's head. If your 
boxer's guard is down, he punches to your opponent's body. 
The "?/" keys make your boxer punch with his right hand, 
with the same guard up/down aims. The space bar makes 
your boxer punch with a right hook if he has knockout 
power. 

A knockout indicator is located on the left side of the 
screen. Each time you hit your opponent your knockout 
power increases. When you have enough power, the KO 
indicator starts flashing. If you hit your opponent when the 
KO indicator is flashing, you will take away a lot of his 
energy. However, your opponent tries to block your punch. 

While your boxer is dodging, moving or punching, you 
cannot make another move; you must wait until your boxer 
completes his move before commanding another move. If 
you try to make a move while your boxer is moving, the 
second move command is ignored. Movement speed 
increases and boxer reaction time decreases as you progress 
through the five challengers. 

On the left side of the screen there are two multicolored 
energy bars with the word "down" written between them. 
The top bar shows your opponent's energy and the bottom 
bar shows your boxer's energy. The boxer who lands a 
punch gains energy and the boxer hit by a punch loses 
energy. When a boxer's energy bar completely disappears 
the boxer is knocked down. 

When a boxer is knocked down a countdown indicator 
is displayed in the upper right corner of the screen. If the 
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count is less than 10 the boxer gets back up and some of 
his energy is restored. On the third knock down the fighter 
is knocked out and loses the fight. Each fight can last up 
to three minutes. If you do not knock out your opponent 
within three minutes you lose. After you knock out an 
opponent, you face another fighter until all five challengers 
are defeated. You must knock down each opponent three 
times, but your boxer can only be knocked down three times 
during the entire game. In order to win you must get through 
the first couple of fighters unscathed. 

A bonus scoring counter is located at the top right corner 
of the screen. At the beginning of each fight the counter 
contains 30,000 bonus points. As time goes by the counter 
counts down. When a challenger is knocked out the count 
in the counter is added to your score. The faster you knock 
out an opponent the higher the bonus score, and as stated, 
your boxer also receives points for hitting his opponent. 

Knock Out comes on disk or cassette and is accompanied 
by a brief user's booklet. The booklet is written clearly and 
is easy to understand. Following the instructions, I was up 
and playing the game in short order. If you buy the disk 
version, the 10 high scores can be saved to disk. 

I enjoyed playing Knock Out because there is a lot of 
action and excitement in this game for a reasonable price. 

(Diecom Products, 6715 Fifth Line, Milton, Ontario, 
Canada L9T 2X8, 64K required, disk or cassette S28.9S 
U.S., S38.95 CDN plus $2 S/H) 

— Gabriel Weaver 



DYNAMIC COLOR IMEUIS 

A monthly Newsletter with Educational ma- 
terial for writing Programs, New Products, 
Product Reviews, Programs, and much more. 
$15 yr. - Free Sample - 

PROGRAM SAVER 

Uninterrupted Power Source (UPS) provides 
power to RAMS during power failures. For 
all computers with 5 Volt RAMS. *59.95 

MEMORY EXRAIMDERS 

We have several types of solderless memory 
expanders from 64K to 512K. Call or write 
for details. 

MEMORY MANAGER 
(New Product) 
Software designed to manage the second 32K 
memory bank for 64K computers. Run basic 
programs in both banks, store programs in 
the second bank, link programs from one 
bank to the other. Allows copying ROMS to 
ROM and stacking programs in the upper 
memory. *27.95 Cassette, $29.95 Disk. 

SOFTWARE 

DVTERM 300-2400 baud terminal Pgm. $14.95 

DISASM Decimal 6809 Assembler $19.95 

MPM Stack up to 5 programs in 32K *14.95 

Checks, Visa & MC Cards. Add $3 ship. 

Free Catalog. 24 Hour phone. 
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Menu Maker Gives Easy 
Access to Disk Files 

By A. Buddy Hogan 

Menu Maker is a machine language utility that places a 
Hi-Res, user-definable graphics screen, disk name and disk 
directory menu on disks. Menu Maker requires a 32K CoCo 
with either Disk BASIC 1 .0 or I.I and at least one disk drive 
(it will support multiple drives). If you have a non-standard 
Disk Operating System such as ADOS, J DOS or Spectrum 
DOS, Menu Maker will not work as supplied. However, 
for S15 you may copy your DOS onto disk (the documen- 
tation explains how to do this), send it in and receive a copy 
of Menu Maker that is compatible. Or, if you are really 
industrious, you may order the commented source code for 
Menu Maker for SIO and make the modifications yourself. 

Menu Maker is supplied on a non-protected disk and you 
are urged to make a backup before proceeding. This is 
particularly important when using this software because 
you must select between the two main programs on the disk; 
one for Disk BASIC 1.0 and the other for 1.1. You kill one 
and use the other. 

When you LOflDM the main program, you are presented 
with a high resolution screen that is divided into two 
sections. The top section is a graphics of a CoCo and the 
name, address and phone number of Saguaro Software. At 
the bottom of the top section is a flashing box in which the 
words DISK MENU MAKER have been designed. This 
box flashes between a regular and inverse screen (dark 
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230 Moorestown Rd. Wind Gap, PA 18091 

(215) 759-7662 

Call or write for Price List 

LOW PRICES ON 100% 
Radio Shack Equipment 

(with full warranty) 
New Slimline Drive $235.00 

Prices subject to change! 
Prices include shipping! 

16K Standard $ 62.95 

64K Extended $169.00 

Sakata 13" Monitor $199.00 

With monitor driver $230.00 

Multipack Interface $ 71.95 

DMP-105 $140.00 

64K Upgrade (150 NS) Top of the line . . . $29.95 
Diskettes, any quantity, lifetime Warranty $ 1.50 

Quantities are limited! 

10% off Computerware 

10% off all Radio Shack Sale Items 

15% off Radio Shack Hardware 

20% off all Radio Shack Software 



210 



becomes light, light becomes dark). The bottom of the 
screen displays the names of up to 24 files stored on the disk. 
The names are in Hi-Res, and the name at the top has arrows 
on each side that replace the traditional cursor. Centered 
right above the filenames is the name of the disk (in this 
case. Menu Maker Master Disk). 

You may run any of the programs on the disk by using 
the up- and down-arrow keys to enclose the name of the 
file you want to run with the "cursor" and pressing ENTER. 
Menu Maker runs almost any BASIC or machine language 
file (it ran all the ones I tried, but the documentation says 
"almost"). 

The filenames are displayed in up to three columns of six 
names each, with only the filenames being displayed, not 
the extensions. You may also read filenames from another 
disk into the Menu Maker high resolution screen by 
exchanging disks and pressing the BREAK key. The names 
of the files on the new disk are shown where the previous 
filenames were. 

So, what do you want with Saguaro's address on your 
disks? The whole idea of Menu Maker is to allow you to 
design your own menu screen(s) to jazz up your disks and 
gain easy access to each of the files on the disks. Alas, Menu 
Maker is not a graphics editor, so you have to supply your 
own design. The design may be created by any of the 
graphics editors for the CoCo (CoCo Max, Graphicom, 
Master Design, Micro Painter, etc.) capable of producing 
a standard binary screen file. If you want to see whether 
pictures created by your graphics utility are compatible with 
Menu Maker, type in the following program (from the 
Menu Maker documentation): 

10 PCLEPIR 4:Pf10DE 4,1: SCREEN 1,1 
20 LOflDM'TILENfiPIE" 
30 GOTO30 

You will have to create a screen that occupies the same 
amount of space as the sample screen that is provided with 
Menu Maker (roughly half of the screen) because the 
bottom half is reserved for the name of the disk and the 
filenames. Or you can just ignore the bottom half since it 
won't be seen. I used a sample screen supplied with a 
graphics utility I was reviewing simultaneously, and 
modified it so it would fit on the top half of the screen. Next, 
1 ran a BASIC program called RECONFIG that allows you 
to customize the MENU program. Using this program, you 
may replace the MENU display screen with a screen you 
have developed, i.e., enable/disable flashing, determine 
where the flashing will begin/end on the screen and set the 
rate at which the flashing will occur. 

A BASIC program is provided to allow you to name any 
disks in your collection on which you want to place a copy 
of MENU. This program displays anything contained in 
Sector 1 of Track 17 and cautions that anything already 
there will be overwritten by the name that you choose for 
the disk. The delay for this warning is so brief, though, that 
you have to be a speed reader to catch it (just increase the 
time delay in Line 2 of NAMEDISKto 2000). It would also 
be nice if the program didn't end after you've named one 
disk. A user with several disks to name doesn't want to have 
to run the program to name each disk. You can fix this by 
editing out the END in Line 10 and replacing it with a G0T01. 

After you've merged your own screen into MENU and 
named your disks, you are ready to copy the new MENU/ 
BIN program to your disks. From then on, when you put 
your disks in the drive, just type L0ADM"MENU", move the 
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cursor to the file you want to run, press ENTER and that's 
all there is to it. 

As a RAINBOW reviewer, I am encouraged to do exactly 
what a purchaser of the software would do if there is a 
problem — call the company. I couldn't get the RECONFIG 
program to let me change the point at which the flashing 
stops. I called Saguaro and learned they only distribute the 
software and any technical questions would have to be 
directed to the author. 1 called his number over an entire 
day and got nothing but a busy signal. So 1 can't tell you 
from experience whether you can modify the end of the 
flashing screen. 

I know that you can modify the point at which the 
flashing is to begin. The manual says that the values for start 
and end of flashing must be entered as Hex numbers and 
that the screen goes from $0000 (0) to S17FF (6,143). The 
RECONFIG program says that valid inputs for the 
modifications are $0000 to S25FF (9,727). The flashing 
begins on the sample screen at $0900 (2,304) and ends at 
S0B80 (2,944), which is the end of the upper portion of the 
screen available to you for modification. If all of this is 
confusing you, it confused me also. Any attempt to change 
the end of the flashing resulted in no change being made, 
but a hangup of the program if the up arrow was pressed. 

It would also be nice for the author to give the uninitiated 
a little help with Hex. In order to convert a decimal number 
to a hexadecimal number, type in "PRINT HEX$(X) "(where 
'X' is a decimal number between and 65,535). Valid 
decimals to convert to Hex for the start of Hashing are 
through 2944. 

The documentation consists of five 8'/2 by 1 1-inch bright 
yellow pages. It does a good job of explaining how to use 
the features of the software, with the exception noted above 
related to the flashing screen option. 

This would be an especially useful piece of software if the 
filename display was not limited to 24 entries. Typically, a 
person interested in a disk utility like Menu Maker would 
use it for disks that store a number of utility or other files. 
Rather than search through a directory racing by, users 
would enjoy the ease of implementing a program (already 
stored on each such disk) that places all of the names neatly 
in front of them and allows selecting the one wanted by 
merely moving the cursor around with the arrow keys. As 
is, you must either limit the number of files on these disks 
to 24, or use Menu Maker to see only the first 24 files on 
the disk. 

(Saguaro Software, P.O. Box 1864, Tclluride, CO 81435, 
disk $24.95 plus $1 S/H) 
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Enjoyment for Board-Game 
Lovers with Perpetulife 

Perpelulife is something like a cross between the games 
of "Checkers" and "Life." The objective is to have more live 
cells than your opponent, and play is on a grid resembling 
the board games. The number of living cells you have 
depends on mathematical relationships with neighboring 
cells (yours or your opponent's). 

Without the right balance of cells around a particular cell, 
it will die. The perpetual creation and killing of individual 
cells allows much shifting of the tides during a game. 

In order to win Perpelulife, you must figure out how to 
position your cells to kill off your opponent's cells. It 
requires a good understanding of how the process works. 
I never figured out a good way of winning. I think with time 
and patience, or a better understanding of the process than 
mine, you can enjoy Perpelulife. 

The instructions for the game are clear and the tape 
loaded with no problems. In fact, when I got home from 
work my 9-year-old had loaded the game and tried it out. 
He was disappointed it wasn't a fantastic arcade-like game. 

Perpelulife is written in a combination of BASIC and 
assembly language. The first time the program is run it loads 
in the assembler portion. It requires 16K and allows the 
option to play against human opponents or the CoCo. If 
you enjoy board games converted for the CoCo, Perpetulife 
will interest you. 

(Tothian Software, P.O. Box 663, Rimersburg, PA 16248, 
requires 16K, cassette S19.95) 

— A.R. Compton 



Two-Liner Contest Winner . . . 

Piano draws a piano keyboard on the screen. The 
keyboard ranges from middle C to high C. After 
running the program, press the number keys to play 
some music. 

The listings: 

5 GOSUB10:FORX=1TO255:PRINT@Y*32 
+3,RIGHT$(STR$(X) ,LEN(STR$(X) ) -1 
) ;:PRINT§Y*3 2+14,CHR$(X) ; : POKEl^l 
24+Y*32+21,X:Y=Y+l:IFY=15THENPRI 
NT@Y*32, ; :INPUT"PRESS enter" ;E$: 
GOSUBip : NEXTELSENEXT : END 
lj3 CLS:Y=2:PRINT§6, "ASCII TABLE" 
;:PRINT@32," DECIMAL PRINT P 
OKE"; : RETURN 

Garry L. She/ton 
Kannapolis, NC 

(For this winning two-liner contest entry, the author has been sent copies 
of both The Rainbow Book of Simulations and its companion The 
Rainbow Simulations Tape.) 
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SIDE WISE OS 9 Prints 
Wide Spreadsheets 

My wife is an accountant and keeps the books for several 
clients on our CoCo. We have often spent many boring 
hours taping pages together. As a matter of fact, we believe 
that the spreadsheet was invented by tape manufacturing 
companies. 

SIDE WISE OS9 makes this task unnecessary. I already 
owned SIDE WISE for Disk BASIC and was interested in 
the differences between these two different yet similar 
programs from the same author. 

SIDE WISE OS9 is a utility program that literally turns 
each ASCII character 90 degrees sideways, thus allowing 
you to print the length of the page rather than the width. 
It does this by reading each ASCII character from a file and 
re-creating it turned 90 degrees as a bit-graphics picture. 
There are several advantages and disadvantages to this 
technique. The primary advantage is that the character set 
is totally independent of the printer's built-in font set and, 
therefore, can be modified to accommodate many needs. 
The main disadvantage is speed. Since each character is a 
separate picture, it must be printed in graphics mode. 

I received SIDE WISE OS9 on a disk that contained five 
modules, i.e., 1) Setup, 2) Swise, 3) Selone, 4) Set two and 
5) Swparam. The first two are program modules and must 
be copied into the current execution directory normally, 
/dO/cmds. The next three are data modules and must be 
copied into the current data directory, normally jdO. Swise 
and Setup are written in BASIC09 so the user must also have 
the RunB module in the execution directory. 

Once the modules are in place, the user types SETUP and 
is greeted with the setup menu, which contains: 1) printer 
type, 2) default output device and 3) paper width. 

The printer options include Radio Shack, Epson, C.Itoh, 
Okidata, and Gemini. The default output device would 
normally be fP printer. Paper width can be either eight inch 
or 14 inch. 

Once the setup is complete, all the user needs to do is enter 
5WI5E at the command line and a menu appears giving 
several options, including: 1) filename, 2) output device, 3) 
column width, 4) maximum rows, 5) font, 6) print sidewise, 
7) perform OS-9 command and 8) exit to OS-9. 

The user must first take option one to select the filename 
to be printed. This filename may contain any pathnames 
necessary. If the rest of the displayed parameters are 
acceptable, the user then selects option six to print the sheet. 
The sheet may be printed as a background task by printing 
the sheet to another file, to be later LISTed to the printer 
as a background task. This is done by changing the output 
device (option 2) to a filename. This offers the advantage 
of not tying up the computer with the printing job, which 
is somewhat lengthy. Menu option three toggles between 
eight inch and 14 inch paper widths. Option four is 
calculated by the program. Option five is either standard 
or condensed print. Option seven allows you to execute an 
OS-9 command without leaving Swise. Menu option eight 
leaves Swise and exits to OS-9. 

After installing SIDE WISE OS9 V. 1 .0 onto my OS-9 
V. 1.01 BASIC09 system disk and transferring a DynaCak 
spreadsheet in ASCII, my first attempt to print it was a 
failure. Back to the instructions. Oops! Forgot to turn 
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pagination off. The second try was successful. Out came my 
spreadsheet neatly printed sideways. 

Several things must be done to the spreadsheet to print 
it with SIDE WISE OS9. First, you must set the printer 
width to 80 and turn off the pagination. You must also close 
the output path to the printer so that the sheet is printed 
to a file, thus converting it to ASCII. You must also consider 
the size of the spreadsheet. If it will have too many rows, 
a factor that must be calculated based on whether you are 
printing in condensed or regular print and what width paper 
you are using, you must break the sheet up into smaller 
sheets before printing it to a file. 

SIDE WISE OS9 is very user friendly and anyone who 
is familiar with the OS-9 operating system would have no 
trouble using it. 

The documentation supplied with the program, while 
brief, is complete and easy to follow, leading the user 
through both installation and use. 

SIDE WISE OS9 is a handy utility to have if you have 
need of presentation-quality spreadsheets. Because of its 
slow printing speed (a sheet on my Epson at 600 Baud took 
approximately 10 minutes), it is not something you would 
use unless you really needed to. This is not really a program 
fault, but rather a characteristic of this type of program. 

There are a few things that I would like to see done to 
the program. First, I would like the documentation on 
standard 8 '/4-inch paper. The ones supplied were only 
printed four inches wide in tiny print that I found difficult 
to read without a magnifying lens. I would like to see the 
program supplied with a module to convert a spreadsheet 
file into the necessary number of files, thus freeing the user 
of this chore. Neither of these improvements would be very 
difficult and would increase user satisfaction enormously. 
I encountered one final problem. I was not able to change 
the Baud rate for printing. When 1 tried, using the OS-9 
XMODE /P baud= command, the printing became erratic 
and printed garbage at any speed except 600 Baud. I also 
tried it on OS-9 V. 1 .0 and got the same results. I must admit 
that I never print graphics on OS-9 and, therefore, I cannot 
say if the fault is with the program or with the bit-banger 
routine in OS-9 itself. 

At the cost of $39.95, SIDE WISE OS9 allows the user 
the option of printing nice-looking, wide spreadsheets. It 
is moderately easy to use and works well. I recommend it 
to anyone who needs this kind of utility. 

(Derringer Software, Inc., P.O. Box 5300, Florence, SC 
29502-5300, OS-9 and BASIC09 required, printer necessary, 
$39.95 plus S3 S/H) 

— Larry Goldwasser 



Hint . . . 

Waiting for the Keystroke 

If you want your BASIC program to wait for a 
keystroke, just type EXEC 44539. This performs the 
same function as fl$=INKEY$:IF fl$="" THEN (next 
line). 

The computer waits for any key to be pressed before 
the program continues. 
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CoCo EPROM Programmer 
Has a Variety of Functions 

In the July 1983 rainbow (Page 70), we did a review of 
the first generation of The Intronics EPROM Programmer. 
Recently RAINBOW received a new model from Spectrum 
Projects, Inc., that is an improvement over the older model, 
even though the older model worked fine. 

First of all, who needs an EPROM programmer? Perhaps 
you have read all of the different articles on patching BASIC 
to make your disk drives step at six ms, or adding new 
commands. To make these changes permanent you must 
replace one of the ROMs inside your CoCo with an 
EPROM. 

The only way to program an EPROM is with an EPROM 
programmer. At the same time, as was pointed out in the 
previous review, a CoCo with The Intronics EPROM 
Programmer is a more than adequate substitute for a 
commercial programmer. These commercial models run 
upwards of SI, 000 and require personality modules for each 
different type of EPROM. This model is a bargain at 
$149.95. 

A I6K non-Extended CoCo is all that is necessary. If you 
care to use the programmer with a disk system, you must 
have a Multi-Pak because the software is at the same address 
as your disk controller. Adequate instructions are given on 
how to relocate the software, but you still need a place to 
plug in both your disk controller and your programmer. The 
unit comes with a 10-page user's manual and a 90-day 
limited warranty. 

The CoCo EPROM programmer is in a plastic case about 
twice the size of a normal ROM pack. A hole cut in the 
top of the case exposes the 28-pin heavy duty ZIF (zero 
insertion force) socket to hold the EPROM. One nice thing 
that separates the Intronic's unit from others I have seen 
is an on-board power supply — no batteries to string 
together to come up with the proper programming voltage. 
In fact, the programming voltage (12.5-21 -25 V) is program- 
mable under software control. The unit normally plugs into 
your ROM port. 

Software is on an EPROM inside the unit, so powering 
up your computer and typing EXEC 49152 will boot the self- 
contained software. Functions include: I) EPROM erased, 
2) Program EPROM, 3) Verify EPROM, 4) Move EPROM 



Him . . . 

Disk Drive Peek-a-Boo 

Need to know what your drive is up to? The 
following PEEKs may help: 

PRINT PEEK (235) — returns drive number 
PRINT PEEK (236) — returns track number 
PRINT PEEK(237) — returns sector number 



to memory, 5) Slide memory, 6) Examine/ change memory, 
7) Fill buffer with FFs, 8) Return to BASIC, 9) Change buffer 
address and 0) Change Vpp. 

The buffer for the programmer normally starts at S2000, 
but using menu function 9, it can be moved to anywhere 
in memory. This allows you to duplicate your ROMs 
without moving them. 

The CoCo EPROM Programmer has a wide variety of 
EPROM characteristics already in the software. No 
personality modules are necessary. Following are the 
choices: 



2516/2716 


2K 


X 


8 


2532 


4K 


X 


8 


2732 


4K 


X 


8 


2564 


8K 


X 


8 


2764 


8K 


X 


8 


25128 


16K 


X 


8 


27128 


16K 


X 


8 


68764/6 


8K 


X 


8 


2732A 


4K 


X 


8 


27256 


32K 


X 


g 


27512 


64 K 


X 


8 


2508 


IK 


X 


8 


2578 


IK 


X 


8 


2758 


IK 


X 


8 


MK.2764 


8K 


X 


8 



As most experimenters are aware, the 68766 is the 
replacement for the pre-Korean CoCo ROMs. You can 
linker around changing things as much as you like with this 
device. One nice bonus in the manual explains the wiring 
necessary to use the less expensive 2764 EPROMs in place 
of 68766s. 

One extra piece of software is included that is unique. A 
program named BIRP (BASIC in ROM pack) is included. 
This allows putting your favorite BASIC program in a ROM 
pack for automatic execution. You can even LIST protect 
the program if you wish. 

I think the CoCo EPROM Programmer is the nicest and 
most functional unit of its type on the market. It's a little 
more expensive than some of the competitors, but I think 
it's worth the investment. I programmed a few EPROMs 
with the demo unit and it worked flawlessly. 

(Spectrum Projects, Inc., P.O. Box 21272, 93-15 86th Drive, 
Woodhaven, NY, 11421, $149.95 plus S3 S/H) 

— Dan Downard 
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Some companies 
will tell you 
their programs 
are integrated. 

Derringer 
software speaks 

for itself. 




■ Lots of companies claim that their programs are integrated. 
All they mean is that several programs are on the same disk. 
And only a few of them talk to each other. Crude systems that 
lack features can be a real headache. 

■ At Derringer Software, when we say our programs are 
integrated, we mean that our programs talk to each other. 
Our PRO-COLOR-SERIES is completely compatible with 
DYNACALC" and TELEWRITER-64.™ These three programs 
are among the most flexible on the market today. 

■ Investigate before you make any investment. Derringer 
Software will prove itself worthy. We produced the first serious 
database program for the Color Computer back in 1982. And 

it has remained the popular choice ever since. Now that's really 
saying something! 

Derringer Software, Inc. 

PO Box 5300, Florence, SC 29502-5300 

To place an order by phone, call: (803) 665-5676 

10AMand5PMEDT 

Canadian Distributor-Kelly Software 

Australian Distributor-Computer Hut Software 



PROCOLOR-FILE 

6 1984 by Derringer Sollware, Inc 

ENHANCED 2,0 

• 60 Data Fields lor each record 

• 1020 spaces available per record if needed 
■ Maximizes multiple drive operation 

•28 equation lines (+-7) 

• IF-THEN-ELSE logic test in equations 

• Full Screen editing on up to 4 data entry screens 

• Key click and auto key repeat 

• Stores custom designed report (ormats 

• Obtain totals, averages, or summaries tor any field 

• Output reports to printer, screen, or disk file 

• Send data out to a DYNACALC compatible file 

• Separate label generator for up to 10 across labels 

• Pre-define up to 16 indexes for searching/reporting file 

• Sorts 750 records in under 5 minutes 

• User defined selection menus 

• Repeated tasks performed with one keystroke 

• Comes with 75 pages of documentation in a 3 ring binder 

• Supported by a national users group 

• Full time programmer support 

• Supplied on an unprotected disk 



$ 59 
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PROCOLORFORMS 2.0 

1984 by Derringer Soltwaie. Inc. 

PRO-COLOR-FORMS will access data files created with 
PRO-COLOR-FILE and merge them with a letter or place them 
on pre-printed forms. 

• STORE UP TO 6 FORMATS • USER DEFINED PAGE SIZE 

• SUPPORTS SPECIAL PRINTER CONTROL CODES • RIGHT 
JUSTIFICATION • PASSWORD PROTECTION • MERGES 
WITH GRAPHICS FROM MASTER DESIGN OR 
TELEGRAPHICS • 

PRO-COLOR-DIR 

1984 by Dernnger Soltwaie. Inc. 

PRO-COLOR-DIR will read your directories and create a 
master data file that can be accessed by PRO-COLOR-FILE 
for sorting and reporting. 1000 + records can be stored on 
one diskette with valuable information about each program. 

You can obtain hard copies of the information and create 
labels of the filenames for placing on the diskette itself. 

• DISK ID NAME • FILENAME/EXT • TYPE OF FILE 

• DATE CREATED • DATE UPDATED ■ NUMBER OF 
GRANS ALLOCATED • NUMBER OF SECTORS 
ALLOCATED AND USED • MACHINE LANGUAGE 
ADDRESSES • 



$ 29 
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FOR BOTH 



DYNACALC 

SPREAD SHEET FLEXIBILITY 

(Includes Dynagraph + Sidewise) 



sjggs 

Telewriter-64. 

$5495 



WORD PROCESSOR POWER 

coco Max 11 

GRAPHICS SUPERIOR 



$7995 



MASTER DESIGN 

6 1984 oy Derringer Sollware. Inc 

Generates lettering in hires graphics that can be different 
sizes, skinny, bold, textured, drop shadowed, raise shadowed 
or tall. Also interlaces with the Telewriler-64 word processor 
for printing hi-res displays with your letters. 

Take full advantageof all the extended BASIC hi-res graphic 
commands including boxes, circles, lines, copy displays and 
utilize GET and PUT features. Added commands include mirror 
reflection, turn displays backwards or upside down. Squish 
displays, create dot patterns lor shading or diagonal lines. 

The Letterhead Utility allows you to access hi-res graphics 
Irom Telewriter-64, your own BASIC programs or 
PRO-COLOR-FORMS. 

Interlaces with dot matrix printers having dot addressable 
graphics. 

See reviews In 

July 84 Rainbow. Oct. 84 Hoi C0C0 



$2995 



DYNAGRAPH 

1984 by Derringer Sollware. Inc 

A UTILITY PROGRAM FOR OWNERS OF DYNACALC 
DYNAGRAPH will transfer graphic files Irom DYNACALC 

to standard graphic files lor further enhancing and labeling 

by graphic editing programs such as MASTER DESIGN, C0C0 

Max or Graphicom. 
DYNAGRAPH can also reduce a graph vertically and 

horizontally so that multiple displays can be combined 

into one. 



$1995" 



included FREE with DYNACALC 



max Edit 

cl9B5Snard enterprises 

A FONT EDITOR FOR COCO MAX 

• Edit current lonts 

• Create New Fonts 

■ Design Symbol Fonts 

• Comes with pre-defined fonts 

• C0C0 Max I & II Compatible 



(disk only) 
Written by: Michael W. Slmaluk 
C0C0 Max' is a registered trademark 0! Colorware. 



$1995 



SIDEWISE 

B 1984 by Deiringer Sollware. Inc 

Ait a new "twisl" to your printer's capabilities! 

SIDEWISE makes your printer do something you never 
thought possible -print side ways! 

SIDEWISE will read in any ASCII text file and print it out 
side ways using a Radio Shack, Epson, Okidata, C-ltoh or 
Gemini printers having dot-graphics ability. 

SIDEWISE 0S9 is compatible with DYNACALC 0S9 and 
requires Basic09 

SIDEWISE 0S9 $ QQ95 
(Disk only) v O\J 



$2495" 



SIDEWISE RS-OOS 
* RS-DOS version included FREE with DYNACALC" 
0S9 is a registered trademark ol MICROWARE and MOTOROLA. 



TELEGRAPHICS 

'?'f98<l by Derringer Sollware. Inc. 

PRINT HI-RES GRAPHICS USING TELEWRITER-64! 

Use C0C0 Max, Graphicom or other graphics programs to 
create letter heads and print them while using Telewriter-64. 

Telegraphies interlaces with Radio Shack, Epson. Gemini, 
C-ltoh and Okidata printers having dot-addressable graphics. 
A simple modification to Telewriter-64 will allow you to exit 
Telewriter via the DISK I/O MENU and print out the graphic 
without affecting any of your text in the buffer. 

This is the same feature that is included in our MASTER 
DESIGN program. Since we felt you don't need to buy two 
graphics editing programs, we have made this feature available 
at a reduced price. mt\r 

(Available Only On Disk) IffcHT 

Telewriter-64 + TELEGRAPHICS - S64.95 

(SaveS20j 

COCO Max II + TELEGRAPHICS - $84.95 

(Save $20) 

NO OTHER DISCOUNTS APPLICABLE 



@ SUMMARY 

1985 Derringer Sollware. Inc. 

II you use your spreadsheet program to keep track of your 
expenses then ©SUMMARY can help you analyze those 
expenses. For example, if you indicate a "Category" for each 
expense then @ SUMMARY will produce a report that shows 
a total for each category, the highest amount, the lowest 
amount and the average amount. In addition, ©SUMMARY 
can produce a hi-res line graph or bar graph of the analysis 
and allow you to place titles on the graph. A hardcopy 01 the 
graph can also be generated as well as saved to disk. 

The analysis can be saved in a "data file" which can be 
loaded into DYNACALC or read in by @ SUMMARY for future 
additions to the analysis. If you use other Spreadsheets such 
as ELITE'CALC then you have added a graphing feature to 
your spreadsheet applications. The analysis can also be saved 
in an ASCII file which can be read by word processors tor 
inclusion in a report. 

@ SUMMARY is compatible with any spreadsheet program 
that can generate an ASCII text file of worksheets. 

Specily RS-DOS 
or OSS' 



*0S9 version does not 
have Hi-Res graphing 
and requires Basic09. 



(disk only) 



$1095 



DYNACALC is a registered trademark ol Computer Systems Center 

ELITE' CALC is a trademark ol Elite Soltwaie 

0S9 is a registered trademark ol MICROWARE and MOTOROLA 



Check , Money Order, VISA or MasterCard Include $3.00 for UPS Shipping - S5.00 U.S. Mail - S9.00 Air Mail South Carolina residents add sales tax. 




HOME HELP 



16K 
ECB 



HnSSblPi 



Let Co Co do all the thinking on your 
next trip to the grocery store 
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Grocery shopping doesn't have to 
be such an unpleasant task any- 
more. Shoplist is a menu-driven 
program that allows you to enter dinner 
menus by number and print a shopping 
list. It requires 16K of RAM, Color 
BASIC, a printer and runs on disk or 
cassette systems. 

To get started, key in the basic 
program as listed. If you have a 16K 
machine, delete all the remarks and 
unnecessary spaces. The DATA state- 
ments starting at Line 1 550 are a partial 
listing of the menu we use at our house. 
I have reduced the menu by about 80 
percent to simplify the sample print- 
outs. You'll have to type in your own 
data so it's not necessary to enter lines 
1550 to 2010. However, you may want 
to type in several of the lines just to see 



Dennis Weide is an avid computer 
hobbyist who teaches programming on 
the Co Co and IBM PC. He has written 
for all the major Co Co magazines, 
including many programs in RAINBOW. 
Dennis lives in Albuquerque, New 
Mexico. 



how the program handles the data and 
to ensure that your program works 
properly. 

Storing Program Data 

Storing data is easy but requires an 
explanation. Refer to the program 
listing and Table 1, and follow these 
simple instructions when entering data 
elements. It's a good idea to use a 
separate program line for each meal so 
editing or adding elements is easier. 
Always precede section titles with a 'Y' 
and a comma (,) as in Line 1550. The 
'Y' indicates that the next data element 
is a section title and will be printed in 
large font. In this case, the section title 
is "Main Course Dinners." 

Always precede meal titles with an 'X' 
and a comma (,) as in Line 1560. The 
'X' indicates that the next element is a 
meal title and will also be printed in 
large font. In Line 1560, the menu title 
is "Deep Dish Pasta." 

To enter the meal ingredients, enter 
the amount of the item first, followed 
by a comma and the name of the ingre- 
dient. In Line 1560, Deep Dish Pasta 
requires one jar of spaghetti sauce, one- 



half pound of ground beef, one bell 
pepper, etc. To end the list of ingre- 
dients, use double commas („). The 
program uses double commas to deter- 
mine the end of the DATA statement. 

A Sample Statement 

Let's try a sample statement before 
you enter your own data. We'll enter the 
data for a hamburger dinner. Here's a 
list of ingredients we'll need. 

1 pound ground beef 

4 fresh potatoes 

1 fresh onion 
sweet relish 
catsup 
mustard 

1 tomato 

Now, here's how to enter this data in 
a statement. 
155 DATA X, HAMBURGER DINNER, 

1,LB(S) 
GR. BEEF, A, POTATO (S),l, ONION 

(S),0, SWEET 
RELISH, 0, CATSUP, 0, MUSTARD, 1, 

TOMATO(S), , 

The (S) is used to make plurals easier 
and can be omitted. Also, to save 
memory, you can abbreviate as much or 
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Table 1 
Data Element Requirements 

DATA X, Indicates meal title. 

Precede all meal titles 
with 'X', as in lines 
1560, 1570, etc. 

DflTfl Y, Indicates section ti- 

tles. Precede all sec- 
tion titles with 'Y\ as 
in lines 1550, 1760, 
etc. 

Double commas Indicates end of in- 
gredients for specified 
meal. All meal lines 
should end with („). 
Do not put a space 
between commas. 

DflTfl END Place the word END 

at the end of selecta- 
ble items. Any data 
after this word are 
treated as miscellane- 
ous items. See Line 
1880. 

DflTfl LAST Place the word LAST 

at the end of dinner 
section of DflTfl state- 
ments. See Line 1710. 

DflTfl STOP Place the word STOP 

at the end of com- 
plete data listing. If 
this word is omitted, 
you will get an OD 
Error when you run 
the program. 



as little as desired. Using the abbrevia- 
tion "GR." instead of the whole word 
"ground" saves three bytes. Notice that 
sweet relish, catsup and mustard are all 
preceded by a zero (0). These items 
require less than an entire jar, so check 
your supply to see if you need them. 
Otherwise, cross them off the list. 

The program requires three other 
special words to function properly; they 
are shown in Table 1. The word LAST 
is used to indicate the last of the dinner 
DflTfl statements. In my program. Line 
1710 does this. Any DflTfl statements 
after Line 1710 can't be chosen auto- 
matically. 

The word END is used to indicate the 
end of the selectable menu items (see 
Line 1880). Any DflTfl statements after 
this element are treated as miscellane- 
ous items. All miscellaneous items can 
be entered under titles in any manner 
you wish. Use an asterisk (*) in titles as 
shown in Line 1890 if you want these 
titles to be printed in large font. Any 



miscellaneous items that also appear in 
the first part of the program data are 
compared before being printed. 

The last data element in the program 
must be STOP (see Line 2010). This 
element tells the program not to look 
for more data. If you follow the instruc- 
tions, you can add as many titles and 
selections as needed. 

Using Special Codes 

For those with a Line Printer VII, this 
program works as listed. For those who 
have a different printer, I have used 
control codes for all printer functions so 
you can change them as needed. Lines 
230 and 240 set the codes for the LP VII. 
Use Table 2 to determine the function 
of each code. If you have a printer that 
automatically returns to small font at 
the end of a printed line (such as Epson 
MX-80), delete PO$ from Line 230. It 
isn't necessary to delete it anywhere else 
in the program. 

You can also add the speed-up POKEs 
to the program to decrease the execu- 
tion time. However, if speed is not too 
important or if you aren't using a disk, 
I don't recommend the high-speed POKE 
because it causes too much internal heat 
to build up. 

Now Let's Try the Program 

After you have keyed in the listing 
and saved a copy to tape or disk, run 
the program. A program menu appears 
and you'll be prompted to enter one of 
five choices: 

1. Auto dinner selection 

2. Enter your selections 

3. List menu w/o ingredients 

4. List menu w/ ingredients 

5. Print shopping list 

Entering a '3' produces a printout 
similar to Sample Printout 1. It is a list 
of all menu items without ingredients. 
This list is used to make menu selections 
when running the program. Now let's 
discuss the remaining options. 

Auto Dinner Selection 

If you choose number T on the 
menu, the program prompts you to 
enter the number of dinners you want 
selected. This is a great option if your 
family can't agree on what to have for 
dinner. After entering the number of 
dinners, you're free to leave the compu- 
ter for a while and do something else. 
The computer randomly chooses the 
dinners, prints a complete menu with 
the ingredients for each dinner, then 
returns to the program menu. 

The auto option chooses the dinners 



from the dinner section of the program 
only. Originally, I had the program 
automatically select dinners, salads and 
desserts. This created problems when 
the program chose hot dogs and french 
fries for dinner, shrimp cocktail for the 
salad and chocolate mousse for dessert 
— these selections somehow didn't seem 
to go together. You can let the computer 
select your dinners, but you'll have to 
select your own salads and desserts 
when it finishes. 





Table 2 




Printer Control Codes 


POS 


ASCII Code 30 — Sets the 




printer to normal font 




(standard print size). 


Pl$ 


ASCII Code 31 — Sets the 




printer to large font (dou- 




ble width print). 


RTS 


ASCII Code 26 — Carriage 




return without line feed. 


LIS 


ASCII Code 10 — Carriage 




return with line feed. 


L2$ 


ASCII Codes 2 and 10 — 




Cause double line feed. 


L3$ 


ASCII Codes 3 and 10 — 




Cause triple line feed. 


(L2S 


and L3$ can be replaced with 


ASCII Code 12 if your printer allows 


form feeds.) 



Entering your Selections 

The second choice on the program 
menu lets you select your own dinners. 
This is the option you will most likely 
use. You can use it before, after or 
without the auto dinner selection. The 
program prompts you for the number 
of entries you wish to make. A FOR/ 
NEXT loop is used to assign the entries 
to variable names. You enter the 
number of the dinner, salad, dessert or 
other item; not the item name. This is 
the number shown in Sample Printout 
1. The program prints a list of your 
selections with all the required ingre- 
dients, then returns to the program 
menu. 
Listing the Menu 

Entering a '3' or '4' from the program 
menu lists each dinner, salad, dessert or 
other menu item with its assigned 
number. For the purpose of this article, 
I'll refer to all menu items as dinners. 
Option 3 (Sample Printout 1) lists the 
menu without the ingredients, while 
Option 4 (Sample Printout 2) lists all the 
ingredients below the dinner. These lists 
are used to determine the dinner 
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Sample Printout 1 




*^- *t- *w* *&• ^F* 


MAIN COURSE DINNERS 


:+:*** 


H 


1 


DEEP DISH PHSTH 




4* 


2 


MERTBRLL SRHDWICHES 




** 


3 


CHICKEN ORIENTFIL 




4* 


«* 


IXRLIRN BEEF - SBHDWICHES 




*¥ 


3 


ROBST BEER DINNER 




** 


6 


CHICKEN KIEV 




■** 


7 


CREAMED TUNH ON TORST 




4* 


e 


PEPPER STERK 




«* 


5> 


POT RORST DINNER 




4» 


10 SLQPPY JOES 




«» 


1 1 


CHICKEN ENCHILRDRS 




#* 


12 CHICKEN CASSEROLE 




«* 


13 SPARE RIBS 




4* 


It- MRNICOTTI 




** 


IS CHILI CON CRRNE 





number mentioned earlier and to verify 
that the dinner ingredients are correct. 

Printing the Shopping List 

The last choice on the program menu 
prints the entire shopping list (Sample 
Printout 3). Before printing the list, the 
program scans it and totals identical 
ingredients so they will only be printed 
once. This takes a little while, so you can 
go find other things to do. If you wish, 
you can change Line 940 to read: 940 
GOTO 1280. 



The shopping list is automatically 
printed after completing your selections 
and the computer has totaled them. 
This method saves a lot of time. 

The shopping list is printed in two 
sections. The first section is the list of 
ingredients for the dinners you or the 
computer have chosen. Duplicate items 
are only printed once, but the total is 
correct for the amount required for all 
dinners. The second section of the 
shopping list is all the miscellaneous 
items that will be printed every week. 









Sample Printout 2 




DINNER 


MENU 






*¥ 


e 


PEPPER STERK 










1 LEK.3) CUBE '■ 
1 BELL PEPPER' 
3 GREEN ONION' 
1 TOMATO'.: S> 
1 CAMS) BEEF 
SOY SAUCE 
CORN STARCH 
1 SMALL PKGCS 


.TEAK. 
8) 
S) 

BULLION 

■> RICE 


SOUP 



Sample Printout 3 

***SK HOUSEHOLD SUPPLIES ****: 
LAUNDRY DETERGENT 
DISMURSHER DETERGENT 
DISH DETERGENT C PRLMOL I VE ) 
RJRX CLERNER 
FABRIC SOFTENER 



:+::*: :*::*:#: BHKIMG; 

CRf'E MIXES 

CHERRY PIE FILLING 

PIE CRUST MIX OR SHELL? 

CRICSO SHORTENING 

CRISCO OIL 

PERNIJT OIL 



SUPPLIES 



j*::*:*::*:*: 



You must compare this section of the list 
with what you have on hand and cross 
off anything that is not needed. 

If you print a shopping list and wish 
to add to it, choose Tor 4 2' when the 
program menu appears. Make your new 
selections and print a new shopping list. 
You will have a complete list with the 
new dinner ingredients listed at the end 
of the list. 

Note that the first part of the shop- 
ping list contains only the items re- 
quired to prepare the dinners, salads, 
desserts or other selections chosen. The 
last part contains all items you want 
printed every week. If you wish to delete 
this option, don't enter any data using 
the DATA Y option. The program will 
then only print the selected items. 

Memory Requirements 

The amount of free memory after the 
program is loaded determines how 
much data the program can store. To 
use all the memory available, clear the 
graphics memory pages. For disk users, 
type the following: 
POKE 25, 14: POKE 3584,0: NEW 

ENTER 
For non-disk users, type: 
POKE 25, S: NEW ENTER 

After deleting all remarks, unneces- 
sary spaces and DATA statements, a 16K 
disk system has about 9,865 bytes of free 
memory and a 32K disk system has 
about 26,249 free bytes available. A 
non-disk system has 2K bytes more free 
memory because the disk operating 
system (DOS) uses 2K. You can change 
the DIM statements in Line 270 to reflect 
what you need. To do this, type: 

RUN 5000 ENTER 
This program line counts the number of 
valid data elements and prints the 
dimension size on the screen. 

That's All, Folks! 

Shoplist is not a recipe program, but 
a shopping-list program. It can help 
plan your meals and grocery budget. 
When entering data elements, figure the 
amount of ingredients normally used to 
feed your family. We have a family of 
four, so each dinner is listed with the 
ingredients required to feed four people. 
If you're planning to have guests for 
dinner one evening, enter the dinner 
menu two or three times, as necessary, 
to increase the size of the dinner. 

After you've used this program for a 
week or two, it will make your grocery 
shopping easier — you won't have to 
return to the store for things forgotten! 
That alone should be worth the time 
and effort required to type it in. □ 
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L^300 ... 


...10 






y 480 ... 


1 


1620 . . 


. ...77 


700 .. . 


..147 


1680 . . 


...195 


920 ... 


....75 


1780 .. 


...232 


1120 .. 


....10 


1860 .. 


....21 


1320 . . 


...120 


1940 .. 


. ...80 


1530 .. 





END .. 


...104 











The listing: SHOPLIST 
100 ' MENU & SHOPPING LIST 



BY DENNIS WE IDE 
COPYRIGHT (198 5) 



11J8 ' 

120 ■ 

130 ■ 

140 ' 

150 CLS: PRINT© 3 4, "DINNER MENU & 

SHOPPING LIST" 

160 PRINT@104, "BY DENNIS WEIDE" 

170 PRINT@169, "COPYRIGHT 1985" 

180 ■ 

190 ■ 

200 ' CONTROL CODES 

210 ' 

220 « 

230 P0$=CHR$(30) : P1$=CHR$ (31) :RT 

$=CHR$(2 6) 

240 L1$=CHR$(10) :L2$=STRING$(2,1 

0) :L3$=STRING$(3,10) 

250 READ B$:IF B$="X" THEN DN=DN 

+ 1 

260 IF B$="LAST"THEN 270 ELSE 25 



270 DIM MU$(7):DIM IT$(210):DIM 

IT(210) :DIM RD(7) 

280 ' 

290 • 

300 ' PROGRAM MENU 

310 ' 

320 ' 

330 Q1=»0 : CLS : PRINT : PRINT 

340 PRINTTAB (2) "DINNER MENU & SH 

OPPING LIST" 

350 PRINTTAB (8) "MAIN PROGRAM MEN 

O" 

360 PRINT : PRINTTAB ( 2 )" 1 . AUTO DIN 

NER SELECTION" 

370 PRINTTAB (2 ) "2. ENTER YOUR SEL 

ECTION" 

380 PRINTTAB (2) "3. LI ST MENU W/O 

INGREDIENTS" 

390 PRINTTAB (2) "4. LIST MENU W/IN 

GREDIENTS" 

400 PRINTTAB (2) "5. PRINT SHOPPING 

LIST" 
410 PRINT: PRINT :Z=0 
420 INPUT" ENTER ONE OF THE AB 




INTRODUCING OUR NEW 

PCX-II COMPUTER 

TOTAL IBM PC-XT COMPATIBILITY 
AT SENSATIONAL PRICES!!! 

Don't settle for a 
Tandy 1000 or 
other standard PC 
until you check our 
performance and 
prices. 

Starting at 

only 

$685.00 

Hard Drive Systems As low as $520.00 

complete 

Color Graphic Board $ 89.95 

Floppy Controller 69.95 

IBM Compatible keyboard 99.95 

Multi-function board 129.95 

(1 serial port, 1 parallel port, 

1 game port, real time clock, 

upto384K.) 

Parallel printer cable 24.95 

Serial printer cable 29.95 

135 Watt IBM-type power supply .... 109.95 

IBM PC-XT compatible 

mother board 179.95 



Mark Data Products uses and 

recommends the following excellent 

software: 

DAC - complete accounting system for IBM compatibles. General 
ledger, receivables, payables, inventory. 

An unbelievable bargain at ONLY $69.95 

DBASE III - AshtonTate's powerful database management system 

ONLY $369.00 
THE TWIN - Works exactly like Lotus 1-2-3 

An outstanding value ONLY $145.00 

COCO UTIL - A valuable utility program that allows you to 
transfer Tandy CoCo disc files to your MS-DOS machine. You may 
also transfer MS-DOS files to a Color Computer disc. Will save you 
countless hours of retyping. $29.95 

SAVE MONEY 

We maintain a library of quality public domain software for 
purchasers of our computer systems — text processor, data base 
manager, spread sheet, communication, utilities and 
entertainment software. Call for details. 




" Mark Data Products 



24001 Alicia Parkway, #207 Mission Viejo, CA 92691 
(714) 768-1551 
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OVE";M 


840 CLS: PRINT: PRINTTAB (4) "HERE'S 


421 F1=0: RESTORE 


YOUR PRINTER COPY" 


422 IF M<1 OR M>5 THEN 330 


850 PRINT#-2,P1$;L1$:F0R RR=1 TO 


423 IF P9=0 AND M=5 THEN 3 30 


3 


424 IF M<3 THEN P9=l 


860 PRINT#-2, "DINNER MENU" ;RT$ ; : 


430 ON M GOTO 500,660,1100,1100, 


NEXT RR 


1280 


870 FOR X=l TO ND : RESTORE : Z=0 


440 GOTO 3 30 


880 READ A$:IF A$="X" THEN Z=Z+1 


450 ■ 


890 IF A$=MU$(X) THEN 900 ELSE 9 


460 ' 


30 


470 ' AUTO DINNER SELECTION 


900 PRINT#-2,L2$;P1$:F0R RR=1 TO 


480 ' 
490 ' 


3 
910 PRINT#-2,"#"Z;MU$(X) ;RT$; 


500 CLS : RESTORE : F .INT : PRINTTAB ( 5 


920 NEXT RR:PRINT#-2,P0$;L1$:GOS 


) "AUTO DINNER SELECTION" 


UB 1000 


510 PRINT: PRINT 


930 IF A$="END" THEN NEXT X ELSE 


520 INPUT" ENTER NUMBER OF DINN 


880 


ERS";ND 


940 GOTO 3 30 


530 PRINT: PRINTTAB (7) "ONE MOMENT 


950 ' 


PLEASE ! " 


960 ' 


540 PRINTTAB (3) "THE COMPUTER IS 


970 ' LIST INGREDIENTS ON SE 


SELECTING" 


LECTION 


550 PRINTTAB (10) "YOUR DINNERS." 


980 ■ 


560 FOR X=l TO ND 


990 ' 


570 RD(X)=RND(DN) 


1000 READ B1$,B2$:IF Bl$="" THEN 


580 FOR Y=l TO ND:IF Y=X THEN 60 


RETURN 





1010 F1=F1+1:IT(F1)=VAL(B1$) :IT$ 


590 IF RD(X)=RD(Y) THEN RD(X)=RN 


(F1)=B2$ 


D(DN) :GOTO 580 


1020 IF VAL(B1$)>0 THEN 1040 


600 NEXT Y,X:GOTO 7 30 


1030 PRINT#-2,TAB(12) ;B2$:GOTO 1 


610 ■ 


000 


620 ■ 


1040 PRINT#-2,TAB(10) ;B1$" "B2$: 


630 ■ SELECT YOUR DINNERS 


GOTO 1000 


640 ' 


1050 • 


650 ■ 


1060 ■ 


660 CLS: PRINT: PRINTTAB (5) "ENTER 


1070 ' LIST SELECTIONS 


YOUR SELECTIONS" 


1080 • 


670 PRINT: PRINT 


1090 • 


680 INPUT" ENTER NUMBER OF SELE 


1100 CLS : RESTORE : PRINT : PRINTTAB ( 


CTIONS";ND 


6) "PRINTER COPY OF DATA" 


690 FOR X=l TO ND 


1110 READ A$:IF A$="X" THEN Q1=Q 


700 PRINTTAB (7) "ENTER SELECTION 


1+1 .-GOTO 1170 


#";: INPUT RD(X) 


1120 IF A$="Y" THEN 1130 ELSE 11 


710 NEXT X 


60 


720 CLS: PRINT: PRINTTAB (7) "ONE MO 


1130 READ B$:PRINT#-2,P1$;L3$ 


MENT PLEASE!" 


1140 FOR RR=1 TO 3 : PRINT#-2 , B$ ;R 


730 FOR X=l TO ND : RESTORE : Z=0 


T$;:NEXT RR 


740 READ B$:IF B$="X" THEN Z=Z+1 


1150 PRINT#-2,P0$;L1$:GOTO 1110 


750 IF B$="END" THEN 780 


1160 IF A$="END" THEN 330 ELSE 1 


7 60 IF RD(X)=Z THEN 770 ELSE 740 


110 


770 READ A$:MU$(X)=A$ 


1170 READ B$:PRINT#-2,P1$;"#»;Q1 


780 NEXT X 


;B$;P0$;L1$ 


790 ' 


1180 IF M=4 THEN READ B$,C$ ELSE 


800 ' 


1110 


810 ■ HARDCOPY OF DINNER SEL 


1190 IF C$="" THEN PRINT#-2 , L2$ : 


ECTION 


GOTO 1110 


820 • 


1200 IF VAL(B$)>0 THEN 1210 ELSE 


830 ' 


1220 
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1230 ' 


1240 ' 


1250 ' 


1260 ' 


1270 ' 



1210 PRINT#-2,TAB(10)B$" "C$:GOT 

1180 

1220 PRINT#-2,TAB(12)C$:GOTO 118 





PRINT SHOPPING LIST 



1280 CLS : PRINT :PRINTTAB(1) "HERE 

COMES YOUR SHOPPING LIST" 

1290 F1=F1+1:READ A$ : IF A$="STOP 

" THEN 1310 

1300 IT$(Fl)=A$:GOTO 1290 

1310 FOR X=l TO Fl 

1320 FOR Y=l TO Fl 

13 30 IF Y=X THEN 13 50 

1340 IF IT$(Y)=IT$(X) THEN IT(X) 

=IT (X) +IT (Y) : IT (Y) =0 : IT$ ( Y) =" " 

1350 NEXT Y,X 

13 60 PRINT#-2,P1$;L3$;L3$:F0R RR 

=1 TO 3 

1370 PRINT#-2, "SHOPPING LIST";RT 

$ ; : NEXT RR 

1380 PRINT#-2,P0$;L2$ 

1390 FOR X=l TO Fl 

1400 IF LEFT$(IT$(X) ,1)="*" THEN 

1460 
1410 IF IT$(X)>"" THEN 1420 ELSE 

1490 
1420 IF IT(X)>0 THEN PRINT#-2,IT 
(X) ;IT$(X) 
1430 IF IT$(X)="Y" THEN 1490 

IF IT(X)=<0 THEN PRINT#-2,T 

;IT$(X) 

GOTO 1490 

PRINT#-2,Pl$:FOR RR=1 TO 3 

PRINT#-2,IT$(X) ;RT$;:NEXT R 



1440 

AB(3 

1450 

1460 

1470 

R 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 



PRINT#-2,P0$ 
NEXT XrGOTO 330 



RECIPE DATA 



DATA 



E DINNERS 
1560 DATA 



Y, ********* 
******** 



MAIN COURS 



X,DEEP DISH PASTA, 1,JA 
R(S) SPAGHETTI SAUCE, . 5 , LB (S) GR 
. BEEF , 1 , BELL PEPPER ( S ) , 1 , ONION ( 
S),1,JAR(S) MUSHROOMS, 1,PKG(S) E 
LBOW MACARONI, 8, OZ.MOZZERELLA CH 
EESE, , 

1570 DATA X, MEATBALL SANDWICHES, 
1,JAR(S) PREGO SAUCE W/MUSHROOMS 
,1,LB(S) GR. BEEF,8,OZ. MOZZEREL 
LA CHEESE , 1 , PKG ( S ) STEAK BUNS , , 
1580 DATA X, CHICKEN ORIENTAL, 3, B 



ONED CHICKEN BREASTS , 2 , CAN ( S ) OR 
IENTAL VEGETABLES, 2, CHICKEN BULL 
ION CUBE(S) ,0,SOY SAUCE, , CORN S 
TARCH,1,BELL PEPPER (S ), 1, SMALL P 
KG(S) RICE,, 

1590 DATA X, ITALIAN BEEF SANDWIC 
HES , 1 , LEFTOVER BEEF ROAST, 1, BELL 

PEPPER (S ) ,1, BEEF BULLION CUBE(S 
),1,TSP(S) ITALIAN SEASONING, 1,P 
KG(S) STEAK BUNS, , 

1600 DATA X,ROAST BEEF DINNER, 4, 
LB(S) ROAST BEEF, 4, POTATO (S) ,2, P 
KG(S) FRESH/FROZEN VEGETABLES , , 
1610 DATA X, CHICKEN KIEV, 8, BONED 

CHICKEN BREASTS, 1, PKG (S) DRIED 
BREAD CRUMBS, 1, EGG (S ) ,0, FLOUR, 3, 
GREEN ONION ( S ) , , CHIVES , , PARSLE 
Y,0, BUTTER, , 

1620 DATA X, CREAMED TUNA ON TO AS 
T,2,CAN(S) TUNA, 0, MILK, 0, FLOUR ,0 
, SLICED BREAD, 1, PKG (S) FROZEN PE 
AS, 0, SALT, 0, BLACK PEPPER, , 
1630 DATA X, PEPPER STEAK, 1, LB (S) 

CUBE STEAK, 1, BELL PEPPER(S) , 8 ,G 
REEN ONION(S) ,l,TOMATO(S) , 1 , CAN ( 
S) BEEF BULLION SOUP, 0, SOY SAUCE 
,0,CORN STARCH, 1, SMALL PKG(S) RI 
CE,, 

1640 DATA X,POT ROAST DINNER, 4, L 
B(S) CHUCK ROAST, 4, POTATO (S) ,8, C 
ARROT(S) ,2, ONION (S) , , 
1650 DATA X, SLOPPY JOES , 1, PKG (S) 

SLOPPY JOE MIX,1,LB(S) GR. BEEF 
,1,PKG(S) HAMBURGER BUNS, 1, CAN (S 
) TOMATO PASTE , , 

1660 DATA X, CHICKEN ENCHILADAS, 3 
, BONED CHICKEN BREASTS , 1, PKG (S) 
CORN TORTILLAS , 1 , ONION ( S ) , 8 , OZ . 
COLBY CHEDDAR CHEESE, 1 , PKG (S) FR 
OZEN GREEN CHILI , 2 , CAN (S) CREAM 
OF CHICKEN SOUP, , 

1670 DATA X, CHICKEN CASSEROLE, 8, 
BONED CHICKEN BREASTS, 1, CAN (S) C 
REAM OF CHICKEN SOUP, 1, BELL PEPP 
ER(S) ,l,ONION(S) ,0, WHITE COOKING 

WINE,, 
1680 DATA X, SPARE RIBS, 4, LB (S) P 
ORK SPARERIBS,1,JAR(S) BARBEQUE 
SAUCE , 2 , FRESH/FROZEN VEGETABLES , 

1690 DATA X,MANICOTTI,l,LRGE JAR 
(S) SPAGHETTI SAUCE, 8, OZ. RICOTT 
A CHEESE, 8, OZ. MOZZERELLA CHEESE 
,1/2, LB (S) GR. BEEF,0, PARSLEY, 1, 
PKG(S) MANICOTTI NOODLES ,0, SALT, 
0, BLACK PEPPER,, 

1700 DATA X, CHILI CON CARNE,1,LB 
(S) GR. BEEF, 2, CAN (S) CHILI BEAN 
S,1,CAN(S) TOMATO SOUP, 1, BELL PE 
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PPER(S) ,0, CELERY, 0, RED CHILI POW 

DER,0,SALT, , 

1710 DATA LAST 

1720 DATA Y ,***** BREAKFAST & LU 

NCH ***** 

1730 DATA X, CEREAL BREAKFAST, 1, B 

OX(S) CEREAL, fB , MILK, 0, SUGAR, jl , BR 

EAD, , 

1740 DATA X,EGGS & BACON, 8 , EGG (S 

),1,LB(S) BACON, 8, SLICE (S) BREAD 

1750 DATA X, FRENCH TOAST, 8 , SLICE 
(S) BREAD, 1,LB(S) BACON, , MILK, 3 
,EGG(S) ,0, CINNAMON, 0, SUGAR, , 
1760 DATA Y, ********* SALADS *** 
****** 

1770 DATA X, STUFFED TOMATOES, 6, T 
OMATO(S) ,1,CAN(S) TUNA , , MAYONNA 
ISE, 2, CELERY, 0, SWEET RELISH,, 
1780 DATA X,TUNA SALAD, 1 , CAN (S) 
TUNA, 1, ONION (S ) ,0, SWEET RELISH, 
, MAYONNAISE, 0, PARSLEY, 1,PKG(S) E 
LBOW MACARONI , , 

1790 DATA X, CHICKEN SALAD, 1, CAN ( 
S) CHICKEN, 1, ONION (S) ,0, SWEET RE 
LISH, , MAYONNAISE , 2 , CELERY , 1 , PKG 
(S) ELBOW MACARONI , , 
1800 DATA X, POTATO SALAD , 4 , POTAT 
O(S),0, SWEET RELISH, 1, ONION (S) ,2 
, CELERY , 4 , GREEN ONION ( S ) , , OLIVE 
S , , MAYONNAISE , , MUSTARD , , 
1810 DATA X, CARROT & RAISIN SALA 
D, 8, CARROT (S) ,1, SMALL PKG (S) RAI 
SINS, 0, MAYONNAISE, 0, SUGAR, , 
1820 DATA X, SHRIMP COCKTAIL, 16 , F 
RESH SHRIMP, 0, CATSUP, 0,HORSERADI 
SH,0, WORCESTERSHIRE SAUCE,, 
1830 DATA Y, ********* DESSERTS * 
******* 

1840 DATA X, BREAD PUDDING, 6, SLIC 
E(S) BREAD, 4, EGGS, 0, MI LK,0, SUGAR 
,0, VANILLA, 0, SALT, 1, SMALL PKG(S) 

RAISINS, 0, CINNAMON, 0, NUTMEG, , 
1850 DATA X, APPLE CRISP, 1, CAN (S) 

APPLES IN WATER, 0, FLOUR, 0, BROWN 

SUGAR , , CINNAMON , , NUTMEG , , SAL 
T,0, BUTTER, , 

18 60 DATA X, WATERMELON FRUIT BAS 
KET,l,WATERMELON(S) , 1, HONEY DEW M 
ELON ( S ) , 1 , CANTALOPE ( S ) , 1 , PINEAPP 
LE(S) ,2,PINT(S) STRAWBERRIES, 1,L 
B(S) GREEN GRAPES, , 
1870 DATA X,TRIFLE,1,PKG(S) VANI 
LLA PUDDING/PIE FILLING, 1 , PKG (S) 

JELLY ROLL, 1, PINT (S) WHIPPING C 
REAM, , 

1880 DATA END 
1890 DATA Y,***** BATHROOM ITEMS 

*****, BATH SOAP, TOOTHPASTE (CRE 



ST), HAIR SPRAY, SPRAY DEODORANT, S 
TICK DEODORANT , BATHROOM TISSUE ( 
TOILET PAPER) 

1900 DATA Y,***** HOUSEHOLD SUPP 
LIES *****, LAUNDRY DETERGENT, DIS 
HWASHER DETERGENT, DISH DETERGENT 

(PALMOLIVE) ,AJAX CLEANER, FABRIC 

SOFTENER 
1910 DATA Y,***** KITCHEN SUPPLI 
ES *****, GARBAGE BAGS , ALUMINUM F 
OIL, HANDI -WRAP, WAXED PAPER, ZIP-L 
OCK SANDWICH BAGS , PAPER TOWELS 
1920 DATA Y,***** DRINKS *****, S 
OFT DRINKS, MILK, FROZEN JUICES (0 
RANGE), HI-C SOFT DRINKS, CAPRI SU 
N SOFT DRINKS, COFFEE (FOLGER'S D 
RIP) 

1930 DATA Y,***** SNACKS *****, P 
OTATO CHIPS, ICE CREAM, POPCYCLES , 
POPCORN (CRACKER JACK) , HOSTESS C 
UPCAKES , LITTLE DEBBIE CUPCAKES 
1940 DATA Y,***** SPICES *****, V 
ANILLA EXTRACT, MAPLE INE FLAVORIN 
G, POWDERED SUGAR, SUGAR, FLOUR, SAL 
T, BLACK PEPPER, GARLIC SALT 
1950 DATA Y,***** BAKING SUPPLIE 
S *****, CAKE MIXES, CHERRY PIE FI 
LLING,PIE CRUST MIX OR SHELLS , CR 
ICSO SHORTENING, CRISCO OIL,PEANU 
T OIL 

1960 DATA Y,***** RELISHES & CHE 
ESES *****, SWISS CHEESE, CATSUP, M 
USTARD,PICKLES,VELVEETA CHEESE, A 
MERICAN CHEESE , JALAPENO CHEESE, F 
ROZEN GREEN CHILI , COTTAGE CHEESE 
1970 DATA Y,***** PET SUPPLIES * 
****,DOG FOOD (CANNED), DOG FOOD 
(DRY), CAT FOOD (DRY), CAT LITTER, 

DOG TREATS 
1980 DATA Y,***** BREAKFAST FOOD 
S ***** ; MUFFIN MIX, FROZEN WAFFLE 
S , POPTARTS , WHEATIES CEREAL , FRUIT 

& FIBER CEREAL, LUCKY CHARMS CER 
EAL,CHEERIOS CEREAL, EGG (S) 
1990 DATA Y,***** MISC FOOD ITEM 
S *****, CANNED FRUIT, MARACHINO C 
HERRIES , COOKIES , CUP-A-SOUP, FRUIT 

ROLL , JELLO , LUNCHEON MEATS , PEANU 
T BUTTER, JELLY, BUTTER, WHITE BREA 
D,RYE BREAD 

2000 DATA Y,***** FRESH FRUITS * 
**** , BANANAS , APPLES , ORANGES , PEAC 
HES , PEARS 
2010 DATA STOP 

5000 READ A$:IF LEFT$ (A$ , 1) ="*" 
OR A$="" OR A$=" " OR A$="X" OR 
A$="Y" THEN 5000 ELSE X=X+1:IF A 
$="LAST" THEN PRINT X/2+1 ELSE 5 
000 ^ 
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WE'VE OUTDONE OURSELVES! 



DS-69A DIGISECTOR " 

THE VIDEO DIGITIZER NOBODY CAN BEAT! 



■^Ufr 



The DS-69A is the best video digitizer available for your COCO at any price. This new, turbocharged version of our 
original DS-69 Digisector allows your 64K COCO to see clearly into the world of any television picture. 



SPEED! 

PRECISION! 

RESOLUTION! 

Compabitibility 

Compactness 

Convenience 

Ease of Use 



The fastest — 8 images per second! 

The highest — 64 levels of true grey scale! 

The finest — 256 x 256 picture elements! 

Use with a black and white or color camera, a VCR or tuner. 

Self contained in a plug in Rompack. 

Use with a Y-cable, Multi-Pak, PBJ Bus or plug directly into the cartridge slot. 

Software on disk will get you up and running fast! 



POWERFUL C-SEE ™ SOFTWARE 

C-SEE is the menu driven software package included with your DS-69A. Available on disk or cassette, it provides 
lightning fast 5 level digitizing to the screen, high precision 16 level digitizing for superb hard copy printout and 
simple keyboard or joystick control of brightness and contrast. Or call our driver routines from your own Basic 
program for easy 64 level random access digitizing. Pictures taken by the DS — 69A may be saved on disk or 
cassette by C-SEE and then edited with COCO MAX, MAGIGRAPH or GRAPHICOM for special effects. Any of the 
popular printers may be used to obtain printouts of images digitized by the DS-69A. 

ONE YEAR WARRANTY 

DS-69A Digisector & C-SEE III Software $149.95 

OR your DS-69 & $ 59.95 

MAGIGRAPH Graphics Editor on disk $ 39.95 



DS-69 DIGISECTOR 

THERE'S ONLY ONE BETTER VIDEO DIGITIZER. . . 

And that's the DS-69A. The DS-69 is The Micro Works' original video digitizer, tried and true since 1984. It provides 
almost all the features of the DS-69A and is now available at a new low price. The DS69 features; 

SLUGGISHNESS 2 images per second. Quick enough to freeze all but the fastest moving pictures. 

IMCOMPATIBILITY Brightly colored scenes may be striped when using a color camera. 
INCONVENIENCE Will not work with a Y cable. 

Otherwise, it's a DS-69A. Precision, resolution, compactness, ease of use, software and warranty. 
Except one last thing. 

DS-69 Digisector & C-SEE III Software $ 99.95 

Superb image quality produced by both Digisectors. 





Screen 




Screen 



Printout 



Terms: Visa, Mastercard, Check or C.O.D. 



NO RISK GUARANTEE 

If you are not completely satisfied with the performance of your new DS-69A or DS-69 
you may return it, undamaged, within ten days for a full refund of the purchase price. 
We'll even pay the return shipping. If you can get any of our competitors to give you 
the same guarantee, buy both and return the one you don't like. We know which one 
you'll keep. 



Purveyors of Fine Video Digitizers Since 1977. \A/@ L\iD5iJ 



P.O. Box 1110 Del Mar, CA 92014 (619)942-2400 



DOWNLOADS 



Deciphering the Mystery 
of the DOS Command 



By Dan Downard 
Rainbow Technical Editor 



• / recently bought a disk game from 
Radio Shack. In the loading instructions 
it said. "If you have Disk BASIC Version 
I.I (or greater), type: DOS and ENTER. " I 
looked through the book that came with 
the disk drive, but there was no mention 
of the DOS command. What I want to 
know is what the command does, and how 
can I use it in my programs? 

Tim Jones 
Clinton, LA 

Tim, the DOS command included in 
Disk basic 1.1 reads track 34 of the 
diskette in Drive 0. It assumes it is a 
machine language program that boots 
OS-9, but we can fool it to automatically 
execute any program we desire. An excel- 
lent article was written by Roger Schrag, 
entitled "A Special Use for the DOS 
Command." If you can find a copy of the 
November 1984 RAINBOW, the article 
should be quite helpful, but we'll reprint 
the program for your information. 



'DOS' 



1 CLEAR 1000 :CLS 

2 PRINT "AUTO START ON 

3 PRINT"==================" 

4 PRINT 

5 PRINT"ENTER ANY COMMAND THAT" 

6 PRINT"YOU WOULD LIKE TO BE" 

7 PRINT"EXECUTED UPON TYPING" 

8 PRINT"IN ' DOS ' : " 

9 LINEINPUT BS 



Dan Downard is an electrical engineer 
and has been involved in electronics for 
25 years through ham radio (K4KWT). 
His interest in computers began about 
six years ago and he has built several 
68 XX systems. 



10 BS=BS+STRINGS(255-LEN(B$) ,0) 

11 FOR X=l TO 64: READ NS 

12 N=VAL("&H"+N$) 

13 A$=A$+CHR$(N) : CK=CK+N : NEXT 

14 IF CK05775 THEN 39 

15 A$=A$+STRING$ (191,0) 

16 PRINT"INSERT TARGET DISK AND" 

17 LINEINPUT" PRESS ENTER " ;N$ 

18 DSKI$ 0,17,2,C$,D$ 

19 N$=MID$(C$,67,1) 

20 IF NS<>CHRS(255) THEN 43 

21 ES=STRING$(66,201)+CHR$(255) 

22 FS=STRING$(128,255) 

23 DSKO$ 0,17,2,E$,FS 

24 OPEN"D",1,"DOS BOOT" 

25 PRINTS* 1, A$ ; CHR$ (0 ) ;:PUT# 1,1 

26 PRINTS 1, BS ; CHR$ (0 ) ;:PUT# 1,2 

27 CLOSE:MID$(C$,67)=CHR$(201) 

28 DSKO$ 0,17,2,C$,D$ 

29 PRINT" FUNCTION COMPLETE" 

30 END 

31 DATA 4F,53,0P,00,CE,01,6A,37 

32 DATA 12,B7,26,3C,BF,26,3D,8E 

33 DATA 26,1D,BF,01,6B,DC,8A,FD 

34 DATA 26,00, 7E,AC,7C,0F, 70, AF 

35 DATA E4,BE,26,3F,A6,80,BF,26 

36 DATA 3F,4D,26,0E,B6,26,3C,BE 

37 DATA 26,3D,B7,01,6A,BF,01,6B 

38 DATA 86, 0D, 35, 90,00,00,00, 27 

39 PRINT"CHECKSUM ERROR — " 

40 PRINT"YOU HAVE ENTERED A" 

41 PRINT"DATA LINE INCORRECTLY" 

42 END 

43 PRINT"THE REQUIRED PORTION" 

44 PRINT"OF THE DISK IS BEING" 

45 PRINT"USED BY A PROGRAM" 

46 PRINT"ALREADY ON THE DISK" 

47 END 



Boot won't Boot 



• / recently purchased Version 01.00.00 
of the OS-9 operating system and am very 
interested in the assembler contained 
within the System disk. My system works 
fine with the exception of the assembler 
mi the DEFS file. I cannot boot the 
assembler. I followed the instructions 
given in the OS-9 Program Development 



manual exactly (and have tried many 
other tactics also, but I keep gelling 
ERROR: CA N T OPEN). 

Andy El I i nor 
Odessa. FL 

Andy, I think you are trying to assem- 
ble a file that is already in your directory. 
You invoke the assembler by having the 
source file in the working directory. The 
assembled binary file is then written to the 
execution directory (normally the CMDS 
directory). If the name of your source file 
is PROGRAM and you want the as- 
sembled file to be called BIN A R Y, use the 
following command: 

OS9:ASM PROGRAM #I6K O=/D0/ 
CMDS/B1NARY>/P 

The #16K refers to the amount of 
memory used for the symbol table. The >/ 
P sends a listing to your printer. 



Looking for the Culprit 

• / have a problem with my 'F' version 
CoCo. When I try to CSflVE "filena 
me~,H it sounds like it just writes the 
beginning and the end of the pie, and the 
computer skips all the data in between. I 
have Color BASIC 1. 1. Extended BASIC 1.0 
and Disk BASIC I.I. 

This quirk doesn 't bother me as much 
while programming in BASIC as it does in 
assembly language with my EDTASM+ 
ROM Pak. I can't write an unfinished 
source code onto tape: when typing in an 
assembly language program, I have to 
type it all in one silting and assemble it 
to tape. If there is an error in the program. 
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/ can't correct it. If the program is very 
large (like 16 K), I usually get discouraged 
and decide not to waste a lot of time in 
order to type the whole program in again. 
Is the problem in my ROM? If it is, 
which one and where can I buy a replace- 
ment? If the problem is not in my ROM, 
please tell me where the problem is and 
how I can fix it. 

Mike Laster 
Cedar Hill, MO 

It sounds like you have tape recorder or 
relay problems, Mike. When ASCII data 
is encountered it is necessary to turn the 
tape recorder motor off and on between 
data blocks. If your cassette relay and tape 
recorder are working properly, you can 
usually see (or hear) it happening. 1 used 
to have the same problem when I wasn't 
using a Radio Shack tape recorder. 



Color Distress 



• Since I purchased my CoCo ('F' board) 
a couple of years ago, there has been a 
problem with display of colors in the 
graphics PMODE.S. / asked Radio Shack to 
correct this when they upgraded to 64 K. 
but there was no improvement. 1 decided 
then that the fault must be in the color 
convergence of the TV set I was using as 
a monitor, but recently 1 was able to check 
the convergence of the TV with a cross- 
hatch and color bar generator and found 
it was very near perfect. 

As a result, I have to conclude that the 
fault is in the video display generated in 
the CoCo. My conclusion is reinforced by 
the fact that software such as VIP Writer 
thai I am now using with Hi- Res display 
works perfectly while using the black-on- 
green option, but blooms terribly with 
offset colors with a white background. 
This I attribute to the fact that green is one 
of the three primary colors for the TV 
display, while white requires an over/ay of 
the other primary colors, which in this 
case, do not overlay exacly. 

My question is what is the most likely 
culprit in my CoCo video generation 
system and how do I correct it? If it is the 
VDG chip (MC6S47). this would be 
relatively easy to replace, but I have a 
feeling the trouble is more of a tuning 
problem. How is the output of the CoCo 
modulated for TV use and could this be 
it? 

George Q. Slocum 
Ossining, NY 

George, the MC6847 produces only 
composite video. Before the signal gets to 



your TV, it is processed by a 1372 mod- 
ulator. The modulator is contained in a 
metal box in the rear center of your PC 
board. I doubt that the problem is in the 
6847, but rather in the RF modulator 
circuit. My old TV-repair days tell me that 
blooming is caused by overloading the 
input to your TV. 



Modem Musing 



• / have been contemplating buying a 
modem. Can you explain the different 
terminology? Will a 300 Baud modem 
work at 1200 Baud? What are the advan- 
tages of 1200 Baud? 

Doris Stewart 
Louisville, KY 

First of all, Doris, you cannot convert 
a 300 Baud modem to 1200 Baud. Bell 
Systems wrote the standards for modems. 
The most common type of modem is 
manufactured to the Bell 103 standard, or 
a 300 Baud, tone-shift telephone interface. 
All a modem does is convert the RS-232 
voltage levels coming from your computer 
to tones that can be transmitted over your 
telephone line. 

There are two common Bell standards 
used for 1200 Baud, the 202 and the 212. 
The standard 1200 Baud modem used for 
BBSs. etc.. is the 212, or phase-shift 
standard. All of the modems I have seen 
in THE RAINBOW conform to this stand- 
ard. 

The 201 standard is a tone-shifted 
model, but it's not in common use. You 
could possibly convert a 300 Baud modem 
to use the 201 standard, but then you 
would not be standard anymore! 

As far as whether to buy a 300 or 1200 
Baud modem, I guess the deciding factors 
are whether you are paying for connect 
lime, how fast you type and read, and how 
much downloading you do. If your 
answers are "yes," "fast" and "a lot," you 
need a 1200 Baud modem. Otherwise, I 
wouldn't spend the extra money. 



Three Questions about Drive 

• / have a 64 K CoCo 2 and have recently 
purchased a Cat. No. 26-3029 Drive with 
Disk BASIC 1.1 from the Radio Shack 
"discontinued" table. I have a few ques- 
tions concerning its operation. 

I) I have been using utilities out of back 
RAINBOW issues. I have been using the 40- 
track utility out of "Getting on the Right 
Track " [July 1985, Page 26 J and also 
ROM RAM from "Downloads" [March 



1984, Page 288 J. I also have been using the 
PDKEs from the April 1985 issue [Page 
252] in the " Downloads" column to speed 
up my drive. I can run my drive at six ms 
without ?IO Errors. My question is, is it 
safe for me to run my drive at six ms? 
Could I harm my drive? 

2) My drive becomes very hot. I noticed 
through the vent that two three-pronged 
chips are causing the heat. The board has 
the codes VR1 and VR2 beside the chips. 
What can I do about this excess heat? 

3) I have tried to format the back side 
of a Tandy disk. I cut out a notch in the 
side, but when I try to format, J receive 
an ?lO Error. My friend's C-64 will format 
the back side of a Tandy disk. Is there a 
way to get the CoCo to do it? 

Kevin Gibson 
Lubbock. TX 

Don't worry about your disk drives, 
Kevin. The only thing you do when 
operating them at six ms is speed up the 
stepping motor that positions the heads 
on the correct track. 

As far as the heat near VR1 and VR2, 
these are voltage regulators and they are 
supposed to dissipate heat as part of their 
function. 

When you notched the other side of 
your disks, I'll bet you didn't punch 
another timing hole through the inside of 
the jacket. This hole is approximately !/i 
inch in diameter and located about an 
inch from the center of the disk. 

Be very careful not to touch the disk. 
Some people even remove the disk from 
the jacket by peeling back the end flap, 
removing the media and gluing the flap 
back when they are finished. Make your- 
self a template of the notch and the timing 
hole, then turn the disk over. Put the 
notch and the timing hole in the jacket at 
the same locations on the reverse side. 
Most people use an old "paper boy" 
punch for the timing hole. Its size is not 
real critical as long as it is at least as big 
as the previous hole. You should then be 
able to use the reverse side of your disks. 



Your technical questions are welcomed. 
Please address them to: Downloads, THE 
rainbow, P.O. Box 385, Prospect, KY 
40059. We reserve the right to publish only 
questions of general interest and to edit for 
space and clarity. Due to the large volume 
of mail we receive, we are unable to answer 
letters individually. 

Your technical questions may also be sent 
to us through the MAIL section of our new 
Delphi CoCo SIG. From the CoCo SIG> 
prompt, pick DELPHI MAIL, then type 
SEND and address TO: DANDOWNARD. 
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"The CBASIC Compiler" 

Now anyone can create fast efficient Machine Language Programs 
Easily and Quickly without having to use an Editor/Assembler 



CBASJC a a fully integraled. easy to use Basic program Ednoi and Compiler package CBASIC is 99% syntax compatible 
with Disk Extended Color Basic programs, so most Basic programs can be loaded and compiled by CBASIC with itttlc 
or no changes required The compiler B an oplomiang two-pass integer Basic compiler that can convert programs written 
In Disk Extended Color Basic into 100% pure 6809 Machine Language programs which aie wnfien directly to disk in a 
LOADM compatible formal. 

The programs generated by the compiler can be run as complete stand alone programs A bailtin linker/editor will 
automatically select ore and only one copy of each subroutine that is required from the internal run time fcbtary and Insert 
them directly m the program This eliminates the need for cumbersome, often wasteful separate "runtime" packages 

CBASIC WAS DESIGNED FOR BOTH 
BEGINNING & ADVANCED USERS 

CBASIC is a Powerful tool for the Beginner or Novice programmer as well as the Advanced Bast: or Machine Language 
programmer The Beginner or Novice programmer can write and compile programs without having to worry about Stack 
Pointers. DP registers memory allocation, and so on. because CBASIC will handle it lor you automatically All they have 
to do is wnte their programs using the standard Basic statements and syntax For the advanced Basic and Machine 
Language programmers. CBASIC will lei you lake command and control every aspect of your program, even generating 
machine code directly in a program for specialised toutines or functions 

CBASIC adds many features not found in Color Basic, like Interrupt. Resel. and On Error handling It also has advanced 
programming features that allow machine level control of the Stack and Direct Page registers, variable allocation, automatic 
64K RAM control, program origin and even multiple origins It can even have machine language code generated within 
a program that executes just like any other Basic program Sue 

FULL COMMAND SUPPORT & SPEED 

CBASIC features well over 100 Basic Commands and Functions that fully support Disk. Tape. Printer and Screen 1/ 
O It also supports ALL the High and Low Resolution Graphics. Sound. Play and Smng Operations available in Extended 
Color Basic, and all with 99 9% syntax compatibility 

CBASIC is FAST Not only will CBASIC compiled programs execute 10 to 1000 times faster than Basic, but the time 
it takes to develop a CBASIC program versus writing a machine language program is much, much shorter A machine 
language program that might take several months to wnte and debug could be creaied using CBASIC in a matter ol days 
or hours, even for a well experienced machine language programmer We had a report from a CBASIC user that claimed 
"a Basic program that used to lake 3 hours to run. now runs in 7 to 8 minutes" Another user reported a program that 
took 1 to 1 '•{• hours to run in Bauc. now runs in 5 to 6 minutes!" 

MORE THAN JUST A COMPILER 

CBASIC has its own completely integrated Basic Program Editor The Editor contained in CBASIC is used to Create 
and/or Edit programs for the compiler It is a full featured editor with Iur.ctions designed spedicaJy for writing and editing 
Basic programs It has built-in block Move and Copy funcions with automatic program renumbering Complete, easy to 
use inserting, deleting, extending and overtyping of existing program lines It is also used for Loading. Saving, Appending 
(merging). Killing disk files and displaying a Disk Directory li also has automatic line number cenetation (or use when 
creating programs or inserting sequencial lines between existing lines You can set the pnnter baud rate and direct normal 
or complfed listings to the printer lor hard copy The built-in editor makes program corrections and changes as easy as 
"falling off a log". II CBASIC finds an error when compiling, it points to the place in the program line where the error 
occurred All you have to do is tell the editor what line you want to start editing and when it is displayed, move the 
cursor with the arrow keys to the place where the error is and coned It Just fake that, it's simple 

HI-RES & 80 COLUMN DISPLAYS 

CBASIC is the only Color Bosk Compiler that includes its own Hi-Resolution 51. 64 or 85 by 24 line display It is also 
the only compiler that supports both the PBJ "Word-Pak" and the Double Density 80 column cards All o( these display 
loimats are pan of the standard CBASIC compiler package Not only can these display formats be used for normal 
program editing ana compiling, but CBASIC will also include them in your compiled programs' If you want CBASIC to 
include the display dnver in your program, all you have to do Is use a single CBASIC command "HIRES" The runtime 
display driver that CBASIC includes in your program is not just a simple display, but a full-leatuied display package Willi 
(he Mi-Resolution display package you can mix text St graphics, change characters per line, underline, character highlight, 
erase to end of line or screen, home cursor, home St clear screen, protect screen bnes. and much more All commands 
are compatible with our HIRES II Screen Commander so you can easily develop screen layouts using HI-RES and Color 
Basic before you compile your program The same applies to using the 80 column card dnvers. What other Basic compiler 
offers you this kind ol flexibility? 



64K RAM SUPPORT 



CBASIC makes full use of the power and fleubibty of the 6883 SAM (Synchronous Address Multiplexer) in the Color 
Computer It will fully utilize the 96K ol address space available in the Color Computet I64K nstalled) during program 
Creation, Editing and Compilation CBASIC has a special command for automatic 64K RAM control When used in ,i 
program, it allows the user to use the upper 32K of RAM space automatically for vanables or even program storage at 
run-time li will automatically switch the ROMs in and out when needed There are also two other commands that allow 
you to control the upper 32K of RAM manually, under program control No other Color Basic compiler directly supports 
the use o) 64K RAM like CBASIC. 

ALL MACHINE LANGUAGE 

CBASIC is completely written in fast efficient Machine Language, not Basic, like some oth« Color Basic compilers. 
Because of this, CBASIC can edit and compile very large programs Even using the Hi-Resohieon 51 by 24 bne display, 
it can work with about a 34K program, and the 80 column card versions can handle almost 40K of program Some of 
ihe other Basic compilers can only work with 16K or about 200 tries. Even working with large programs, CBASIC 
compiles programs with fcghming fast speed It will compile a 24K program to disk In less than 2 minutes' That's without 
a bating being generated. We've heard stories about some other compilers that lake almost 10 minutes to compile a simple 
2-3K program. You might inquire about this when you look at some of the other compilers available 



THE FINISHED PRODUCT 

Since CBASIC contains statements lo support ALL of the I/O devices (Disk. Tape. Screen St Printer) , Hi-Res Graphics, 
Sound, and Enhanced Screen displays, it Is well suited for a wide range of programming applications It generates a 
complete. Ready lo Run machine language program The finished product or program does not have to be interlaced to 
a Bask program to perform some of its functions or commands This may seem obvious to you. but some of the other 
Color Basic compilers don't necessarily work this way Some ol their compiler commands need a separate Basic program 
in order lor them lo work In some cases, require that a separate Basic program be interfaced lo the compiled program 
to perform I/O functions, like INPUT. PRINT and so on CBASIC doesn't do this. ALL of its commands are compiled 
Into a single machine language program thai does not require any kind ol Basic program to make it work 

COMPATIBILITY 

You may be wondering about those statements we made earber concerning 99% or 99 9% syntax compatibility What 
does that other I % consist of? The biggest pan of that I % has to do with string arrays and variables. CBASIC does noi 
use a "String Poor' like Color Basic It uses absolute memory addresses to locale stnng vanables and arrays This o why 
CBASIC "s string processing is so last, il also ehmnales the rime consuming "Garbage Collection" problem When CBASIC 
allocates space lor strings, it must know how much space to use for each stnng When you Dimension a stnng vanable 
in CBASIC. you must tell it how much space you want lo save for each element To Dimension an array ol 40 strings. 
64 characters each, you would DIM DA$(40.64) If a string is not dimensioned. CBASIC will automatically allocate 32 
bytes for it. II you want a single stnng to have enough room lor 200 characters you would DIM AXS/200) For stnng 
arrays, you would still access the element vou want, the same as Color Basic, lo get suing #30 from the array DAS. you 
would still use DASI30), the only real change is in the DIM statement For undeclared smng arrays of 10 elements or 
less. CBASIC will automatically reserve space lor 10 10-9) strings of 32 characters in some other Color Basic compilers. 
you have lo declare EVERY string vanable used m the piogrm in a DIM statement And. to create an array of 40 stnngs 
with 64 characters each, you would have to DIM AD$(2560), and then to access string #30, you would have to multiply 
30 x 64 and use a special variable name format or access it one character at a time Not very compatible or convenient 
to use. and difficult ai besi 

CBASIC REQUIREMENTS 

CBASIC requires a minimum of 32K RAM and at least one Disk dnve We strongly recommend that you have 64K 
CBASIC a compatible wiih all versions of Color & Extended Basic and both Disk Basic VI and VI 1 Programs 
compiled on eilher system will run on systems with different ROMs CBASIC is NOT compatible wiih JDOS 

DOCUMENTATION 

The Documentation provided with any program ts very important to ihe user This is especially true when you talk 
about a program as complete and complex as CBASIC Even though CBASIC was designed to be the most User Friendly 
compiler on the market, we went to great lengths to provide a manual that is not enly easy la use and understand, but 
comprehensive and complete enough for even the most sophisticated user The manual included wiih CBASIC consists 
of approximately 120 pages of real information, not like some manuals that put jusi one or two short paragraphs on a 
page II we did it that way. we could have easily created a ihree or (our hundred page manual The manual index breaks 
down each section of Ihe manual and gives a 3 or 4 word descnptlon of each section and its items along with page 
numbers The manual has three sections, the Editor. Compiler and Appendix Each of these is divided into subsections, 
with Section and Subsection lilies printed at the top ol each page II you want to. you could find the inlormarion you are 
looking for by simply flipping through the pages and scanning ihe Section titles on the top of the pages The Manual itself 
is an S{A by 1 1 Spiral Bound book wtlh durab'e leather textured covers Some of the reports we have had from CBASIC 
users describe the manual as being the Besi program manual they have ever used 

COMPARE THE DIFFERENCE 

CBASIC is nol |ust another Color Basic Compiler It is the only complete Basic Compiler System for the Color Computer 
Compare CBASIC's features to what other compilers offer and you'll see the difference When comparing CBASIC to 
other compilers, you might want to keep some ol Ihese questions in mind Does il support I/O functions? You can't wnte 
much of a program withoul PRINT. INPUT and so on Whai about complex string statements, or smng statements at alP 
How large ol a program can you wnte? Can you compile a complex; string Ike MIDS|RIGHTSlDAS(VALnNS),LENILES)).3.3|? 
Can you use two character variable names lor string & numenc variables, hke Basic Does il support all the Hi-Res graphics 
statements including PLAY. DRAW, GET and PUT. using the same syntax as Basic 9 Do you ever have to use a separate 
Basic program 7 Can you take complete Basic programs and compile Ihcm withoul extensive changes' Will they work? 
How do you edit a program when il has enors compiling? 

PRICE VERSUS PERFORMANCE 

The price ol CBASIC ts $149 00 II is ihe most expensive Color Basic Compiler on the market, and well worth the 
inveslmcnl We spent over 2 years writing and refining CBASIC. lo make II the Best, most Compatible Color Basic 
compiler available. Mosl ol our CBASIC users already bought one or more of the oiher compilers on ihe market and 
have since discarded ihem We even Iraded n a few of ihem If you want a cheap compiler, we'll sell you one of those 
traded in. at a good price Before you buy a compiler, compare the performance of CBASIC against any Color Basic 
compiler Dollar (or Dollar, CBASIC gives you more than any other Color Basic compiler available 

ORDERING INFORMATION 

To order CBASIC by mail, send check or money order in the amount of S 149.00 plus S3.00 
for shipping and handling to the address listed below. 
To order by VISA, MASTERCARD or COD, call us at (702) 452-0632 (Monday thru Saturday. Sam lo 5pm PST) 



CER-COMP 

5566 Ricochet Ave. 

Las Vegas, NV 89110 

(702) 452-0632 
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Introducing The "Super Smart" 

DATA PACK II 
TERMINAL COMMUNICATIONS SOFTWARE 

Also Supports The PBJ 80 Column "Word Pak", Deluxe RS-232 Pak, 
Parallel Printer Card and PBJ 2SP Pak 

"FEATURES" 



/L*g£ 1: 



No Lcn.1 Inlwrnailnn When Using Hi-Hesulution Display On Liti 

ASCII Compatible File Formal 

lull 1V»I Buffering 

Terminal Baud Rates 300 10 9600 

Automatic Word Wrap Eliminates Splil Word* 

Full Half Duple* 

Automatic Flip Capture 

Programmable Word Length. Parity and Stop Bits 

Save and Load Text Bullet and Program Key Buffers to Tape 

or Disk 

9 Hl-Resolulton Display Formats. 28 to 255 x 24 

True Upper lower Case Display 

Kill Graphics Option lor an Entra 6K 

Supports Line Break 



Freeze Display and Keview Information On Line 

Send Files Directly from Buffer or Disk 

Full Dish Support for Disk Version 

Send Control Codes from Keyboard 

Separate Printer Baud Hates 1 109600 

Display on Screen or Output Contents of Buffer 10 Printer 

Automatic Memory Sensp I6-64K 

9 Programmable Function Key Variable length Macro Buffer 

Programmable Prompt Character or Delay to Send Next Line 

Programmable Control Character Trapping 

Programmable Open Close Buffer Characters 

Automatic Key Kepeat Fnr Editing 

Program and Memory Status Displays 
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"The Source" 

has arrived! 



Starship Falcon 

Graphics Adventure Game 



The Source brings the cost of Disassembler and Assembler Source code 
generation down to Earth. 

Now you can Disassemble Color Compuier machine language programs and generate 

beautiful, Assembler Source Code fora fraction of the cost of other Disassembler/Source 

Generator programs. 

The Source has all the features and functions you are looking for in a Disassembler. 

» AulomaUc label generaUon. 

• Altows specifying FCB. FCC and FDB areas. 

• Disassembles programs directly from Disk. 

• Supports multiple origin disk files. 

• Oulpui complete Disassembled listing with labels io the Printer. Screen or both. 

• Generates Assembler compatible source files directly to disk. 

• Generated source files are in standard ASCII format that can be edited by most word processors. 

• Built in Hex/Ascll dump/display to help locate FCB. FCC and FDB areas In a program. 

• Fast Disassembly mode for testing & checking FCB. FCC and FDB mapped areas. 

• Bulll In Disk Directory and Kill file commands. 

• Menu display with single key commands for smooth. Easy, almost foolproof operation. 



32K Disk $34.95 



Six months ago a terrorist group demanded to be designated the rulers of 
Alpha Sigma III, under the threat of world starvation on the planet Earth. The 
Federation denied their demands, so they released a biological weapon which 
has destroyed all known edible plant species from throughout the known gal- 
axy. To date no plant life has been able to survive on Earth. Recently, Federation 
undercover agents have reported a story told by a roving space trader, of a 
planet with abundant edible plant life. These plants have a reputation of being 
able to survive in all climates and in fact, are supposed to grow at an incredible 
rate. The Federation is desperate! If Earth's food source is not replaced soon, 
the Federation will have to evacuate all animal and Human life. Your mission 
is to go to the planet Zephyr and obtain the seed of these plants and return to 
Earth. Several Federation agents have been sent to obtain the seeds and none 
has returned! Can you get the seed and survive??? GOOD LUCK! 



32K Disk $21.95 
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NEW IMPROVED VERSION 

- UP TO 85 CHARACTERS PER LINE 
READABILITY 

■ ADJUSTABLE A UTOMA TIC KEY REPEA T 

- PROPTECT 1-23 SCREEN LINES 

- CONTROL CODE KEYBOARD 

■ FULLY BASIC COMPATIBLE 

• DISPUW FORMATS OF 2K In 255 CHARACTERS PER LINE 

■ FULL 'Hi UPPER/LOWER CASE CHARACTERS 

• MIXED GRAPHICS & TEXT OR SEPARATE 
GRAPHIC & TEXT SCREENS 

■ INDIVIDUAL CHARACTER HIGHLIGHTING 

• REVERSE CHARACTER HIGHLIGHT MODE 

• WRITTEN IN FAST MACHINE IANGI.AGE 

• AUTOMATIC RELOCATES TO TOP Or I6/II2K 

• AUTOMATICALLY SUPPORTS MKol RAM WITH REM TCONTROL 
- REVERSE SCREEN 

• ON SCREEN UNDERLINE 

• DOUBLE SIZE CHARACTERS 

• ERASE TO END OF LINE 

• ERASE TO END OF SCREEN 

■ HOME CURSOR 

• BELL TONF CHARACTER 

• HOME CURSOR & CLEAR SCREEN 

• REQUIRES ONLY 2K OF RAM 

• COMPATIBLE WITH ALL TAPE S- DISK SYSTEMS 
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Screen Enhancement Program Comparison Chart 
PROGRAM FEATURES HI-RES II HI-RES I BRAND X 
NEW OLD 

Upper/Lower case rharaeten Y 
Mixed Text and Graphics 
Separate Text & ' .rapine. 
Print © fully Implemented 
Print @ on all line lengths 
Different line k-nyths 
Automatic Kev Repeal 
Adjustable Kev Repeat 
Auto Repeat Disable 
Erase to end of line/screen 
Home Cursor 
Solid or Blinking Cunor 
CLS command supported 
X.Y Coordinate Cursor 

Positioning 
Double Sice Characters 

Individual/Continuous 

Highlighting 
On Screen Underlining 
Clear Key functional 
Ih.l2& 64 K Supported 
Green or Black Background 

Color 
Dual Character sets lor 

Enhanced M and R5 

Character* per line display Yes 
Protected Screen Lines 

(programmable) 
Full Control Code Keyboard 

lai Screen control directW 

from the keyboard 
Programmable Tab Charade 

Spacing 
Full Screen Reverse Function Y 
Switch to & from the Standard 

It. by 32 Screen for full 

com ratability 
On Error Goto Function 
Extended Basic Required 
Alt Machine Language Progran 
RAM Required in addition to 

Screen RAM 
Program Price (Tape) 
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BARDEN'S BUFFER 



Pi to 10,000 Digits 



By William Barden, Jr. 
Rainbow Contributing Editor 



Imagine this scene: A friend who 
owns an Apple lie or IBM PC walks 
into your house and makes his usual 
remark about your "toy CoCo." 
"What's it doing now," he says with a 
sneer, "warming up?" Casually flicking 
a piece of chad off the keyboard, you 
reply, "No, actually it's calculating pi to 
10,000 digits. . ." 

This was the scene I envisioned when 
I first planned this article. Many hours 
later, I'm a little weary, but still enthu- 
siastic about this month's topic, even 
though 10,000 digits may be a little 
optimistic. Imagine using your CoCo's 
number crunching ability to calculate pi 
to thousands of decimal places, some- 
thing that was never really done until 
the 1950s! A little background might 
explain the problem. 

Pi through History 

Pi, of course, is the ratio of the 
distance around a circle to the diameter 



Bill Barden has written 27 books and 
over 100 magazine articles on various 
computer topics. His 20 years expe- 
rience in the industry covers a wide 
background: programming, systems 
analyzing and managing projects rang- 
ing from mainframes to microcompu- 
ters. 



of the circle. As many of you know, pi 
is approximately 3.1416. A circle with 
a diameter of 10 inches, for example, 
has a circumference of about 31.416 
inches. It's important to note that pi is 
an irrational number — it's not "even" 
and goes on to infinity as a never ending 
fraction. The fraction appears to be 
made up of random digits. Translating 
the digits into text characters, for 
example, would produce every book 
ever written somewhere within the first 
billions of billions of digits. 

(Speaking of "bilyuns and bil- 
yuns". . . an interesting note here. Carl 
Sagan, in his new fictional work. Con- 
tact, uses the premise that somewhere 
after the first umpteen digits, pi is not 
random, but has an encoded figure in 
computer graphics of a circle, presum- 
ably put there by the Creator as proof 
that He exists!) 

Believe it or not, the Babylonians had 
calculated pi to be 3'/ s by about 2000 
B.C. Even more incredible, the Chinese 
had arrived at a value of pi of 3.14159 
by 264 A.D., an accuracy of 0.0003%! 

Early calculations of pi used a meth- 
od that inscribed thousands of polyg- 
ons, as shown in Figure 1. The approx- 
imation of a circle by polygons gave pi 
to within 35 decimal places by the 1 600s. 
At that point, however, differential 
calculus was discovered, and it was 



found that pi could be expressed as an 
infinite series of terms. The best known 
of these series for pi was discovered by 
Leibniz in 1674: 

pi = 4(l - 1/3+ 1/5- 1/7 + . . .) 




Circumference - 8S 
Length of S can be 
lound by Geometry 



Figure 1: Finding Pi by 
Inscribed Polygon 



Try it with a basic program. It works, 
but requires hundreds of terms to get 
even several digits of accuracy. From the 
moment the infinite series method was 
discovered, a race for calculating pi to 
the most places ensued, just as it had 
with polygon approximations. Machin 
discovered a useful series in 1706, one 
that converged very quickly — only a 
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few terms were required to yield pi to 
a dozen places or so: 

pi = 16(1/5 - l/(3*5 A 3) + 1/(5*5-^-5 2- . . .) 
-4(1/239 + 1/(3*239^3) - (1/(5*239^5) + . . .) 

The Machin series and others have 
been used in recent times to calculate pi 
to thousands of places on large main- 
frame computers, just as they are typ- 
ically used to search for special prime 
numbers (Mersenne primes of the form 
2 / " v N - 1). There's really not a great deal 
of use for the next hundred thousand 
places of pi or the next Mersenne prime, 
but it's fun to do because, like Mt. 
Everest, pi is there. And besides, maybe 
there is that graphical representation of 
a circle after the billionth digit or so. 

(An excellent and fascinating treat- 
ment of the history of pi from ancient 
times to the computer age is contained 
in the book A History of Pi by Peter 
Beckmann [St. Martin's Press, 1971].) 

Because It's There 

In this column we'll show you how to 
compute pi to many places — up to 
10,000 decimal digits if you're so in- 
clined (and have a few years)! It won't 
be an easy task, but it can be a fun 
project, and it's a perfect squelch to that 
friend or neighbor who owns an Apple 
He, IBM PC or Cray X-MP. (This 
column took about three times the 
nominal time to research and write, but 
I still had fun.) 

Multiple-Precision Variables 

One basic question in computing pi 
is how 10,000 digits can be represented 
in a computer system. There are several 
alternatives. You could store one digit 
in each byte, or maybe two digits in four 
bits, two per byte. Each four bits would 
be binary coded decimal, or bed. How- 
ever, bed is a little messy to work with 
for divides, although it's great for adds 
and subtracts. You could also use tried 
and true binary. A little review of binary 
probably won't hurt at this point. 

A byte can hold eight bits — values 
of 00000000 through 1 1 1 1 1 1 1 1 or zero 
through 255. Two bytes can hold zero 
through 65,535. Four bytes can hold 
zero through 4,294,967,296. As a matter 
of fact, you can make the binary oper- 
and as large as you wish. A good rule 
of thumb is that each 3.5 bits can hold 
one decimal digit. So 10,000 decimal 
digits require about 35,000 bits, or 
about 4,375 bytes. A better calculation 
of this is 10,000 divided by log base 10 



of 2 = 10,000/. 301 or 33,219+ bits, 
4,152+ bytes. 

We'll use up to 4,154 bytes, therefore, 
to hold up to 10,000 decimal digits. For 
the sake of convenience in the following 
discussion, we'll call these 4, 154-byte 
variables, MPVs or Multiple-Precision 
Variables. We'll need a number of these 
MPVs, some to hold temporary results 
and some to hold the final results, just 
as we use several variables in a basic 
program. 

Scaling and Division 

The next major problem is the actual 
calculation — how can we divide 1 by 
239, for example? In basic it is done by 
floating-point variables. We can't use 
floating-point here because we need the 
exact numbers to be represented. Typ- 
ical basic floating-point variables only 
allow 16 decimal digits of precision — 
we need thousands of digits of preci- 
sion! 

To accomplish addition, subtraction, 
multiplication and division of the terms 
in the calculation, we'll use only integer 
arithmetic. A question you might be 
asking, though, is how can we get 
fractional results with integers? The 
answer is an old technique, dating back 
to the '50s or beyond — scaled numbers. 
Instead of using 1 in the term 1/239, 
we'll scale up the numerator by a factor 
of 10 followed by 10,000 zeros (for the 
maximum case), so the term becomes 
10,000,000,000.. .,000/239. The result of 
the divide and other operations is 
always an integer number, and we can 
stick in the decimal point when we print 
the answer. I'll show you how it works 
shortly. The results of all adds, sub- 
tracts, multiplies and divides are kept in 
the MPVs in integer form, without 
fractions. 

The Algorithm 

In a difficult problem such as this, it's 
best to have a good algorithm before 
you go charging off into the actual code. 
There are many ways this calculation 
can be implemented, but the plan I came 
up with follows. First, the variables: 

1) Use three MPVs, called TEMPI. 
TEMP2 and SUM. 

2) Use a 16-bit variable called D1V- 

SOR to hold the I, 3, 5. 7. etc to 

be divided into the term. 

3) Use a 16-bit variable called LAST 
to hold the last divisor to test for the end 
of each of the two sets of divisions. 

4) Use an eight-bit variable called 
ODDEVN to control whether the term 



is added to or subtracted from the 
subtotal. 

Now the actual plan, divided into two 
parts, is computation of the first set of 
terms and calculation of the second set 
of terms: 



SUM <- 9 
TEMPI <- 1 
LAST <- XXXX 
ODDEVN <- 1 
D1VSOR <- 1 

vhlle DIVSOR < LAST ao 
begin 

If DIVSOR-1 then TEMPI <- TEMPI/5 else 

TEMPI <- TEMPI/25 
TEMP2 <- TEMPI 
TEMP2 <- TEMP2/DIVSOR 
If ODDEVN-1 Chen SUM <- SUM + TEMP2 else 

SUM <- SUM - TEMP2 
DIVSOR <- DIVSOR + 2 

If 9 or 9 If 1 



flip ODDEVN to 
end 
SUM <- SUM*4 
TEMPI <- 1 
LAST <- XXXX 
ODDEVN <- 9 
DIVSOR <- 1 

while DIVSOR < LAST do 
begin 

If DlVSOR-l Chen TEMPI <- TEMPI/239 else 

TEMPI <- TEMPl/(239*239) 
TEMP2 <- TEMPI 
TEMP2 <- TEMP2/DIVSOR 
If ODDEVN-1 then SUM <- SUM * TEMP2 else 

SUM <- SUH - TEMP2 
DIVSOR <- DIVSOR + 2 
flip ODDEVN to 1 If 9 or 9 If 1 
end 
SUM <- SUM*'. 



In case you're not familiar with the 
notation used here, it's a form of "PDL" 
or Program Design Language. Varia- 
bles are indicated by uppercase. The 
arrows indicate that a variable is set to 
the terms on the right-hand side of the 
equation. The begin and end words 
mark the beginning and ending of a 
block of operations. The while function 
means that the following block is to be 
done as long as the condition is true, in 
this case DIVSOR less than LAST. You 
can see that the sequence is divided into 
two parts, one for the 5/25 divides, and 
one for the 239/(239*239) divides. 

If you don't see how this works, try 
the algorithm with paper and pencil. 
Note that variable TEMPI holds 1/5 
the first time through, 1/5^3 the next 
time, 1/5^5 the next time, and so forth 
(or 1/239, etc., for the second part). The 
current DIVSOR is divided into the 
current power of '5' (or power of 239 
term). The result is then added to or 
subtracted from the SUM. 

The "LAST" values are not obvious. 
The values represent the last divisor 
(preceding the power) to be used. This 
divisor equals the power of the current 
term. Each term of the first set is smaller 
than the preceding term by about 1/ 
25th. Each term of the second set is 
smaller than the preceding term by 



about 1/(239*239). Divide the number 
of decimal digits in the MPV by .69897 
and add 10 percent of that for the LAST 
value for the first set. For example, if 
you're working with 10-byte MPVs, the 
80 bits can hold about 22+ decimal 
digits, so use 22+/. 69897 or 33 + 3 = 37 
as the LAST value. (LAST values must 
be odd.) Divide the number of decimal 
digits by 2.37 for the LAST value for the 
second set. In this example, 22+/ 2.37 
gives you 9+, or 1 1 to be safe. 

The only thing that's been left out of 
the algorithm is the scaling. In fact, '1' 
is not put into the MPV — a power of 
10 is, such as 10,000,000.. .,000. This 
poses a problem. How can you figure 
out the value to store into the MPV for 
the power of 10? For short length 
MPVs, it's easy. If the MPV is one byte, 
for example, you'd use $64, equivalent 
to 100. For two bytes, you'd use $2,710 
for 10,000. When you're working with 
10 followed by 10,000 zeros, though, it 
becomes impossible to calculate the 
actual value to be put into the MPV. or 
at least terribly difficult. About the only 
efficient way to do it is to let the com- 
puter do it for you. 

One way to store a power of 10 is to 
put 10 into the bottom of the MPV and 
then keep multiplying by 10. Because I 
wanted to be able to use any length 
MPV from several bytes to 4,154 bytes, 
I chose this method: 

MPV <- l 

while highest byte of MPV - zero do 

begin 

MPV <- MPV*10 

end 

The result of this operation is shown 
for several lengths of MPVs in Figure 
2. 



Planning the Modules 

The structure of the program is 
shown in Figure 3. Like a lot of pro- 
grams, this structure didn't just jump 
from head to paper, but was modified 
during the design and coding process. 
There are 10 modules in the program. 

We'll start with the easiest ones first 
(perhaps you've noticed this flaw in my 
character by now) SHIFT shifts an 
MPV one bit to the left. This doesn't 
sound like much, but remember that all 
the bytes of the MPV, from a few bytes 
to 4,154 bytes, must be shifted with the 
high-order bit going into the low-order 
bit of the next higher byte, as shown in 
Figure 4. 
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Figure 3: PI Program 


Structure 





Before SHIFT 
ByteN 




Byte N+1 




Byte N • 2 




(MPV) 


1010 1011 




1000 1001 




1010 1111 


- — * 






After SHIFT 












(MPV) - — 


0101 0111 




0001 0011 




0101 1110 








Figure 4: Multiple Byte Shifting 









Easy Modules 

LOADZ loads a zero into all bytes of 
the MPV. 

LOADO first loads a zero into all 
bytes of the MPV. A scaled one is then 
loaded into the MPV. This involves 
loading ' l ' into the low-order byte of the 
MPV and then multiplying by 10 as 
described above. 

MOVE moves all the bytes of one 
MPV into a second MPV, a simple copy 
operation, 



1 Byte 

2 Bytes 

3 Bytes 

• 




* 








0000 0001 


V 1 10 


* 






0000 0011 


1110 1000 


11 1110 1000 = 1000 = 






1x10x10x1( 




0000 0001 


1000 0110 


1010 0000 




= Highest Byte 
Figurt 


1 1000 0110 1010 0000 
1x10x10x10x10x10 

2: Scaling a Value 


, = iooooo 10 = 



ADDSUB adds the contents of one 
MPV (the "source" MPV) to the con- 
tents of a second MPV (the "destina- 
tion" MPV), or subtracts the two 
MPVs. In doing this, any "carry" or 
"borrow" must be carried over to the 
next byte, just as in decimal addition or 
subtraction. 

The Heart of the Program 

DIVIDE is the heart of the program. 
This subroutine must be as fast as 
possible to cut down on the program 
overhead. The structure of DIVIDE is 
shown in Figure 5. A 16-bit divisor 
(DIVSOR or 5 or 239) is divided into 
the MPV. The MPV is shifted into 
Register D one bit at a time. For each 
shift, a test is made to see whether the 
divide will "go." If so, a subtract of the 
divisor is done and a quotient bit is set 
to T. If not, the quotient bit is set to 
'0'. Directly after the dividend is shifted 
into D, the next quotient bit is filled into 
the low end of the MPV. At the end of 
the divide, the quotient bits have filled 
up the entire MPV and the remainder 
of the divide is in D. 

Other Modules 

TERM is the subroutine that actually 
carries out the calculation of each term, 



230 



THE RAINBOW April 1986 



Carry o( Condition Codes 



Quotient 
Blt(0or1) 



□ 



A 


B 















Bytes ol MPV 






UlL 







16-Blt Divisor 

In Instruction 

Subtracted from 

D Register (A, 13) 

II Divisor <=(C)»(D) 



One SHIFT per 
Iteration 



Figure 5: DIVIDE Structure 



There are three MPVs used in the 
program, designated TEMPI, TEMP2 
and SUM. To change the size of the 
MPVs, set the parameter Bytes to the 
number of bytes required. The number 
of Bytes must be even due to the meth- 
ods of storage and access in the pro- 
gram. I used values from four up to 
hundreds. Maximum size is on the 
order of 4,154 bytes. Remember that 
changing the number of bytes also 
requires that you change the TERM1 
and TERM2 "LAST" values. Too large 
a value for LAST and you'll be wasting 
time; too small a value and you will lose 
digits in the answer. 

The SUM MPV is ORGed at the 
graphics display area (set this to $600 



adding or subtracting the term to SUM. 
TERM is called twice, once for each set 
of values. 

CONVRT is a convert to ASCII 
subroutine. After all of the calculations 
have been done, the result is in SUM as 
a scaled-up value. This huge binary 
number must now be converted to 
decimal by successively dividing by 10 
and saving the remainders, as shown in 
Figure 6. The remainders in reverse 
order represent the equivalent decimal 
number. Before they are printed, the 
decimal value of zero through nine is 
converted to ASCII by adding $30. The 
remainders are stored in a buffer, one 
remainder per byte. This buffer is more 
than twice as big as an MPV, so two 
MPVs and additional memory is used 
for the conversion process. 

PI is the "main driver" portion of the 
program. It calls the subroutines to 
implement the calculations and gener- 
ally oversees the operations. 

The Actual Assembly Language 

I don't mind telling you that the PI 
program grew far beyond what I had 
imagined it would consist of. However, 
it's still small enough for you to follow 
fairly easily. Its structure follows the 
physical arrangement in Figure 3 and is 
listed in Listing 1. 



SUM MPV Containing Binary » 



Low 
(3) 

(1) 
<4) 



High 



4 



0000 0000 



0000 1010 



Divisor 
(10) 



0000 0011 



0000 0001 



0000 0100 



0000 0100 



0000 0001 



0000 0111 




Remainder Irom Last Divide 
Remainder 2nd to Last Divide 
Remainder 3rd to Last Divide 



Remainder Irom 2nd Divide 
Remainder from 1st Divide 



$30 Added to these Values to lorm 
ASCII Values 



Figure 6: Conversion of Final Result 



Listing 1: PI NEW 

400JJ 16 ^774 
0832 



00100 * ***** A ****-*****-********* * *** ** ***** * * 

BJJllf) * PI TO 10.0JJ0 DIGITS ON THE COCO I * 

00120 ******** * *** * *****•*"***■*-*****•*•*-*-******• 

08130 ORG $4000 

00140 

00150 LBRA PI 

00160 **** * ** * * *****<**********************-* 

00170 *BUFFERS AND WORKING STORAGE * 

00180 **** * ** ** ** *** * * ** ** *** ***** ****** ***-* 

00190 * CHANGE BYTES, TERH1, AND TERH2 FOR * 

00200 * DIFFERENT RESOLUTIONS OF PI * 

00218 BYTES EQU 50 1154 BYTES - 10000 DIGITS 



for cassette systems). More about that 
later, but as you might guess, locating 
the SUM MPV in the graphics screen 
area allows you to see PI being com- 
puted. 

The program is ORGed at $4000. You 
can change this to below the $4000 area 
if you have a 16K system, but will not 
be able to use larger MPVs. (The pro- 
gram is about 400 bytes exclusive of the 
MPV areas.) The version shown was 
assembled with the Radio Shack Disk 
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00B5 


00220 


TERM1 


EQU 


181 


LAST DIVISOR, GRP 1 
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00230 


TERM2 


EQU 


53 


LAST DIVISOR, GRP 2 
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00240 


BITS 


EQU 


8*BYTES 


-# BITS IN MPV 






9m 


00250 


SUM 


EQU 


$E00 


DISK GRAPHICS SCREEN 
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ENDSUH 


EQU 


SUM+BYTES LAST BYTE OF SUM 
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RMB 


1800 


BUFFER FOR 10000 BYTES 
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00280 


TEMPI 


EQU 


* 


START OF TEMPI MPV 
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00290 




RMB 


BYTES 








473D 


00300 


NDTHP1 


EQU 


* 


LAST BYTE OF TEMP1+1 






473D 


00310 


TEHP2 


EQU 


* 


START OF TEMP2 MPV 
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00320 




RMB 


BYTES 








476F 


00330 


NDTMP2 


EQU 


* 


LAST BYTE OF TEMP2+1 




476F 
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SCALE 


RMB 


2 


#DEC DIGITS SCALE FACTOR 
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00350 


ODDEVN 


RMB 


1 


$A9-ADCA; $A2-SBCA FOR ADDSUB 
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LAST 


RMB 


2 


HOLDS LAST DIVISOR TO BE USED 




4774 




00370 


DIVSOR 


RMB 


2 


WORKING DIVISOR- 1,3, 5. .LAST 




4776 




00380 


SIGNI 


RMB 


1 


IF SIGNIFICANCE 








00390 


rCiCTCicit^TrKnnrrrtrCTtnnrfrrfrftTCyfT^ 








00400 


* PI DRIVER 




* 








00410 


"fCnrCrffCrTrTn rCwTfCfCrFfC « VTrt«r « w fi^A^fC m n m ff rfyfrf'rf 'ft"tfTf*W A'Tt' W W rt' A" 




4777 CE 


0E32 


00420 


PI 


LDU 


#ENDSUM 


POINT TO LS BYTE OF SUM+1 




477A 8D 


6JJ 


00430 




BSR 


LOADZ 


ZERO SUM 




477C CE 


473D 


00440 




LDU 


#NDTMP1 


LS BYTE OF TEMP1+1 




477F 108E 


476F 


00450 




LDY 


#NDTMP2 


LS BYTE OF TEMP2+1 




4783 8D 


64 


00460 




BSR 


LOADO 


LOAD 1 TO TEMPI (SCALE) 




4785 CC 


PPB5 


00470 




LDD 


#TERM1 


TERMINATOR 




4788 FD 


4772 


00480 




STD 


LAST 


LAST DIVISOR 




478B 86 


A9 


00490 




LDA 


#$A9 


SET ADD FOR FIRST TERM 




478D B7 


4771 


00500 




STA 


ODDEVN 


ADD/SUB FLAG 




4790 CC 


WW 


00510 




LDD 


#5 


FOR FIRST DIVIDE 




4793 8E 


0019 


00520 




LDX 


#25 


FOR SUBSEQUENT DIVIDES 




4796 BD 


482C 


00530 




JSR 


TERM 


CALCULATE FIRST GROUP VALUE 








00540 


* NOW HAVE FIRST GROUP 


VALUE - MULTIPLY BY 4 




4799 CE 


0E32 


00550 




LDU 


#ENDSUM 


LS BYTE OF SUM+1 




479C 17 


0163 


00560 




LBSR 


SHIFT 


SUM<-*2 




479F CE 


0E32 


00570 




LDU 


#ENDSUH 


LS BYTE OF SUM+1 




47A2 17 


015D 


00580 




LBSR 


SHIFT 


SUM<=SUM*4 




47A5 CE 


473D 


00590 




LDU 


#NDTMP1 


LS BYTE OF TEMP1+1 




47A8 108E 


476F 


00600 




LDY 


#NDTMP2 


LS BYTE OF TEMP2+1 




47AC 8D 


3B 


00610 




BSR 


LOADO 


LOAD 1 TO TEMPI (SCALE) 




47AE CC 


W35 


00620 




LDD 


#TERM2 


TERMINATOR 




47B1 FD 


4772 


00630 




STD 


LAST 


LAST DIVISOR 




47B4 86 


A2 


00640 




LDA 


#$A2 


SET SUBTRACT FOR FIRST TERM 




47B6 B7 


4771 


00650 




STA 


ODDEVN 


ADD/SUB FLAG 




47B9 CC 


00EF 


00660 




LDD 


#239 


FOR FIRST DIVIDE 




47BC 8E 


DF21 


00670 




LDX 


#57121 


FOR SUBSEQUENT DIVIDES 




47BF 8D 


6B 


00680 




BSR 


TERM 


CALCULATE SECOND GROUP 








00690 


* NOW HAVE PI/4 - MULTIPLY BY 4 AGAIN 




47C1 CE 


0E32 


00700 




LDU 


#ENDSUM 


LS BYTE OF SUM+1 




47C4 17 


013B 


00710 




LBSR 


SHIFT 


SUM<-SUM*2 




47C7 CE 


0E32 


007 20 




LDU 


#ENDSUM 


LS BYTE OF SUM+1 




47CA 17 


0135 


00730 




LBSR 


SHIFT 


SUM<-SUM*4 




47CD 86 


FE 


00740 




LDA 


#-2 


PRINTER CODE 




47CF 97 


6F 


00750 




STA 


$6F 


ROUTE OUTPUT TO LP 




47D1 CE 


0E32 


00760 




LDU 


SENDS UM 


LS BYTE OF SUM+1 




47D4 108E 


476F 


00770 




LDY 


#NDTMP2 


LS BYTE OF TEMP2+1 




47D8 17 


00B3 


00780 




LBSR 


CONVRT 


CONVERT AND PRINT 




47DB 39 




00790 




RTS 




RETURN TO BASIC 








00800 


**w***wA*w**wwwTcVtww"A"*A')Wf 


*************** 








00810 


* LOAD 


SUBROUTINE 


* 








00820 


* ENTRY 


: BYTES-SIZE OF HPV IN BYTES * 








00830 


* 


(U)- 


END OF MPV+1 * 




47DC 8E 


0032 


00840 
00850 


*********A****A-*******-*i 

LOADZ LDX #BYTES 


GET # BYTES 




47DF CC 


0000 


00860 




LDD 


#0 


LOAD 




47E2 ED 


C3 


00870 


LOA010 


STD 


,--U 


STORE 




47E4 30 


IE 


00880 




LEAX 


-2,X 


DECREMENT COUNT 




47E6 26 


FA 


00890 




BNE 


LOA010 


GO IF NOT DONE 




47E8 39 




00900 




RTS 




RETURN 








00910 


************************************** 








00920 


* LOAD 


1 AND 


SCALE SUBROUTINE * 








00930 


* ENTRY 


: (U)- 


END OF MPV+1 * 








00940 


* 


(Y)- 


END OF TEMP MPV+1 * 








00950 


* EXIT: 


1 * 


SCALE FACTOR LOADED * 








00960 


* 


SCALE SET TO SCALE FACTOR * 








00970 


***************** ************* ******** 




47E9 34 


69 


00980 


LOADO 


PSHS 


Y,U 


SAVE POINTERS 




47EB 8D 


EF 


00990 




BSR 


LOADZ 


ZERO MPV 




47ED 35 


69 


01000 




PULS 


Y,U 


RESTORE POINTERS 




47EF 86 


0l 


01010 




LDA 


#1 


1 




47F1 A7 


5F 


01020 




STA 


-l.U 


STORE FOR SHIFT AND ADD 



Assembler (26-3254). Use the /SR 
option and assemble to disk as 
PI NEW I BIN. 

A basic driver is shown in Listing 2. 
This driver simply loads the PINEWI 
BIN module, sets the graphics mode, 
then executes the PI program. 



Listing 2: PIBflSIC 


100 


CLEAR 200,&H3FFF 


11J3 


LOADM "PINEW/BIN" 


120 


DEF USR0=&H4000 


130 


SCREEN 1,1 


14J3 


PMODE 1 


150 


PCLS 


160 


A=USR0(0) 


170 


GOTO 170 



Program Notes 

Many of the subroutines use address 
pointers passed in Register U registers 
or U and Y. These pointers usually point 
to the end of an MPV plus T. The 
reason for this is that auto- 
decrementing is used in many subrou- 
tines. A pointer to the MPV points to 
the low-order byte, as operations such 
as multiple-precision adds and sub- 
tracts and shifts start there. An instruc- 
tion such as STD ,-U (LOADZ) decre- 
ments Register U before the instruction 
is executed. After the decrement, the 
pointer points to the last 16-bit value. 
An autodecrement of ,-U works sim- 
ilarly, except the pointer points to the 
last byte after the auto-decrement. 
Using auto-decrement saves an LEAU 
-I,U or similar instruction. 

The name of the game in much of this 
code is efficiency, especially in subrou- 
tines such as SHIFT and ADDSUB, 
which are used constantly. In DIVIDE, 
for example, good programming prac- 
tice calls for using a divisor on the stack, 
or at worst, a memory variable. How- 
ever, the divisor in DIVIDE is stored in 
an immediate instruction field just for 
the sake of squeezing out some extra 
speed by eliminating the instructions 
required in the multiply loop. 

The LOADO subroutine uses a mul- 
tiply of times 10 after initially storing a 
T. We could have used a generic mul- 
tiply subroutine here, just as the DI- 
VIDE is a generic divide. However, we 
used a well-known trick multiply — a 
type of shift and add. Multiplying by 10 
is equivalent to shifting one bit left, 
saving the result as X2, shifting twice 
again to get eight times the original 
value, then adding the saved X2 term. 
The shift is done by the SHIFT subrou- 
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tine, which we already have, and the 
multiple-precision add by ADDSUB. 

The ADDSUB subroutine stores the 
flag for add or subtract into the OP3 
instruction. The flag is also the actual 
opcode used for ADCA or SBCA. The 
two instructions are the same format 
otherwise. 

The CONVERT subroutine uses a 
common method of converting from 
binary to decimal. Divide any binary 
number by 10. Save the remainder and 
divide the quotient by 10 again. Con- 
tinue this process until the quotient 
reduces to zero. The remainders, in 
reverse order, are the equivalent de- 
cimal number. In this case we don't need 
to know how many digits are in the 
number to be converted, because that's 
handled automatically — the process 
stops when the quotient (residue, really) 
disappears. 

We could have added a decimal point 
after the first decimal digit in printing 
out the answer — it must be '3'. How- 
ever, we left it off in this version, having 
been beaten into apathy by the pro- 
gram. It might also have been nice to 
format the printout by arranging the 
data into groups of 10 digits. (All of this 
will be done in the next version.) 

Seeing the Calculations 

As I mentioned, PI actually lets you 
see the SUM term being calculated. 
When PI is executed, you'll see the 
screen clear. No further screen activity 
occurs while LOADO loads a scaled T 
into the first MPV. After this fill, 
however, the screen is partially filled 
with data. The amount of data depends 
upon the number of bytes you have 
selected for the MPVs and the screen 
mode used in the basic driver. The 
screen data represents the first value in 
SUM — the first term of the first set. 
As the program number crunches away, 
you'll see the data change, each change 
occurring to portions of the data further 
and further to the right and down, 
representing less and less significant 
digits. If you're running a version of the 
program that prints many digits, with 
significant time delays between term 
updates, keep your eye on a spot on the 
screen until the next change to zero-in 
on the digit positions being modified. 

After the first set of data has been 
calculated, you'll see the next set of 
terms changing the data area. This set 
converges more rapidly. It starts from 
the high-order digits as well, but moves 
much faster through the screen area. 



47F3 7F 


476F 


01030 




CLR 


SCALE 


RESET SCALE FACTOR 




47F6 34 


60 


01040 LON010 


PSHS 


Y,U 


SAVE POINTERS 




47F8 17 


0107 


01050 




LBSR 


SHIFT 


X2 




47FB 35 


60 


01060 




PULS 


Y,U 


GET POINTERS 




47FD 34 


60 


01070 




PSHS 


Y,U 


SAVE POINTERS 




47FF IE 


23 


01080 




EXG 


Y,U 


SWAP Y,U 




4801 17 


00B0 


01090 




LBSR 


MOVE 


SAVE X2 




4804 35 


60 


01100 




PULS 


Y,U 


GET POINTERS 




4806 34 


60 


01110 




PSHS 


Y,U 


SAVE POINTERS 




4808 17 


00F7 


01120 




LBSR 


SHIFT 


X4 




480B 35 


60 


01130 




PULS 


Y,U 


RESTORE POINTERS 




480D 34 


60 


01140 




PSHS 


Y,U 


SAVE POINTERS 




480F 17 


00F0 


01150 




LBSR 


SHIFT 


XB 




.2 35 


60 


01160 




PULS 


Y,U 


RESTORE POINTERS 




4814 34 


60 


01170 




PSHS 


Y,U 


SAVE POINTERS 




4816 86 


A9 


01180 




LDA 


#$A9 


ADD CODE 




4818 BD 


48EF 


01190 




JSR 


ADDSUB 


X8 + X2 - X10 




481B 35 


60 


01200 




PULS 


Y,U 


GET POINTERS 




481D FC 


476F 


01210 




LDD 


SCALE 


SCALE IS COUNT OF DIGITS 




4820 C3 


0001 


01220 




ADDD 


#1 


BUMP BY 1 




4823 FD 


476F 


01230 




STD 


SCALE 


STORE 




4826 A6 


C8 CE 


01240 




LDA 


- BYTES, U POINT TO FIRST BYTE 




4829 27 


CB 


01250 




BEQ 


LON010 


GO IF NOT NORMALIZED 




482B 39 




01260 




RTS 




RETURN 








01270 
01280 


* CALCULATE TERM SUBROUTINE * 








01290 


* ENTRY 


1 (LAST) -LAST DIVISOR VALUE * 








01300 


* 


(D)-FIRST DIVISIOR - 5/239 * 








01310 


* 


(X)-SUBSEQUENT 


DIVISORS * 








01320 


* 


(ODDEVN)-ADD OR SUB OP CODE * 








01330 


* EXIT: 


(SUM) 


HOLDS FINAL VALUE * 








01340 


**************> 


V**A-****-ftV 


■ AAA****A-AAAAA* 




482C FD 


484D 


01350 


TERM 


STD 


TPI020+1 STORE 5 OR 239 




482F BF 


4848 


01360 




STX 


TOP1+1 


STORE 25 OR 239*239 




4832 CC 


0001 


01370 




LDD 


#1 


SET DIVISOR TO 1 




4835 FD 


4774 


01380 




STD 


DIVSOR 


STORE DIVISOR 




4838 FC 


4774 


01390 TPI010 


LDD 


DIVSOR 


GET DIVISOR 




483B 10B3 


4772 


01400 




CMPD 


LAST 


TEST FOR LAST 




483F 22 


4C 


01410 




Bill 


TPI090 


GO IF DONE 




4841 1083 


0001 


01420 




CMPD 


#1 


TEST FOR DIVISOR-1 




4845 27 


05 


01430 




BEQ 


TPI020 


GO IF SO 




4847 CC 


0000 


01440 


TOPI 


LDD 


#0 


SQUARED TERM 




484A 20 


03 


01450 




BRA 


TPI030 


CONTINUE 




484C CC 


0000 


01460 TPI020 


LDD 


#0 


SQ RT TERM 




484F CE 


473D 


01470 TPI030 


LDU 


#NDTMP1 


LS BYTE OF TEMP1+1 




4852 8D 


60 


01480 




BSR 


DIVIDE 


TEMPI/5 OR TEMPI/25 




4854 CE 


476F 


01490 




LDU 


#NDTMP2 


LS BYTE OF TEMP2+1 




4857 10BE 


473D 


01500 




LDY 


#NDTMP1 


LS BYTE OF TEMP1+1 




485B 8D 


57 


01510 




BSR 


MOVE 


TEMP2<-TEMP1 




485D FC 


4774 


01520 




LDD 


DIVSOR 


GET CURRENT DIVISOR 




4860 CE 


476F 


01530 




LDU 


#NDTMP2 


LS BYTE OF TEMP2 




4863 8D 


5B 


01540 




BSR 


DIVIDE 


TEMP2<-TEMP2/DIVISOR 




4865 CE 


0E32 


01550 




LDU 


#ENDSUM 


LS BYTE OF SUM+1 




4868 108E 


476F 


01560 




LDY 


#NDTMP2 


LS BYTE OF TEMP2+1 




486C B6 


4771 


01570 




LDA 


ODDEVN 


GET ADD/SUB FLAG 




486F 17 


007D 


01580 




LBSR 


ADDSUB 


ADD/SUB TO TEMP2 TO SUM 




4872 FC 


4774 


01590 




LDD 


DIVSOR 


GET CURRENT DIVISOR 




4875 C3 


0002 


01600 




ADDD 


#2 


DIVISORODIVISOR+2 




4878 FD 


4774 


01610 




STD 


DIVSOR 


SAVE FOR NEXT DIVIDE 




487B B6 


4771 


01620 




LDA 


ODDEVN 


GET ADD/SUB FLAG 




487E 81 


A9 


01630 




CMPA 


#$A9 


ADD? 




4880 27 


04 


01640 




BEQ 


TPI040 


GO IF ADD 




4882 86 


A9 


01650 




LDA 


#$A9 


SET TO ADD 




4884 20 


02 


01660 




BRA 


TPI050 


CONTINUE 




4886 86 


A2 


01670 TPI040 


LDA 


#$A2 


SET TO SUB 




4888 B7 


4771 


01680 TPI050 


STA 


ODDEVN 


STORE FOR NEXT ADD/SUB 




488B 20 


AB 


01690 




BRA 


TPI010 


LOOP 




488D 39 




01700 


TPI090 


RTS 




RETURN 








01710 
01720 


* CONVERT MPV TO DECIMAL AND PRINT * 








01730 


* ENTRY 


: (U)-END OF SOURCE MPV+1 * 








01740 


* 


(Y)-END OF DEST+1 2X MPV + * 








01750 


* EXIT 


SOURCE DIGITS 


PRINTED IN DEC* 




488E 34 


20 


01760 
01770 


•A-*A-AA-A-A-A-A"A-ft*A-A-A-A"A-A"A * * * A- 

CONVRT PSHS Y 


SAVE END OF DEST AREA 




4890 CC 


000A 


01780 CON010 


LDD 


#10 


DIVISOR FOR CONVERT 




4893 34 


60 


01790 




PSHS 


U,Y 


SAVE PARAMETERS 




4895 8D 


29 


01800 




BSR 


DIVIDE 


X/10 




4897 35 


60 


01810 




PULS 


U,Y 


RESTORE 




4899 E7 


A2 


01820 




STB 


,-Y 


SAVE REHAINDER 




489B B6 


4776 


01830 




T.DA 


SIGNI 


GET SIGNIF FLAG 
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RAINBOWIeal/PCMIest 
Chicago, Illinois 
Dates: May 23-25, 1986 
Hotel: Hyatt Regency-Woodfield 
Rooms: $60 per night, 

single or double 
Advance Ticket Deadline: 
May 16, 1986 



RAINBOWfest is the 
only computer show 
exclusively dedi- 
cated to your Tandy Color 
Computer. Nowhere else 
will you see as many pro- 
ducts, have access to the 
top experts, or be able to 
attend free seminars. It's the 
next best thing to receiving 
the latest issue of the rain- 
bow in your mailbox! 
Every RAINBOWfest fea- 



■*. 



* 



> 



Show Schedule 

Friday evening 

ip.m 

u Community Breaklast at 8 am 
Mi6H8openoi 10 am and close a;- 
Sunday 
- Exhibits open Iro 




tures many delightful sur- 
prises. It's a great opportu- 
nity for commercial pro- 
grammers to show off new 
and innovative products for 
the first time. You get the 
jumpon new capabilities for 
your CoCo. In exhibit after 
exhibit, there are demon- 
strations, opportunities to 
experiment with software 
and hardware, and special 
RAINBOWfest prices. 



You can set your own 
pace between visiting ex- 
hibits and attending the val- 
uable, free seminars on all 
aspects of your CoCo — 
from improving basic skills 
to working with the sophis- 
ticated OS-9 operating sys- 
tem. 

Many of the people who 
write for the rainbow — as 
well as those who are writ- 
ten about — are there to 



\ 
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meet you and answer your 
questions. You'll also meet 
lots of other people, just like 
you, who share your inter- 
est in the Color Computer. 
It's a person-to-person 
event, as well as a tremen- 
dous learning experience, 
in a fun and relaxed atmos- 
phere. 

To make it easier for you 
to participate, we schedule 
RAINBOWfests in three 
parts of the country. If you 
missed the fun in Palo Alto, 
California, why don't you 
make plans now to join us in 
Chicago? For members of 
the family who don't share 
your affinity for CoCo, 
you'll be comfortable know- 
ing that RAINBOWfest is 
located in an area with 
many other attractions. 



The Hyatt Regency- 
Woodfield offers special 
rates ($60, single or double 
room) for RAINBOWfest. 
The show opens Friday eve- 
ning with a session from 7 
p.m. to 10 p.m. It's a 
daytime-only show Satur- 
day — the CoCo Commu- 
nity Breakfast (separate 
tickets required) is at 8 a.m., 
then the exhibit hall opens 
promptly at 10 a.m. and runs 
until 6 p.m. There will be no 
exhibition hours or semi- 
nars Saturday evening. On 
Sunday the exhibit hall 
opens at 1 1 a.m. and closes 
at 4 p.m. 

Tickets for RAINBOWfest 
may be obtained directly 
from the rainbow. We'll 
also send you a special 
reservation form so you can 



get your special room rate. 
Come to RAINBOWfest! 



•yr!, 



' j Your admis- 
uy&JT sion to RAIN- 
BOWfest also entitles you to 
visit -PCMfest! It's a show 
focusing on Tandy's new 
generation of computers — 
the Tandy 1000, 1200, 2000 
and 3000 MS-DOS compu- 
ters, and the Tandy 1 00, 200 
and 600 portables. 

PCMfest is sponsored by 
our sister publication, PCM, 
The Personal Computer 
Magazine for Tandy Com- 
puter Users. The show will 
be in the same location as 
RAINBOWfest and the ex- 
hibit hours will be exactly 
the same. If you use one of 
the newer Tandy compu- 
ters, don't miss it. 
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Join us at a future RAINBOWfest! 



RAINBOWteit • Princeton New Jersey 
Dates: Oct 17-19, 1986 
Hotel: Hyatt Regency-Print:-. 

ke( orders received irom each state 
TREE RAINBOW po :,00 ticket orflers receivec- 



Rooms: $79 per night. single- 
Advance Ticket Deadline: Oi 



YES, I'm coming to Chicago! I want to save by buying tickets now at the special advance sale price. 
Breakfast tickets require advance reservations. 



Please send me: 

Three-day tickets at $9 each total 

One-day tickets at $7 each total 

Circle one: Friday Saturday Sunday 
Saturday CoCo Breakfast at $12 each total 

Handling Charge $1 $ 100 

TOTAL ENCLOSED 

(U.S. Currency Only, Please) 
D Also send me a hotel reservation card for the Hyatt 
Regency-Woodfield ($60, single or double room). 



Name (please print) 

Address 

City 



State 



ZIP. 



Telephone 

Company 

□ Payment Enclosed, or Charge to: 
□ VISA □ MasterCard □ American Express 

Account Number 

Exp. Date 

Signature 



Make checks payable to: The RAINBOW. Mail to: RAINBOWfest, The Falsoft Building, 9509 U.S. Highway 42, P.O. Box 385, Prospect, 
KY 40059. To make reservations by phone, call: (502) 228-4492. 

Advance ticket deadline: May 16. 1986. Orders received less than two weeks prior to show opening will be held for you at the door. Tickets will 
also be available at the door at a slightly higher price. Tickets will be mailed six weeks prior to show. Children 4 and under, free; over 4, full 
price. 
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489E 27 


F0 


01840 




BEQ 


CON010 


GO IF Q NOT 








01850 


* NOW PRINT FROH (Y) 






48A0 A6 


AjJ 


01860 CON020 


LDA 


.?+ 


GET DIGIT 0-9 




48A2 8B 


30 


01870 




ADDA 


#$30 


CONVERT TO ASCII 




48A4 34 


20 


01880 




PSHS 


Y 


SAVE POINTER 




48A6 AD 


9F A002 


01890 




JSR 


[SA002] 


PRINT 




48AA 35 


20 


01900 




PULS 


Y 


RESTORE POINTER 




48AC 10AC 


E4 


01910 




CMPY 


,S 


TEST FOR END 




48AF 23 


EF 


01920 




BLS 


CON020 


GO IF NOT END 




48B1 35 


20 


01930 




PULS 


Y 


RESET STACK 




48B3 39 




01940 




RTS 




RETURN 








01950 
01960 


* MOVE ONE HPV TO ANOTHER * 








01970 


* ENTRY 


: BYTES-SIZE OF 


MPV IN BYTES * 








01980 


* 


(U)- 


END OF DEST MPV+1 * 








01990 


* 


m- 


END OF SOURCE MPV+1 * 








02000 


* EXIT: 


DEST 


MPV NOW-SOURCE MPV * 








02010 


************* *.* ******* a*************** 




48B4 8E 


0032 


02020 


HOVE 


LDX 


#BYTES 


GET # BYTES 




48B7 EC 


A3 


02030 MOV010 


LDD 


.--* 


GET SOURCE WORD 




48B9 ED 


C3 


02040 




STD 


,--U 


STORE IN DEST WORD 




48BB 3? 


IE 


02050 




LEAX 


-2,X 


DECREMENT COUNT 




48BD 26 


F8 


02060 




BNE 


MOV010 


GO IF NOT DONE 




48BF 39 




02070 




RTS 




RETURN 








02080 


************** Irk*** ******************** 








02090 


* DIVIDE MPV 


BY 16 BIT 


DIVISOR * 








02100 


* ENTRY 


: BYTES-SIZE OF 


HPV IN BYTES * 








02110 


* 


BITE 


-SIZE OF MPV IN BITS * 








02120 


* 


(0). 


END OF MPV+1 * 








02130 


* 


(»). 


DIVISOR 


* 








02140 


* EXIT: 


(MPV)-QUOTIENT * 








02150 
02160 
02170 


* 
******* 


(D)- 


REMAINDER 


* 




48C0 FD 


48DE 


DIVIDE 


STD 


0P1+2 


SETUP DIVISOR 




48C3 FD 


48E3 


02180 




STD 


0P2+1 


SETUP DIVISOR 




48C6 108E 0190 


02190 




LDY 


#BITS 


LOAD # BITS IN MPV 




4BCA 86 


01 


02200 




LDA 


#1 


SET SIGNI TO NONE 




48CC B7 


4776 


02210 




STA 


SIGNI 


SIGNIFICANCE FLAG 




48CF CC 


0000 


02220 




LDD 


#0 


INITIALIZE MS BYTE 




48D2 34 


40 


02230 DIV010 


PSHS 


U 


SAVE HPV ADDRESS 




48D4 8D 


2C 


02240 




BSR 


SHIFT 


SHIFT HPV 




48D6 35 


40 


02250 




PULS 


U 


RESTORE ADDRESS 




48D8 59 




02260 




ROLB 




LAST BIT TO D 




48D9 49 




02270 




ROLA 




HIGH-ORDER BYTE 




48DA 25 


06 


02280 




BCS 


0P2 


GO IF HIGH-ORDER BIT 




48DC 1083 


WW 


02290 


OP1 


CMPD 


#0 


DUMMY-TEST DIVISOR 




48E0 25 


08 


02300 




BLO 


DIV020 


GO IF HO GO 




48E2 83 


0000 


02310 


OP2 


SUBD 


#0 


DUMMY-SUBTRACT DIVISOR 




48E5 6C 


5F 


02320 




INC 


-1,0 


SET Q-l 




48E7 7F 


4776 


02330 




CLR 


SIGNI 


SET SIGNIFICANCE 




48EA 31 


3F 


02340 DIV020 


LEAY 


-1.1 


DECREHENT # BITS 




48EC 26 


E4 


02350 




BNE 


DIV010 


GO IF MORE 




48EE 39 




02360 
02370 
02380 


RTS 

***************** * **** A 


RETURN 




* MULTIPLE-PRECISION ADD OR SUBTRACT * 








02390 


* ENTRY 


: BYTES-SIZE OF 


HPV IN BYTES * 



After the second set of data has been 
processed, the program converts SUM 
(the screen) to ASCII. In doing so, it 
successively divides SUM by 10, mak- 
ing SUM smaller and smaller. When 
this happens, you'll see a blank portion 
in the data area growing and snaking 
through the data area as more and more 
leading zeros are produced in SUM. 
When SUM is reduced down to zero, 
the ASCII digits are printed from the 
temporary ASCII buffer. 

How Fast is PI and How does the 
CoCo Compare to Other Systems? 

PI is a fairly efficient program, but it's 
obvious that our CoCo is no Cray X- 
MP! It takes about three hours to 
generate and print 500 decimal digits 
and about 23 hours for 1,000 digits (see 
Figure 7). Mainframe computers typi- 
cally generate thousands of digits of pi 
in six to eight hours. For smaller MPVs, 
the speed drops dramatically and the 
screen is fun to watch. (As I write this, 
I'm running PI for 2,000 digits — 
estimated completion time is 240 
hours.) 

Could the PI program be sped up? 
Undoubtedly, both by more efficient 
code and by more efficient algorithms. 
This is a first attempt at the problem of 
generating pi and, frankly, it turned out 
to be an interesting project. It's one of 
those programming problems that 
simply can't be done in anything other 
than assembly language, where speed is 
all important. A perfect project for one 
of those silly hackers who can't think of 
anything but computers. 

Well, it's 3 a.m. now, and I'm going 
to bed. Maybe tomorrow I can speed up 
the program again. Call me after I've 
caught up on my sleep if you think 



Figure 7: PI to 1,000 Decimal Digits 



3141 
9862 
0284 
6527 
1748 
9433 
2489 
2770 
0917 
1960 
1859 
2083 
0532 
2796 



592653 
803482 
102701 
120 190 
81 5209 
057270 
122793 
5392 1 7 
3637 1 7 
864034 
502445 
8 14206 
171226 
823030 



5897 
5342 
9385 
9145 
2096 
3657 
8183 
1762 
8721 
4181 
9455 
17 17 
8066 
1952 



93238 
1 1706 
21105 
64856 
28292 
59591 
01194 
93176 
46844 
59813 
34690 
76691 
13001 
035 18 



4626433832795 
7982 1480865 13 
5596446229489 
6923460348610 
540917 1536436 
953092 186 1173 
9129833673362 
7523846748 184 
0901 224953430 
62977477 13099 
8302642522308 
4730359825349 
9278766 111959 
7124 

^\Last Few 



0288 
2823 
5493 
4543 
7892 
8 193 
4406 
6766 
1465 
6051 
2533 
0428 
0921 



4197 
0664 
0381 
2664 
5903 
261 1 
5664 
9405 
4958 
8707 
4468 
755* 
6420 



1693993 
7093844 
9644288 
8213393 
6001 1 33 
7931051 
308602 1 
1320005 
5371050 
2 1 13499 
5035261 
6873115 
1 989380 



75 10 
6095 
1097 
6072 
0530 
1854 
3949 
68 1 2 
7922 
9999 
931 1 
9562 
9525 



582097 
505822 
566593 
60249 1 
548820 
807446 
463952 
7 14526 
796892 
837297 
881710 
863882 
720106 



4944 
3172 
3446 
4127 
4665 
2379 
2473 
3560 
5892 
8049 
1000 
3537 
5485 



5923 
5359 
1284 
3724 
2138 
9627 
7190 
8277 
3542 
9510 
3137 
8759 
8632 



0781 
408 1 
7564 
5870 
4146 
4956 
7021 
8577 
0199 
5973 
8387 
3751 
7886 



64062 
2848 1 
82337 
06606 
95 194 
73518 
79860 
13427 
56112 
17 3 2 8 
52886 
95778 
5936 1 



862089 

11745 

867831 

3 15588 

15 1160 

857527 

94370 

577896 

12902 

160963 

587533 

185778 

533818 



Digits Invalid 
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you've found a way to increase the 
program by a factor of two or three. 



Call me collect at any time if you can 
increase the speed tenfold! 



Next time, we'll present more assem- 
bly language topics. □ 







9Zi<99 


* 


<U>- 


END OF DEST MPV+1 * 










02410 


* 


(Y)- 


END OF SOURCE MPV+1 * 










JJ2420 


* 


(A)- 


SA9 IF ADt 


. $A2 IF SUB * 










02430 


* EXIT: 


DEST 


HPV-DEST 


MPV- SOURCE MPV* 










02440 


************|I|*A**» 'A A «******»** AAA***** 






48EF B7 


48F9 


02450 


ADDSUB 


STA 


0P3 


SET MODE 






48F2 1C 


FE 


02460 




ANDCC 


#SFE 


RESET C 






48F4 8E 


9932 


02470 




LDX 


#BYTES 


GET # BYTES 






48F7 A6 


C2 


02480 ADD010 


LDA 


,-u 


GET DEST BYTE 






48F9 A9 


A2 


02490 


0F3 


ADCA 


,-Y 


ADD OR SUB SOURCE 






48FB A7 


C4 


02500 




STA 


,U 


DECREMENT AND STORE 






48FD 3pf 


IF 


PZ51P 




LEAX 


-1,X 


DECREMENT COUNT 






48FF 26 


F6 


|3252j3 




BNE 


ADDJJ1? 


GO IF NOT DONE 






49JJ1 39 




J2TZ53P 




RTS 




RETURN 










02540 


w trtrtCnTCtrtt trtrtt tot ww rt w~A"Vi-wTrr ycrfKytrrrr rCrf^'Krirrnyrrtrtyt 










02550 


* SHIFT 


MFV LEFT ONE BIT * 










{1256? 


* ENTRY 


: BYTES=SIZE OF 


HPV IN BYTES * 










92579 


* 


<U)- 


END OF MPV+1 * 










925B9 


* EXIT: 


HPV< 


=MPV SHIFTED LEFT * 










92599 


* 


C-HSB 


* 










92699 


w yrrtrt w wnyrVf tttt w n wnxw "fcrtnyt tot "fcfcrrrt TCrfrrrrrckit vrrcfcr? 






49(12 1C 


FE 


92619 


SHIFT 


ANDCC 


#$FE 


RESET C 






49JJ4 8E 


9932 


92629 




LDX 


#BYTES 


GET # BYTES 






49(J7 69 


C2 


02630 SHI010 


ROL 


.-u 


SHIFT LEFT ONE BIT 






49(T9 3JJ 


IF 


02640 




LEAX 


-1,X 


DECREMENT COUNT 






49JJB 26 


FA 


92659 




BNE 


SH1919 


GO IF NOT 9 






49JID 39 


9999 


92669 
92679 




RTS 

END 




RETURN 






99999 TOTAL ERRORS 












/S\ 





* PERSONAL BOOKKEEPING 2000 * 

WHAT OTHER PERSONAL BOOKKEEPING SYSTEM 
HAS ALL THESE FEATURES? 

Quick-and-easy data entry — use day-to-day. 

LOGICAL abbreviations lor data entry — no special 

symbols. 

ON-LINE help for data entry. 

"INTELLIGENT" data entry minimizes keystrokes and 

rejects illogical keystrokes and entries. 

CHANGE data at any time as easily as new entries. 

45 accounts: user-definable expense categories. 

CASH and credit card expenses easily entered. 

Separate record of extraordinary expenses. 

Monthly and yearly printed reports. 

COLOR graph compares expenses. 

Monthly table of expenses compares last 4 or 8 months and 

shows % changes. 

Yearly report itemizes expenses, totals taxed and non-taxed 

expenses and income, prepares reports of interest on 

accounts and sales taxes on expenses. 

DUPE latest entries in seconds (needs 2 drives). 

Complete printed report of all accounts. 

BALANCE checkbook in minutes. 

SEARCH file by transaction, expense, check number, payee 

or note. 

"Personal Bookkeeping 2000" is a powerful program that is 
user friendly. It provides the user with a wealth of 
information." The Rainbow, October 1985. Page 195. 

Requires 32K ECB with disk drive and printer 

$39.95 plus $1 .50 shipping 

AMDT-STARDANCERS. INC. 

762 Brady Avenue 

Bronx, New York 10462 



1986 
BEST OF THE UPGRADES LIST 

1. Memory 64K DRAMS , . .from ... $ 19 

256K Kits 98 

2. ROM/BASIC Color Basic 1.2 $ 19 

Extended Basic 1.1 . . 29 

Disk Basic 1.1 29 

ADOS 40 

3. Storage Drive $209 

Drive 1 (external) 135 

Drive 1 (internal) 80 

4. Controllers J&M (you supply DOS) $ 89 

'Super Controller' .... 95 

5. Monitor Driver Original Coco .... $ 24 

Coco II 34 

6. Monitors Hi-Res Green/Amber ... $ 89 

Color with audio 169 

7. Lower Case Kit $ 49 

8. Deluxe Keyboards . . . from .... $ 59 

Please specify model or cat # of your CoCo when or- 
dering. Brands and prices subject to stock availabil- 
ity. Send tor free price list on over 200 Coco items. 



POLYGON COMPUTERS 

1316 Wilshlre Blvd., Suite 206 
Los Angeles, CA 9001 7 

(213)483-8388 

Ca. Res. 6Vj% tax Shipping: 52 Software 

visit our Retail Store Charges: $5 Hardware 
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OS-9 



KISSable OS-9 



Featuring 

a Trig Library in C 



By Dale L. Puckett 
Rainbow Contributing Editor 



The column this month is short on 
prose — but long on listings. 
While we listen to the March 
winds blow and wait for the first hint 
of spring we feature a library of trig 
functions written in M icro ware c for the 
Color Computer. Several assembly 
language utility programs contributed 
by our readers round out the column. 

We received a nice Christmas card 
from Hiro Sugawara at the Ark Corpo- 
ration in Tokyo whom we met at Mi- 
croware's OS-9 Seminar in Des Moines. 
With the card was the "OS-9 is No. 1 !" 
logo he distributes in Japan. We print 
it here to share the international flavor 
of OS-9. 



OS-9 



is No. 1 / 

I ARK CORPORATION! 



Dale L. Puckett, who is author of The 
Official BASIC09 Tour Guide and co- 
author, with Peter Dibble, of The 
Official Rainbow Guide to OS-9, is a 
free-lance writer and programmer. He 
serves as direclor-at-large of the OS-9 
Users Group and is a member of the 
Computer Press Association. Dale 
works as a U.S. Coast Guard chief 
warrant officer and lives in Alexandria, 
Virginia. 



About Version 2.0 

Before we jump into a short descrip- 
tion of this month's contributions, we'll 
pass along a few news items that have 
crossed the desk during the past month. 
First, the Radio Shack catalog number 
for OS-9 Level 1, Version 2.00 is 700- 
233 1 . If you own OS-9 already, you may 
upgrade to the new version for $24.95. 
As we write this in early January, we 
still have not received our copy but we 
expect it any day. As soon as we get our 
hands on a disk we'll pass along our first 
impressions. 

Third party vendors will most likely 
be scrambling also as they attempt to 
ensure that their products run properly 
on the new version. When we talked to 
Tandy we also learned they plan to ship 
a new 100-page computer catalog to 
their stores. Deborah McAlister, Tan- 
dy's public relations manager, told me 
we can expect to see at least 40 pages 
of software — including a list of some 
of the express order programs. 

We have also received copies of Desk- 
Mate and D. L. Logo from Tandy. Both 
look great and the documentation really 
shines. Both manuals are written foi 
users. This means that people who need 
to get a job done with their computer 
will be able to do it quickly without 
searching through several manuals full 
of technical details they don't need. I 
have heard that DeskMate is a big seller 
in the Washington, D. C. area, and one 
Coast Guard commander tells me he 
now uses it to keep all his household and 
investment records. I hope to be able to 



give you some first-hand observations 
soon. 

I'm sure glad my December 1985 
column hit the streets before DeskMate. 
It seems to have wiped out most of my 
wish list. Gerald Ross of Des Plaines, 
Illinois was quick to point that out. 
"Have you looked at DeskMate 1 . It uses 
OS-9, and has a calendar, calculator, 
text editor, filing system and many 
other functions." 

Other New Products 

Computerware is now shipping a new 
advanced utilities package. The new 
KShell alone should be worth the price 
of the package. Written by OS-9 Users 
Group President Brian Lantz, it brings 
many of the features found in OS-9 
68K's Shell Command Interpreter to 
the Color Computer and other 6809- 
based computers. 

By the way, the Users Group now has 
a new address. If you need to contact 
them, write to 9743 University Avenue, 
Suite 330, Des Moines, IA 50322. The 
new mail forwarding service contracted 
by the group is doing a tremendous job, 
which means you should get a quick 
reply. Volume II, No. I of MOTD, the 
UG newsletter, was mailed and No. 2 
should be in your hands by the time you 
read this. It sports a fantastic new 
typeset and two-color look courtesy of 
Kevin Quiggins, one of the talented 
design people at Falsoft, Inc. 

The OS-9 Users Group also spon- 
sored a buffet breakfast at RAIN- 
BOWfest-Palo Alto. Paul Searby of 
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Computerware was the keynote 
speaker. They also ran a booth in the 
exhibit hall. 

The OS-9 Users Group has already 
sponsored three conferences on rain- 
bow's Group CoCo on Delphi. These 
conferences are a lot of fun and give you 
a chance to talk directly to key figures 
from the OS-9 world. Brian Lantz 
hosted the first OS-9 conference shortly 
after Group CoCo opened, 1 hosted one 
in mid-December and Ken Kaplan, 
president of Microware, hosted another 
on January 26. Check out this quote 
from Kaplan! 

"1 can very strongly reassure you that 
OS-9 will probably be a big part of the 
next generation of personal computer 
systems. Your support and good taste in 
software will be richly rewarded." 

Kaplan wouldn't talk about any of 
the new OS-9 68K ports but he offered 
a free OS-9 Software Vendor Catalog to 
anyone who calls Microware at (515) 
224-1929. If you want to hear Ken 
Kaplan in person, join us at 
RAINBOWfest-Chicago! May 23-25, 
where he will be the keynote speaker at 
our OS-9 Users Group Breakfast on 
Sunday morning. 



Additions to the QT Plus 

Frank Hogg at FHL has found a way 
to fit five additional ports in the QT 
Plus. The add-on board, in final design 
at FHL as 1 write this, features four 
programmable serial ports, one parallel 
port and a battery backed up real-time 
clock. The board is being designed so 
that three could be hooked up to the QT 
Plus, although only one will fit in the 
present case. The new ports will support 
SYNC as well as ASYNC. The cost will 
be under S500. This means that a full 
blown QT Plus with a megabyte of 
RAM and eight ports will cost about 
$4,400 or about S550 per user! 

FHL is also busy designing a new QT 
computer that will support up to 20 
users. Based on the 68020 CPU, the new 
system will feature four, 12, and 20 port 
configurations with two megabytes of 
RAM. The system will have the look of 
the original QT but will be larger and 
hold more drives. Without telling 
anyone, FHL also has been preparing 
some new software that will be shipped 
with all QTs sold. "We're going to ship 
this package free to all present QT 
owners as a belated Christmas present," 
Hogg said. 



The package has a value in excess of 
$2,000 and includes: QCom, a commu- 
nications program with XMODEM 
upload and download;/7>«, a hard disk 
to floppy backup program designed for 
the novice user; the Sculptor Plus run 
time package; and the FHL Office 
System. QT owners will be able to 
purchase the Sculptor Plus develop- 
ment system for $695, which is $300 off 
the regular price of $995. The 68K 
version of DynaStar should also be 
available by the time you read this. 
Written in C, this new version is very 
fast. The price is $400 for both DynaS- 
tar and DynaForm. They are not sold 
separately. And if you want a computer 
that will write programs for you auto- 
matically, check out Sculptor Plus. It is 
available now for 6809 OS-9. If you 
have the older version you may upgrade 
to the Plus for $175. The price is $995. 

Back on the OS-9 68K front, we 
learned that independent vendors are 
porting OS-9 to both the Atari ST-5I2 
and Commodore Amiga. These new 
ports follow two special 68000 boards 
that let you run OS-9 on the IBM PC, 
AT and XT. Our world is growing! 

We received a letter from Dragon 



BASIC COMPILER 

v\ \s.\i( UN sRE believes Inal hmt, of iiir Color Computer deserve (lit 
right in me all 64k ill k \m iiv.ii is .".ui.iii. in ibe computer, and have las) 

ntiichinr l.iii|iiiiigr programs that use III? full niilrnlntl nf llif Mite mkriir 
Thst k »h\ the BASK compNtr. called Ml.BAMC ms developed. Here an 
nf the reason, that make this compiler nne uf Ihr hesl har£.iins in this magi 

• 1'rngrams can use all 64k nf HAM fur either program storage 
Or fur large mrinhers of variables anil arravs like \l2tttHHII 

- Full rinating 1'oinl arithmetic expression* nilli functions 

- SI IfltOI TINE and CAM, eominamls allows for structured 
programming and mure independent program development 

- lull sequential and direct access disk files allotted 
■ BASIC source and M.I.. output I/O to disk, tape nr mentors. 

COMMANDS SUPPORTED 



1. I/O -Commands 

CLOSE CLOADM CSAVEN DIR 

DSKOS FIELD FILES GET 

LSET OPEN PRINT PUT 



DRIVE DSKIS 
INPUT KILL 
RSET 



2. Program Control Commands 

CALL END EXEC FOR STEP 

COSUB GOTO IF THEN ELSE 

ON.. GO RETURN STOP SUBROUTINE 



NEXT 
ERROR 



3. Math Functions 
ABS ASC 

EXP FIX 

LOC LOF 

SGN SIN 



ATN COS CVN EOF 

INSTR INT LEN LOG 

PEEK POINT PPOINT RHD 

SQR TAN TIMER VAL 



4. String Functions 

CIIR5 INKEYS LETTS 

STRS STRINGS 

5. Graphic/Sound Commands 

COLOR CLS CIRCLE 

PCLEAR PCLS PLAY 

RESET SCREEN SET 

G. Other/Special Commands 
DATA DIM LI. I ST 

REM RESTORE RUN 

DST IBSHFT LREG 

REAL SREG SWP 



DRAtf 

PMODE 
SOUND 



MOTOR 
TAB 
PCOPY 
VECTD 



LINE PAINT 

PRESET PSET 



POKE 
VERIFY 
PMODD 
VECTI 



READ 

DLD 

PTV 



/f^\ 



Tape- $69.95 

Disk- $69.95 64k Htm iked 

Both- S74.95 

Add S4.00 Postage and Handling 

Send check or Money order. 

No C.O.D. . Utah res. add 5% tax. 



WasatchWare 

7350 Nutree Drive 
Salt Lake City, Utah 

84121 
Call (no I) '.M3--b263 



The Last Word 

for OS-9™ 

The ultimate in word processing 

power and convenience. 

• Pop-down menus accessible from 
mouse, joystick or keyboard. 

• Open files by just pointing to names from 
a directory menu. 

• Fast on-screen formatting. 

• 22,000 word on-line dictionary. 

• Use with WORD-PAK or it's own hires 
screen. 

• Move freely in files of any size, (even 
bottom to top). 

• Many other features. 



Unified Software 
525 S. Chestnut 
Cameron, MO 64429 
(816) 632-7892 




$49.95 

+$3.00 S/H 



OS-9 is a trademark of Microware and Motorola. 
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owner Lionel Peters, 40 Berkeley Road, 
Kinsbury. London NW9. He and Robin 
Hamilton are forming an OS-9 Users 
Group in England. They have success- 
fully transferred much of the National 
OS-9 Users Group Software Library to 
the Dragon format and both promise to 
answer any questions from Dragon 
Users. "We have been starved of pro- 
grams in the UK but there have been 
three exhibitions for 6809 machines in 
London. All of them have been very 
well attended, but most of the exhibi- 
tors have been selling games in BASIC 
and machine code." 

June 1985 Correction 

Darrell L. Hunter of Dayton, Ohio, 
spotted several missing lines in our 
listing of elapsed in the June issue. The 
changes begin after the thirteenth line. 
Here is the original and corrected 
version. Also note that Line 30 should 
read "fm:=fm-l" instead of "fh=fm-I." 

Original 

IFsf="S"THEN 
f= DATES 
END 
ELSE 

PRINT 

PRINT 

END 
END1F 



Wrong Input Parameter:' 
Use S(tart) or F(inish)" 



Corrected 

IFsf="S"THEN 

s= DATES 

END 
ELSE 

IFsf="F"THEN 

f= DATES 
ELSE 

PRINT "Wrong input parameters:" 

PRINT "Use S(tart) or F(inish)" 

END 
ENDIF 

Trig Library 

Our major feature this month was 
contributed by Jose R. Lebron of Rio 
Piedras, Puerto Rico. The Trig Library 
he shares was written by his good friend 
Al Buist, who placed it in the public 
domain before he passed away last year. 
Each function is presented as an indi- 
vidual listing. Note that Listing 14 
contains a header file, trigcons.h, that 
is used by several of the functions. It 
should be stored in the DEFS directory 
on drive /d 1 if you have set your Color 
Computer C Compiler up in the stand- 
ard manner. Listing 15, isicos.c, is a 
short test program that tests the func- 
tion "sincos." You can use it as a model 



Listing 1 : dabs 

/* dabs(x) - absolute value of a real number. 
Argument x must be a double. 

*/ 

double dabs(x) /* compute absolute value of a real number */ 

double x; 

t 

if ( X < 0.0 ) 

x - -x; 
return(x) ; 



Listing 2: nlog 

/* nlog(x) - natural logarithm of a real number. 

Argument, x, must be of type double. 

The value returned is of type double. 
*/ 

#define ENLOGVAL 44 /* x <= */ 
#define INDEX 9 /* number of precalculated constants 

for the nlog(x) power series */ 
tfdefine LN2 6 . 931471805599453e-01 
#define R21 4 . 76L9(J47619J34762e-J»2 
#define LN1_4375 3 . 629054936893685e-01 

double nlog(x) 

double x; 

( 

union ( 

double a ; 
char c[8] ; 
) z; 

double x2,ln; 

static double r[INDEX] - { 3 . 333333333333333e-01, 

PL 

S>1, 
01, 

02. 

02, 
n. 

02, 
02 ); 

register int n; 

int exp; 

extern int errno; 



1.428571428571429e 
l.llllimilllllle 
9.090909090909091e 
7.692307692307692e 
6.666666666666667e 
5.882352941176471e 
5.263157894736842e 



/* check for argument error */ 
if ( x <- 0.JJ ) { 

for ( n = ; n < 8 ; -H-n ) 

z.c[n] = JJxff; 
errno - ENLOGVAL; 
return(z.a) ; 
) 
/* check for values which are obvious */ 
if ( x = 1.0 ) 
return(0.0); 
/* reduce to range 0.5<=x<1.0, save power of 2 to adjust */ 
z.a - x; 

exp - ( z.c[7] & JJxff ) - 0x80; 
z.c[7] - 0x80; 
/* calculate nlog(x) */ 

if (z.a"— 0.5) /* bypass obvious value */ 

In - -LN2; 
else ( /* compute power series */ 

z.a *- 1.4375; /* shift range to relax the serie */ 

x - ( z.a - l.JJ ) / ( z.a + 1.0 ); 

x2 - x * x; 

In - x2 * R21; 

for ( n - INDEX - 1; n >- 0; --n ) 

In - ( In + r[n] ) * x2; 
In - ( In + 1.0 ) * x; 
In +- In - LN1_4375; 
) 
return(ln+exp*LN2) ; 



240 



THE RAINBOW April 1986 



More Incredible! 



Now there are THREE! 



QT20 68020 
QTPIus 68000 
68008 



mj 




TERMINAL NOT INCLUDED 



The QT 

The QT family of multi-user, multi-tasking 
computers supports from 4 to 20 users. 
Currently 9 models are available, ranging in price 
from $ 1,595 to $ 8,795. Models are available 
with the Motorola 68008, 68000 or the new 32 
bit 68020 CPU. CPU speeds range from 8 Mhz 
to 16.67 Mhz; RAM size from 128K to 2048K 
and ROM from 2K to 256K. All the QT's have 
a built in SASI interface and will support any 
hard drive. All QT's include OS9/68K, the 
multi-user operating system with Basic, utilities, 
word processing and spreadsheet programs. The 
QT's take up less than one cubic foot of space. 

The QT series: 

The basic QT has 128K RAM, 68008 CPU, 8 
Mhz and will support 4 users and 2 printer ports. 
The single floppy version is priced at $ 1,595 
(Retail $ 2,095) and is field upgradeable to 512K 
RAM and 20 Meg hard drive. This system sells 
for $2,995 (Retail $3,595). 

The QT Plus series: 

This QT has 512K RAM, 68000 CPU, 10 Mhz 
and supports 4 users and 2 printer ports. The 
single floppy version is priced at $ 2,095 (Retail 
$ 2,695) and is field upgradeable to 1024K, 8 
serial ports and hard disk. The QT Plus 4 user 
system with 512K RAM and 20 Meg hard drive 
is priced at $ 3,495 (Retail $ 3,995). The 5 1 2K 
upgrade costs $ 395 (Retail $ 495). 




The QT 2 



This QT has 2048K RAM, 68020 CPU, 12.5 
Mhz and supports 4 users and 1 printer port. 
This system can be expanded to 20 users with 
16.67 Mhz. The QT 20 with a 20 Meg hard 
drive sells for $ 7,495 (Retail $ 8,795). 

QT Price List 1986 



CONFIG. 

QT 1 Drive 
QT 2 Drives 
QT 20 Meg HD 



DIRECT RETAIL 



$1,595 
$1,750 
$2,995 



QT+ 1 Drive $2,095 

QT+ 2 Drives $2,250 

QT+ 20MegHD $3,495 

QT20 20MegHD $7,495 



$2,095 
$2,295 
$3,595 

$2,695 
$2,895 
$3,995 

$8,795 



OS9/68000 SOFTWARE 
Available Now 

Sculptor $995 ($695 for QT owners) 

Microware C $400 

Microware Pascal $400 Add 3.50 Shipping 
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for programs to tesl the other functions. 
Here is a description of the functions 
presented. 



dabs(x) 


— computes the absolute 




value of a real number 


nlog(x) 


— computes the natural 




logarithm of a real 




number 


dint(x) 


— returns the integer, 




floor, of a real number 


dfix(x) 


— returns the integer part 




of a real number 


sin(x) 


— returns the sine of a real 




number 


dsign(x) 


— returns the sign of a real 




number 


arctan(x) 


— returns the angle whose 




tangent is 'x' 


sqrt(x) 


— returns the square root 




of a real number 


reduce(&a 


x) — reduce an angle to the 




first revolution 


dsqr(x) 


— returns the square of a 




real number 


sincos(x) 


— computes the sine/ co- 




sine series 


cos(x) 


— returns the cosine of a 




real number 


exp(x) 


— returns the exponential 




function of a real 




number 



Two Handy Assembly Language 
Utilities 

Stephen Goldberg of Bethpage, New 
York, who made the "dollar per utility" 
offer on the Utilipak utilities in the 
February 1986 column, is back again 
with two assembly language listings we 
hope you will find useful. "1 saw these 
utilities advertised in a package from 
Frank Hogg, but didn't need the rest of 
the programs, so I decided to try to 
write them myself," Goldberg said. 

UnLoad (Listing 17) gives you a way 
to unlink a module or group of modules 
by typing a single command line. Unlike 
the UnLink utility in the standard OS- 
9 utility command set, UnLoad ensures 
the modules are removed. It gets the job 
done by repeatedly calling the OS-9 
fSunlink system call — up to 25 times 
— until the system returns an error. 

Goldberg's other listing, Rep (Listing 
16), is really handy because it lets you 
execute OS-9 utilities designed for 
single variables repeatedly by taking its 
input from the standard input path. For 
example: 

OS9: d ! rep list $*.c>/p 



Listing 3: dint 

/* dint(x) - integer, floor, of a real number. 
Argument x must be a double. 

*/ 

double dint(x) 

double x; 

( 

double a.dflxQ; 

a - dfix(x); 

if ( ( x < JJ.JJ 1 && ( a !- x ) ) 

a — l.jJ; 
return(a) ; 



Listing 4: dfix 

/* dfix(x) - integer portion of a real number. 
Argument must be a double. 

*/ 

double dfix(x) 

double x; 

( 

union ( 

double a; 
char c [8] ; 

) z; 

register int n; 

lnt exp,raask-0xff ; 

z.a - x; 

exp - ( z.c[7] & JJxff ) - JJx8jJ; 
if ( exp >- 56 ) 

return (x) ; 
if ( exp <- 9 ) 

return(0.fO ; 
for ( n - 48; n > exp; n -- 8 ) 

z.c[n»3] - 9; 
for ( n +- 8; n > exp; --n ) 

mask «- 1; 
z.c[n»3] &- mask; 
return(z. a) ; 



Listing 5: sin 

/* sin(x) - sine of a real number. 

Argument must be double. 

Argument must be in radians . 
*/ 

•include <trigcons.h> 

double sin(x) 
double x; 
( 

double _sincos(); 

reduce (&x.TWO_PI); 
return (_sincos(x)) ; 



Listing 6: dsign 



/* dsign(x) - sign of a real number. 

Argument x must be double. 
-l.pl is returned if x is negative. 
1.(3 is returned if x is positive. 
(J.JJ is returned if x is zero. 
*/ 

double dsign(x) 
double x; 
( 

if ( x — 9.9 ) 
return<x) ; 

ie < x < 9.9 ) 

return<-l.£0 ; 
return(l.JJ) ; 

) 
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IfPMTAD 



THE SCULPTOR SYSTEM 

Sculptor combines a powerful fourth generation 
langauge with an efficient database management 
system. Programmers currently using traditional 
languages such as Basic and Cobol will be amazed at 
what Sculptor does to their productivity. With 
Sculptor you'll find that what used to take a week can 
be achieved in just a few hours. 

SCULPTOR INDEPENDENCE 

Sculptor is available on many different machines and 
for most operating systems, including OS9 6809 Level 
II and OS9/68000, MS DOS, Unix/Xenix and VMS. 
The extensive list of supported hardware ranges from 
small personal computers, through multi-user micros 
like the QT, up to large minis and mainframes. 
Sculptor is constantly being ported to new systems. 

APPLICATION PORTABILITY 

Mobility of software between different environments 
is one of Sculptor's major advantages. You can 
develop applications on a stand-alone PC or the new 
Level II CoCo and - without any alterations to the 
programs - run them on a large multi-user system like 
the QT. For software writers this means that their 
products can reach a wider marketplace than ever 
before. 

FHL CHOOSES SCULPTOR 

We choose Sculptor for the development of 'Mint', 
our Dental Office Management system because we did 
not want to restrict our market for it and because 
Sculptor is fast and easy to use. We started 
development in 1983 and since then Sculptor has gone 



thru constant improvement and is now running on a 
very wide array of computers. We are very pleased 
with Sculptor and intend to stay with it from now on. 

I LIKED IT SO MUCH I BOUGHT 
THE COMPANY! 

That's what the ad says for the popular razor. I did 
like it that much but they wouldn't sell, so we did the 
next best thing. We became the distributor for Sculptor 
in the US. Because we use it each and every day we 
were the natural choice. Everyone who has bought 
Sculptor from us likes it, and even more important 
they all use it. How many languages do you have on 
the shelf that you no longer use? Sculptor is the ONLY 
language I use for applications, make it yours today. 

THE BOTTOM LINE 

OS9 Level II 6809 and OS9/68000 $995.00 * 
MS-DOS (PC-DOS and compatibles) $595.00 

Call for prices on larger minis and mainframes. 
* QT versions of Sculptor are only $695.00 

NOTE: New Level II CoCo Owners: At this writing 
the new CoCo does not exist, however we are of the 
opinion that Sculptor will run on this new machine. 
Call us after it does exist for confirmation of Sculptor 
operation. 
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This command line will pipe a listing 
of all files — one per line — in the 
current data directory into the OS-9 list 
utility. Each time 'd' sends out a line to 
standard output, it appears as the 
standard input to "list." OS-9 then 
routes the standard output from "list" 
to the printer. Since Rep takes its input 
from the standard input path, it may be 
driven from the keyboard, a file or a 
pipe. 

In the course of writing Rep, Gold- 
berg discovered a bug in the documen- 
tation of the Fork and Chain system 
calls in the Color Computer OS-9 
manuals. When you make these calls, 
the 6809 Y-register must contain the 
parameter size in bytes. The manual 
says pages. Beware! 

Computers are more fun when they 
make noises. Sometimes. Now, thanks 
to Fred Sawtelle of Huntsville, Texas, 
you can make your Color Computer 
beep and scream. The three possible 
command lines are: 

OS9: snd (ENTER) 
OS9: snd u (ENTER) 
OS9: snd d (ENTER) 

The first line will simply generate a 
short beep. The second produces a 
sound with a rising pitch. The third 
gives you a sound with a falling pitch. 
Since you'll probably want the sound 
generated instantly, you will probably 
want to leave the module loaded in 
memory. If you do this, you won't have 
to wait for it to load from your current 
execution directory each time you run 
it. 

Next Month 

In May we'll have another special 
treat for C programmers. 1 spoke with 
Frank Malancy, author of the share- 
ware program PriiuForm we menti- 
oned in the February 1986 column, and 
he has agreed to let us publish it in 
"KISSable OS-9." It is an excellent 
example of a real application program 
in C. He also gave me some tips that will 
help you speed up your C program 
compiles. If you can't wait, you can get 
this shareware from Frank for S15 at 
8708 Mink St.. SW. Pataskala, OH 
43062. He'll send you the source code, 
the compiled object code and a 28-page 
manual — on the disk. 

We'll also take a look at an interesting 
Winchester disk project being com- 
pleted by Alan Reinhart in Royersford, 
Pennsylvania, and a few more short, 
beginners' C programs from Dennis J. 
Duke in Bessemer, Alabama. □ 



Listing 7: arctan 

/* arctan(x) - angle, in radians, whose tangent is x. 
Argument, x, must be of type double. 
The value returned is* of type double. 
The value returned range is: 
-pl/2 <- arctan(x) <- pi/2. 



*/ 

•define INDEX 

#define F27 



12 /* table size for power serie calculation */ 
-3 . 703703703703704e-02 



#include <trigcons.h> 

double arctan(x) 

double x; 

( 

double a, r - 0.0, x2, dabsQ; 

register int n; 

int s - ; 

static double f[ INDEX] - ( 



-3.333333333333333e 

-1.4285714285714296 

l.llllllllllllllle 
-9.09(J909090939B91e 

7.692307692307692e 
-6.666666666666667e 

5.882352941176471e 
-5.263157894736842e 

4.761904761904762e 
-4.347826086956522e 

4.aa0aaBoaa3aaaaae 



01. 

01. 

01. 

■pi. 

02. 

S>2. 
•02. 
■02. 

02, 
■02. 
•02. 
-02 ); 



/* determine sign of result */ 
if ( x < 0.0 ) ( 

x - -x; 

s - -1; 
} else if ( x > 0.0 ) 

s - 1; 
/* if angle > pi/'4, calculate arcot(x) serie */ 
if < x > 1.0 ) ( 

x - 1.0 /x; 

r - -HALF_PI; 

s - -s ; 
) 
/* relax the serie to accelarate convergence */ 
if ( x > TAN15 ) ( 

x - ( SQRT3 * x - 1.0 ) / ( x + SQRT3 ) ; 

r +- SIXTH_PI; 
' ) 
/* calculate arctan(x) */ 

if ( dabs(x) <- 1.0e-09 1 /* check for very small values */ 

a - x; 
else ( /* compute power serie */ 

x2 - x * x; 

a - x2 * F27; 

for ( n - INDEX - 1; n >- 0; --n } 
a - ( a + f[n] ) * x2; 

a - ( a + 1.3 ) * x; 
) 

a +- r; 
if ( s 1 ) 

a - -a ; 
return(a) ; 



) 



Listing 8: sqrl 



/* sqrt(x) - square root of a real number. 
Argument x must be a double. 

*/ 

#define SOLVE 1 

•define FALSE 

•define TRUE 1 

•define ESQRTNEG 43 /* negative argument for sqrt */ 

double sqrt(x) /* compute the square root of x */ 

double x; 

( 

double b.dabsQ; 
union { 

double a; 
char c[8] ; 
) x0; 
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DynaStar 



DynaStar is our most popular word processor for OS9. 

DynaStar works with O-Pak and WordPak I and II. DynaStar 

will also work with Level II OS9, which means that an 

upgrade will be available for the new CoCo that runs Level 

II OS9. DynaForm, the text formatting part of DynaStar 

has Mail-Merge, an extra cost option on other word 

processors. 

A terrific buy at ONLY $49.95 each. 

Add $3.50 shipping 



Cross Assemblers 

Create 68000 code on your CoCo!! 

At these prices it would be worth it just for the 68000 
alone, but we also give you the ability to work with ihc 
1802/5, 6800/01/11/03, 6804, 6805, 6809, 6502/3, 
8080/5 8048, 8051, Z80, and the 68000!!! Not only that, 
we give you the COMPLETE SOURCE too! (In C) 
All this for ONLY $200.00! Whew! 

Add $3.50 shipping 



O-Pak 



The first OS9 product and still our most popular! 

NEW!!! COMPLETE SOURCE for O-Pak now 
available!!! (In C and assembler) 

For those of you who always wanted to know how wc did it, 
here is your chance. The complete source for O-Pak is now 
available for only $70.00. Of course, you have to show 
that you own a copy of O-Pak to get it, or buy both O-Pak 
and Source for ONLY $100.00. 
As always O-Pak is ONLY $34.95. 

Add $3.50 shipping 



Word-Pak II and UVD 

If you are not using a Word-Pak II, you must be going 
blind by now. Word-Pak II gives you a true 80 column 
display like the 'big boys' have. The price includes the 
Basic software but the OS9 software is 17.95 extra. Get 
your Word-Pak II today ONLY $134.95. 
To use the full potential of the Word-Pak II you will need a 
video driver. UVD is the best we have seen because it 
works with all versions of the CoCo and requires NO 
soldering! ONLY $29.95 

Add $3.50 shipping 



Disk Drives for your CoCo 

You can buy cheaper drives for your CoCo but you can't buy 
better! Even Tandy sells cheaper drives than we do. We 
don't want to lower our standards so we still sell the best 
drive for your money. We only sell double sided drives in 
the best case we could find with a power supply that won't 
quit. We use the best controller on the market (The new 
J&M) the best drives (Tcac) and our case. 

All drives are 1/2 height, double sided and our cases will 
hold two drives. 

Drive DS 40 $339.00 add $120 for drive 1. 
Drive DS 80 $349.00 add $130 for drive 1. 

SPECIAL Now our drive systems include BOTH RS DOS 
ANDJDOS!!! 

RS Disk Basic ROM 1.1 $20.00 Call for bare drive and 

custom cable prices. 

Add $5.00 shipping 



Brian Lantz's 



UniCharger 



With UniCharger on you system you will think that you're 
running Unix. UniCharger adds 29 commands to your basic 
system that really makes it shine. This is Brian Lantz's 
first major project for OS9 and it showed the rest of us what 
he can do. Turn your computer into a real powerhouse with 
UniCharger. ONLY $150.00 and worth it! 
Add $3.50 shipping ' 



UtlllX by Harry Fair 

Harry was deeply involved in the development of ABasic 
and has done considerable work behind the scenes for OS9. 
Now we have Utilix, 15 utilities that work like their Unix 
counterparts, cat, code, crypt, diff, display, grep, lower, 
upper, pack, unpack, pr, sort, tail, time, and wc. All these 
for ONLY $49.95! 'diff alone is worth the price! 

Add S3.50 shipping _ 



SDisk & Bootfix 

Replace your Tandy disk driver module with one that works 
with all drives. You can change individual step rates to 6ms 
and even use standard OS9 format. A must for double sided 
drive users. Includes its own format command. ONLY 
$29.95, $35.95 with Bootfix. (for booting from double 
sided drives) Add $3 50 snippin g 



OS9 BOOKS 

OS9 is a iradwrk of Mia WW t Inc. 

Complete Rainbow Guide to OS-9 $18.95 
Dasic09 Tour Guide $18.95 
Official OS9 Manual Set $40.00 

Find out what Tandy left out. 
RMA Manual $25.00 

Use the relocating assembler that you get with Tandy's C. 
„ Add S3.50 shipping 
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int err - FALSE; 




•define INDEX 18 /* size of table for power series */ 


extern int errno; 




•Include <trigcons.h> 


If c x — f.p ) 




double _sincos(x) 


return(x) ; 




double x; 


if ( x < 0.0 ) ( 




( 


err - TRUE; 




static double f[ INDEX) - ( TW0_PI, 


x - -x; 




-1.973920880217872e+01. 


errno - ESQRTNEG; 




-4.134170224039976e+01, 


) 




6.493939402266829e+01. 


x0.a - x; /* set Initial approximation */ 




8 . 160524927607504e+01 , 


xjj.cp] _ ( ( x0.c[7] » 1 ) & 0x7f ) + 64; 




-8.545681720669372e+01, 


b - x / x0.a; 




-7 . 670585975306138e+01 , 


do ( 




6.024464137187665e+01, 


X0.a - ( X0.a + b ) * 0.5; 




4.205869394489764e+01, 


b - x / xjJ.a; 




-2.642625678337439e+jJl, 


if (dabs( X0.a - b ) < ( (J.5e-16 * b )) 




-1.509464257682299e+01, 


break; 




7.903536371318467e+00, 


) while ( SOLVE ); 




3.819952584848281e+00, 


if ( err ) 




-1 . 714390711088672e+00 , 


x0.a - -X0.a; 




-7 . 181223017785003e-01 , 


retum(x0.a) ; 




2.8200596845579Ue-01, 


) 




1.042291622081398e-01. 
-3.638284114254566e-02 ); 


Listing 9: reduce 




double s,x0,x2; 
register int n; 


/* reduce(&a,r) - reduce angle to first revolution. 




int l.q; 


&a - address of a double variable 






containing the angle. 




/* reduce to the first revolution */ 


r - size of a revolution. 




while ( x > l.(J ) 


The angle and the size of a revolution 


x — 1.(1; 


must conform in units, i.e., rads. 


etc. 


while ( x < 0.0 ) 


*/ 




x +- l.JI; 


reduce(a.r) 




/* check for values which are obvious */ 


double *a,r; 




if ( ( x — 0.0 ) || ( x — 0.5 ) || ( x — 1.0 ) ) 


( 




return(0.0) ; 


double dfix(); 




/* reduce to the first quadrant */ 

if ( x > 0.5 ) l /* set sign of result */ 


*a /- r; 




q - -1; 


*a — dfix(*a); 
) 




x - l.(J - x; 
) else 


Listing 10: dsqr 




q - 1; 
if ( x > (J. 25 ) 
x - (J. 5 - x; 


/* dsqr(x) - square of a real number. 




/* check for other obvious values */ 


Argument x must be double . 




if ( x — (J.25 ) /* PI/2 */ 


*/ 




retum(q) ; 


double dsqr(x) 




/* reduce to range -> PI/4 */ 


double x; 
( 




if ( x < (J. 125 ) ( /* set for sine series */ 
n - INDEX - 2; 


retum(x*x) ; 
) 




1 - i>; 

) else ( /* set for cosine series */ 
n - INDEX - 1; 


Listing 11: sincos 




l-l; 

x - 0.25 - x; /* PI/2 - x */ 


/* sincos(x) - calculate the sine/cosine series. 




) 


This function is internal to sin(x)/cos(x) , 


/* calculate sin(x) or cos(PI/2-x) series */ 


but can be used by routines in other 


files. 


if ( x > l.JJe-09 ) ( 


*/ 




x2 - x * x; 



OS-9 SOFTWARE/HARDWARE 



SDISK— Standard disk driver module allows the use of 35, 40, 

or 80 track double sided drives with COCO OS-9 plus you can 

read/write/format the OS-9 formats used by other OS-9 systems. 

$29.95 

SDISK + BOOTFIX— As above plus boot directly from a double 

sided diskette $35.95 

FILTER KIT #1 — Eleven "wild card" utilities plus disk sector edit 

program. $29.95 

FILTER KIT #2— Macgen + 10 others. $29.95 

HACKER'S KIT #1— Disassembler+ others. $24.95 

PC-XFER UTILITIES —Utilities to read/write and format ss 
MS-DOS'" diskettes on CoCo under OS-9. $45.00 (requires SDISK) 
SKIO— hi res screen driver for 24 x 51 display; does key click, 
auto repeat, boldface, italics; supports upgraded keyboards and 
mouse. With screen dump and other useful programs. $29.95 



CCRD 512K Byte RAM DISK CARTRIDGE— Requires RS Multi- 
pak interface, used with driver software below provides 1/2 MB 
OS-9 RAM disk. $259.00 (Prices subject to change). 

CCRDV OS-9 Driver software for CCRD— $20.00 



All disk prices are for CoCo OS-9 format; for other formats, 
specify and add $2.00 each. Order prepaid or COD, VISA/MC 
accepted, add $1.50 S&H for software, $5.00 for CCRD; actual 
charges added for COD. 

D.P. Johnson, 7655 S.W. Cedarcrest St. 
Portland, OR 97223 (503) 244-8152 

(For best service call between 9-11 AM Pacific Time.) 

OS-9 Is a trademark of Mtcrowaro and Motorola Inc. 
MS-DOS Is a Imdnmark ol Microsoft. Inc 
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if ( 1 ) 

x0 - x2; 

else 

*9 - x; 

s - fin] * x2; 

for ( n --2; n > 1; n —2 ) 

s - ( s + f[n] ) * x2; 
s - ( s + f[n] ) * xjJ + 1; 
) else 

if < 1 ) 

s - 1.0; 
else 

s - x * f[0); 

/* return the sine of the angle */ 

if ( q < ) /* set sign of result */ 

s - -s; 
retum(s) ; 

) 

Listing 12: cos 

/* cos(x) - cosine of a real number. 

Argument x must be double. 

Argument x is In radians. 
*/ 

•include <trigcons.h> 

double cos(x) 
double x; 
( 

double slncosO '• 

reduce (&x,TWO_PI) ; 
return(_sincos(0.25-x)) ; 



Listing 13: exp 

/* exp(x) - exponential function of a real number. 

The argument, x, must be of type double. 

The function value returned Is of type double. 

If x<-88, the function returns zero(0.0). 

If x>88, the function returns the largest number. 
*/ 

•define INDEX 15 /* number of factors for power serie */ 
•define LN2 6.931471805599453e-01 
•define L0G2E 1.442695040888963 
•define F17 -2.811457254345521e-15 
•define E 2.718281828459045 
•define E_I 3.6787944U714423e-jJl 



double exp(x) 
double x; 
( 

static double f[ INDEX] - { 



5.000000000000000e-01. 
-1.666666666666667e-j>l, 

4.166666666666667e-jJ2, 
-8.333333333333333e-03, 

1.388888888888889e-03, 
-1.984126984126984e-04, 

2 . 4801587301587306-05 , 
-2.755731922398589e-06, 

2.755731922398589e-07, 
-2.505210838544172e-08. 

2.087675698786810e-09. 
-1.605904383682161e-10, 

1.147074559772972e-ll, 
-7.647163731819816e-13, 

4.779477332387385e-14 ): 



union ( 

double e; 

char c[8]; 
) t; 

double dint(); 
register lnt n; 
int m; 

/* check for obvious values */ 
if ( x — 0.0 ) 
return(1.0) ; 
if ( x — 1.0 ) 
return(E) ; 

if ( x 1.0 ) 

return(E I) ; 



2 DISK DRIVES 

WITH DISK CONTROLLER 
ONLY $279 



LIMITED SUPPLY 

Price includes Iwo 40 track, double densily 
drives with case, power supply, cable and disk 
controller by HDS or J&M (specify RS or JDOS) 
OPTIONS; 

ADOS ROM (lor HDS) ADD $30 

A/B Switch Lets you switch between ROMS 
(lor HDS only) ADD $10 

J&M switchable controller with JDOS 
andDnnteroorl ADD $30 

J&M switchable controller with RS and JDOS 
and printer port ADD $40 

DISK CONTROLLERS 

HDS DISK CONTROLLER with RS ROM 

(same options as above) .ONLY $99 

J&M SWITCHABLE DISK CONTROLLER 

with JDOS & PRINTER PORT ONLY $129 

J&M ORIG. CTRL. w/JDOS ONLY $99 

REAL TIME CLOCK 

Full leatured. yet very easy to use. RTC-10 is a 
quartz-based. Time/Date clock contained in a 
compact ROM case with replaceable baltery 
backup Compatible with any Color Computer I 
or II with or without a Radio Shack or any other 
Multi-Slot unit. 

Compatible with all known plug-in packs To 
use it with another plug-in pack without using a 
Multi-Slot, order the Y-cable below. 
Completely assembled, tested and ready to plug- 
in and use, with programs included to set. read, 
and display the Time/Date on the screen or 
print it on your printer 
RTC-10 NOW $49.95 

ROM/PROJECT CASES 

3 piece unit with hardware NOW $5.00 

PC BOARDS tor 27XX type proms lor above case 
NOW $3.75 

CALL FOR QUANITY DISCOUNTS 

COCO CABLES 

All have GOLD plated contacts, 

MULTI-SLOT EXTENDER CABLE - 40 conductor, 

6" to 15" (specify). 

STOP THOSE LOST CONTACT BLUES — 

ONLY $21.95 

Y-CABLE • 40 conductor, 1 It long Lets you 
connect the RTC-10 to a disk, voice or any other 
plug-in pack. 
ONLY $26.95 

DISK PACK EXTENDER CABLE • 40 conductor, 

2 It. long Not lor use with Multi-Slot. 

ONLY $22.95 

DISK DRIVE EXTENDER CABLE ■ 34 conductor, 
2ft. long ONLY $21.95 

CUSTOM FLAT CABLES • Call 

Custom Computer Products 

6 Dogwood Court 

Goshen, N.Y. 10924 f*f*D 

(516) 783-7426 

ADD J3.00 PER ORDER FOR SHIPPING t HANDLING 
ADD ie.00 FOR S«H ON DISK DRIVE ORDERS 
FOP. C.O.D. INCLUDE AN ADI110NAL S3. 00 
N.Y. RESIDENTS MUST INCLUDE SALES 1AX 
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* LOCAL * IN * LOS * ANGELES • 




Happy New Year! 

—Tandy DRO System— 
#26-3129 — $159.95 + S & H 

Qnadratar? fkn Madale B 

Piezo Electric — .11 Watts 

Fits IN Coco — No Surge 

5 CFM — Low Noise — UL 

$20.95 -. 2.50 S & H 

6809 CPU Chip — $ 17.95 

RSDOS 1.1 Disk — $ 22.95 

Extended Basic 1.1 — $ 24.95 

Gold Rom "Y" Cable — $ 22.95 

We Stock Amdek Amdisks! 

VIP Integrated Library @ - 10% 

DynaCalc (RSDOS) @ - 10% 

Data Pack II (The Best Term.) -10% 

Business Software @ - 10% 

E.D.C. carries the most 

complete line of software 

and hardware in the market. 




•232 RemotePlus* i„ o.m o»™ 

v Requiret RS232 Pak or PBJ 2SP 
\* Remote Terminal Program stt 

,bff» 



flain' 



i^" 



>*H 



ls sue 



.' Parallel to Keyboard 

k« No tort or Garbled Data Set* 8 " 1 ' 

.-" Error Trapping ^ Software Clock 

s Disable Break Key *■ Inkeyt Support 

•* New Terminal Program 

^ Conversation Mode 

*■ All Ext. & Disk Commands 

•"■ 20 Commandi Added 

*■ Perfect for BBS 

• 4 Versions Inch Ext., 1.0,1.1 & JDOS 

^ Much More - Uses 4K 

$24.95 + 2.50SAHia.. M 

Hayes 300 Modem — $175.00 

Amdek & 1 + Cntrl. — $269.95 

SALE ON QUALITY MONITORS 



RAINBOW 

CERTIFICATION 
SEAL 
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COLOR & MICRO COMPUTERS 

Software • Hardware • Support 

Educational * Small Business * Games 

VOICE (213) 251-6801) 10 A.MJJ P.M. 

BBS (213) 258-0640 24 HBS. 

300 and 1200 Baud 

Extended Hours+Call before coming. 

6130 YORK BOULEVARD 

POST OFFICE BOX 42718 
LOS ANGELES, CA. 90042 

NAME (aUXltft FAVABLE TO E.B.C. 



/* check for range of argument */ 

If ( x > 88.(1 ) ( /* return largest value */ 
for ( n - 1 ; n < 8 ; ++n ) 
z.c[n] - (Jxff; 

t.cl9i - P*7f; 

return(z .e) ; 
) else 
if ( x < -88.(1 ) 

return((J.(»; 
/* reduce range of x and save exponent for adjustment */ 
m - dlnt(x*LOG2E) + 1; 
x - -x + m * LN2; 
/* calculate exponential function */ 

if ( x < l.JJe-JW ) /* check for very small values */ 

z.e - 1.(1 - x; 
else ( /* compute power serie */ 

z.e - x * F17; 

f or ( n - INDEX - 1; n >- 9; : -n ) 
z.e - ( z.e + f [n] ) * x; 

z.e - ( z.e - 1.(1 ) * x + 1.0; 
) 

z.c[7] +- m; /* adjust exponent */ 

return(z.e); /* return exp(x) */ 

) 



#define 


PI 


#define 


TWO PI 


#define 


TWO PI I 


#deflne 


HALF PI 


#define 


SIXTH PI 


#define 


TAN15 


#define 


SQRT3 


#define 


D TO RAD 


#define 


RAD TO D 


#define 


D REV 


#define 


G REV 



Listing 14: trigcons.h 

3.141592653589793 

6.283185307179586 

1 . 59154943JJ918953e-(Jl 

1.57(1796326794897 

5.235987755982989e-(Jl 

2.679491924311227e-(Jl 

1.732(J5(J8|J7568877 

1.7453292519943306-1*2 

5.7295779513|J8232e+JJl 

360. JJ /* degrees in one revolution */ 

400.0 /* grads in one revolution */ 



/* l/2pi */ 
/* pi/2 */ 
/* Pi/6 */ 
/* tan(pl/12) 
/* sqrt(3) */ 
/* pi/180 */ 
/* 180/pl */ 



Listing 15: tstcos.c 



#define TRUE 1 
#include <trigcons.h> 

main() 
( 

double x,_sincos(); 

pffinitO; 
while (TRUE) ( 

scanf("%F",&x); 

reduce (&x,D_REV) ; 

printf("%.15e\n",_sincos(x+0.25)); 

printf("%.15e\n" ,_sincos(0.25-x)) ; 

printf("%.15e\n",_sincos(x)); 
) 
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Listing 16: Rep 
























1 1 


* 




—\ uei even then you couldn't 


II 




MW^ access as many CoCo 




* SEP - COPYRIGHT (c) 1985 by S.B.GOLDBERG 




fm^L goodies as you gel in 




* 




M m Public Domain Sollware 


■ 




Copying Company's special pre- 


1 


* Permits repetitive execution of utilities written for 




selected package deals Check 




* single variables. Variables are accepted from the 




il out: 




* standard input path (keyboard, pipeline or redirection) 




^k TOOLS— 4 disks. 62 Hies 


| 


* and replace '$' in command line. 




1 Includes Basic 64, BScarch , 


fPjBfc, 


* 




.*. DtskTesl. DOS64. DSBoot. | 
Prinl-DIR. Recover. Romback. ' 


wi 


* EXAMPLES: 




Romfln. ScmSl. Backup. Unlock. . 


^ mm 


* dlrep copy $ /dl/backup/S 




MullBack. Spell & Fix Ftee Ware. 
Manual, Diet. Build, List. Append. 
Addword. Tcletorm, MTetm, Ket 


SB 


* Copies all files in the current data directory to 




w 


* the directory 'BACKUP' on drive /Dl. 




mil. Supertorth,***^ IP 
16KFotth. Editor. & m A* f^ 


->. 


* 




32K Forth, Manual. MV 


9 


* rep ident $ <textfile 






W^ 


* Displays ident for all filenames listed in 'textfile'. 

* 




tf— GAMES— 4 disks. 59 files. 


JLfe 




^T_ GAMES IN BASIC include | 


^^ 




tmat Gunner. I.Ke, Poker, Bio ' 


i J 


* rep attr $ -pr 




rythm, Hangman, Go, Fractal, ■ 




* Removes the 'public read' attribute from all filenames 




World 3D Louctrck. Nude, Star- 
trek. Reverse, Scramble. Pizza 


35 


* entered from the keyboard. Make no entry and press 




FAST MACHINE LANGUAGE 


^i 


* <ENTEP> when finished. 




Pong, Squash, Blockade. Germ, 
Grid. 3D-Tictac. Zerog SIMULA- 




* 




TIONS & ADVENTURE: Cave. 




ifpl 




Wargame, NORAD.£f^ mm 
arcoyle, KlngTUT.^~# IW i 


mm 


use /dJJ/defs/os9defs 
endc 
* 




Civllwar. Icewar tSfV 


^ 




*— MUSICA MANUAL & 


TJ 


mod len ,name , prgrm+ob j ct , r eent+1 , entry , ds iz 




^L UTILITIES— 4 disks, 80 
%J llles. Includes: Addplay. 


w 


* 




Boogie, Circus, Clowns, Hyden, 




params rmb 2(3(J module parameters 




JBGood. Sonata3, Straw, #3 Foggy. 
Funeral, Hardday, Jopltn, Peanuts, 




modaddr rmb 2 address of module name 




Rock. Stranger. Camelol, Dia- 




pramaddr rmb 2 address of parameters 




mond. Fanlasyll.Greengras.Star- . 






Wars. Superman. RootBeer, Ghos- 




head rmb 2 module header address 




Bust. Mash. 201. Steltno, Balstar. 




varble rmb 1^9 input buffer 
rmb 2(3)3 stack 




Messiah, Raiders. «£ gfr mm 
Watermus. Toc»l»"^«W 
cata, Fuge. etc ^Mf%Jw 1 




rmb 2(3(3 'rep' parameters 








dsiz equ 
* 




JU GRAPHICON PICTURES— l 






LU. these pictures demonstrate 






K the ability ol the Color 




name fcs /rep/ 




Computer lo produce exciting art. 




fee /(c) 1985 S.B.GOLDBERG/ 




Graphicon need- £^^k fm* 
ed Modllyable '9~AW tW 




* 




4 disks. mm%w 




entry stx modaddr save address of module name 






w 


iWAHAtHiH k-k-k-irk * * * * A * A * * ***** 




F» PICTURE DISKS -2 disks. . 
*^k 35 files. Tum your CoCo into 


^ 


* 




%M a Mac Includes. McPalnl. 




* LOAD MODULE 




Icons, Epson'DRV. Animate. Bal- 
loon. Hebrew. Typing, RSDMP' 




* 




DRV. Animation Disk includes Ro- 


Mad 


clra any type or language 
pshs u save U register 




tate, Shuttle, »fc ■<■ f"» 
Triangle. Glass. Star. N» ■ t^ 
Baseball. Donduck. ^L%9 


- 


os9 fSload load module 








bes out exit with error 




A~" FOR THE 0S9 OPERATING 


r"rt 


stu head save header address 




V1| SYSTI i ■ 20* 
%# files. Includes programs 


W 


puis u retrieve U register 




from BASIC09. ASM and C: 




stx pramaddr save address of module parameter 




Finance, Clk, MathDomo.c. 
Bounce c. rafDemo.c. Ptimcs.c, 




kkkkkkkh k~kkk-k-k-kttrk-k-1rk-k-1tic/ck-k-trtr* 




WC.c. Six text ad- *b -m mm 
ventures for 0S9 «J» ■ *^ 




* 






* READ VARIABLE FROM STANDARD INPUT PATH 




operating system. ^Lt^P 




* 




7S" $ 80 




getvar clra standard input path 






ldy #1(3(3 maximum variable length 




m M30 value: ^dw ^AW 




leax varble, u variable buffer address 








os9 iSreadln read variable 




ORDERS: Include full name, com- 




bes error branch on error 




plete address, phone with area 
code (important!) Specify for 




empy #1 <ENTER>? 




CoCo Include S3 P'H per ord. 




beq noerr yes, terminate 'rep' 




Phone: credit cards only. Over- 






seas add 80c per disk U.S. post- 
age, N.Y. include 8.25% lax. pre- 








* 




paid only. Canada* postal money 




* CREATE MODULE PARAMETERS 




orders. US S only. We also have 
P.D. Software lor Ms Dos. CP/M. 






* 




Catalogs 5a We sell 2 Drive 






tfr u,x address of parameter buffer 




Ms Dos portable 512k. 5895. We 
are a copying service providing 






ldy pramaddr address of parameters 




programs from Users Groups, cor- 






loop Ida ,y+ get param. character 




rections solicited Please include 
52.40 handling with any returned 






empa #'$ dollar sign? 




(postal mangled etc.) disk. Con- 






beq putvar yes , set variable 




tent not watranteod 






sta ,x+ no, save in parameter buffer 










empa #$0d end of line? 

beq doit yes, execute the module 




The Public Domain Softwir 


e 






Copying Company 

(est. 19831 






bra loop no, get next character 




33 Gold Street. New York City 1003 


B 




putvar pshs y save Y register 




212/732-2565 






leay varble, u variable buffer address 










varloop Ida ,y+ get variable character 
empa #S(3d done? 
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CALLTOLL FREE 
1-800-351-3442 

IN PA CALL 1-717-322-7700 



"Where Prices are Born. Not Raised." 

WHITE HOUSE 
Ffl^COMPUTER 

P.O. Box 4025. Williamsport. PA 17701 
House Specials 



Amdek Color 300 w/video driver 199.95 

Flip-n-File 50 w/lwo free boxes of ss/disks 28.95 
2700 sheets ol 20 lbs Lazor edge paper 24.95 



PRINTERS 



STAR MICHQNIba 
SG10 
SGioc 
SGI5 
5010 
SD15 

snio 

SBI5 

Powerlype 

OKIMATE 'II 0KIDATA 

OKIMSTf?0 

18? 

19? 

193 

W 



80B/NLO 
'080 
1380 
'385 



LEGEND 



EPSON 



H580 
BXBO 
BXIOO 

JXS0 

FX85 

FJ'85 

LX80 

LOISOOiPARl 

LQISOOlSERl 

., „ PANASONIC 

109? 
1093 

315' 



MSP'O 
MSPI5 
M5P?0 
MSI>25 



CITIZEN 



210 95 
335 
369 00 
3? I 9b 
441 00 
469 00 
583 00 
299 95 

170 91 
?10 00 
?I9 95 
349 95 
51500 
640 95 

149.95 
199 95 
J59 95 
295 00 

319 00 
?0S 00 
3?9 00 
449 00 
33? 00 
455 00 
?11 00 
950 00 
999 00 

?3> 00 
369 00 
4?5 00 
4J5 00 

275 00 
439 00 
439 00 
549 09 



INTERFACES 



SP-3Serwl to Parallel W 95 



PAPER 



?500 shee'5 i.i/n- 


24 05 


QOOstiee: 


■ ; 


bOOsfiet-' 




y.nl.nq Labels 




TOQO nty 


9 95 


COLOR PAPER 




ASSORTED PASTELS 


■ . ■■ . »/» 


i: >c 


OOU ^heei'. b/oi 




)00 Warts in/oi 




MODEMS 


Vol-'. 1? 


■ .- . ihJ 


■ 1 




' • ' ■ 


385 no 


■ '.' ' 




1" ' '■'' 


19 'l>, 



r MONITORS ^ 






TEKNIKA 




MJ.10 




SI 78 95 




MJ-22. . . 




. 254.95 




COMMODORE 






180? 




S185 95 




1901 




CALl 




190? 


ATARI 


259 95 




SM124 




SI 74 95 




SC1??4 


ZENITH 


335 95 




ZVMI22 




S74 95 




ZVM123 




74 95 




1205. 


NEC 


SI25 00 




1260 




79 95 




1201 


AMDEK 


99 95 




300G 




t|'7O0 




300A 




127 00 




310A 




145 00 




Color 300 




175 95 




Color 500 




339 95 




Coloi 600 




399 00 




COM' 700 




46900 




Colo- 710 


SYLVANIA 


539 00 




13 Color IV/BGB 


S325 00 




20 COiO' 


Y'BGB 

SAMSUNG 


CAll 




TUA 




S95 00 




niG 




89 9:> 




SC100 


SAKATA 


5179 00 




r DISKETTES " 




is DO 
ns no 


BONUS 


..." 






1 




Mill 


MAXELL 






NO LABEL wiiti Hio-n-lilrj I pern 




SS'On 




II lil 






MEMOREX 






ss nil 












If. Ml 




FF5I 


■ 




ns/nn 






AH Oiskctlcs Carry A Lilcliini; Warranty 




r INNOVATIVE CONCEPTS " 




V 








■ 






■ 




■ ' 




ritiMi 1'ic 


Ml 


yj mi 




I 
















Ptinlcr (trillions Qusl Covws 






II 







"Where Prices are Born. Nol Raised." 

WHITE HOUSE 
COMPUTER 




P.O. Bo« 4025. WlltiamspoM. PA 17701 



NO 10POVI 01 C I*d«>«a Fr« trrs;i | 

pmiMid c«tVi <**!>s ov-i HOT •" IM Cononenint 
u S a A»a .<nd fpo <»'«<-. ..da ti 00 pi 
fad For Pitonty M.nl .id 110 00 m> hiinQml F<ar 
■ ■ ;hn PA mvdO'if, PAn 

i '. Ait ite'ccirvc praaucu rnusi tw > 



VISA 4% 



HMMMMld] 



*ha . 



'■I.- 



AMERICAN 
EXPRESS 5% 
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beq 


home yes, go back to parameter copy 






sta 


,x+ no, save in parameter buffer 






bra 


varloop get next character 




home 


puis 


y retrieve Y register 






bra 


loop go back to param. copy 




* 

* EXECUTE THE MODULE 




doit 


ldd 


#$JJJJ(J1 any type or lang.; default data size 






ldx 


modaddr address of module name 






ldy 


#2JJ0 maximum parameter length 






os9 


fSfork execute the module 






bcs 


unlink exit with error 






os9 


fSwait wait for module to finish 






tstb 


module pass an error? 






beq 


getvar no, get next input 




* 

* EXIT 'REP' 




error 


cmpb 


#e$eof end of the input file? 






bne 


unlink no, exit with error 




noerr 


clrb 


yes, clear error flag 




unlink 


ldu 


head get header address 






os9 


f$unlink unlink module 




out 


os9 
emod 


f$exit quit 'rep' 




len 


equ 


* 






end 






Listing 


17: Unload 




* 

* UNLOAD - COPYRIGHT (c) 1985 by S . B. GOLDBERG 




* Use: 
It 


unload 


•Cmodule .name> [ . . . ] 




* Repeatedly 


unlinks the listed module(s) to delete 




* them 
* 


from memory. 




ifpl 








use 


/d(J/defs/os9defs 






endc 






* 








•ff 


mod 


len , name , prgrm+ob j ct , reent+1 , entry , dsiz 




count 


rmb 


1 number of tries 






rmb 


2013 stack 






rmb 


2f!3 params 




dsiz 


equ 






* 








name 


fcs 


/unload/ 




^f 


fee 


/(c) 1985 S.B.GOLDBERG/ 




entry 


Ida 


#25 loop count 






sta 


count save count 






clra 


any type or language 






os 9 


f$link link module to get header address 






bcs 


out exit with error 




loop 


os 9 


fSunlink unlink module 






bcs 


out exit with error 






dec 


count 25 times? 






bne 


loop no, unlink again 




next 


Ida 


,x yes, look for more names 






empa 


#$0d another module? 






bne 


entry yes , unlink it 






clrb 


no, clear error flag 




out 


os9 
emod 


f$exit quit unload 




len 


equ 
end 


* 
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Listing 18: Sound 






nam snd 


Ida l,x 




ttl 3 hard-coded sounds from one module 


anda #$fb 
sta l,x 




* Options: u, d 


ldb ,x 

orb #2 




* 


stb ,x 




* no option - short beep 


ora #4 




* u option ■ rising pitch 


sta l,x 




* d option - falling pitch 


snd2 pshs a 
anda #2 




if pi 


pshs a 




use /d0/defs/os9defs 


Ida $ff22 




endc 


anda #?fd 
ora , s+ 




sklp2 equ 58c 


sta Sff22 




typ set prgrm+objct 


bsr delay 




rev set reent+1 


Ida ,s+ 




mod zz ,mn, typ,rev,go,edat 


inca 
bra snd2 




rmb 2JJJJ 


delay Ida 4,s 




edat equ . 


dlJJ deca 




mn fcs "snd" 


bne dip 




fcb 1 (version) 


tst 3,s 
beq dl2 




go Ida ,x 


bmi dl3 




anda #$df 


dll dec 4,s 




cmpa #'U 


bne back 




beq upsnd 


sndout clrb 




cmpa #'D 


os9 f$exit 




beq dnsnd 


dl2 inc 4,s 




beep ldd #$dj280 


beq sndout 




bra sndl 


back rts 




upsnd ldd #$100 


dl3 inc 3,s 




fcb skip2 


beq sndout 




dnsnd clra 


rts 




clrb 


emod 




sndl pshs d 


zz equ * 




ldx #$ff22 


end 


/R\ 



SERIAL TO PARALLEL 
PRINTER INTERFACE 



SP-2 INTERFACE for EPSON PRINTERS: 

■ 300-19.200 BAUD rates 

■ Fits inside printer — No AC Plugs 

■ Optional external switch ( s 5°° extra) frees 
parallel port for use with other computers 

■ S 49 9S (plus s 3°° shipping) 

SP-3 INTERFACE for MOST OTHER PRINTERS: 

■ 300-19.200 BAUD rates 

■ External to printer — No AC Plugs 

■ Built in modem /printer switch — no need for 
Y-cables or plugging/ unplugging cables 

■ $ 64 95 (plus *3°° shipping) 

Both also available for IBM, RS-232 and Apple IIC computers. 



DISK DRIVE SYSTEMS 

ALL l/i HEIGHT DOUBLE SIDED 

Drive (addressed as 2 drives!) s 235 

Drive 0,1 (addressed as 4 drives!) s 350 

All above complete wich HDS controller, cable, & drive 
in case with power supply 

Bare Double Sided Drives s 1 09 

Dual '/; Height Case w/Power Supply s 49 

Double Sided Adapter s 25 

HDS Controller, RS ROM & Instructions l l 19 

25 CDC DS/DD Diskettes *32 & s 3 s/h 

We use the HDS controller exclusively. Can use 2 different DOS ROM's. 

Shipping Costs: s 5/drive or power supply, 5 I0 max. 

Co Co Serial Cables 15 ft.— MO. Co Co/RS-232 Cables 15 ft.— *20. 

Other cables on request. (Add l 3 00 shipping) 



R 



P.O. Box 293 
Raritan, NJ 08869 
(201)722-1055 
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Bulletin Board Systems 



Continued from Page 10 



Editor: 

The Alaska CoCo BBS offers online 
games to play and soon to come, two callers 
may play online games against each other. 
We support up/ downloads and operate 24 
hours a day, seven days a week. Call Voice 
(907) 344-0161, Data (907) 344-3748. 

Dean Lawrence 
Anchorage, AK 

• CoCo Jet BBS is online 24 hours a day, 
seven days a week at (602) 969-8545 and is 
300 Baud. CoCo Jet runs on a TRS-80 CoCo 
2, two disk drives. If you want a password, 
you can send your real name and alias (if 
any), address, city, state, phone number, 
computer system and a six-character pass- 
word to me at Applications Department, 
641 N. Dawn Circle, 85203. 

Dan Sobczak 
Mesa, AZ 

• The California Computer Federation 
announces the following BBSs. 

Los Angeles Chapter: Voice (818) 840- 
8903, BBS (8 1 8) 886-604 1 or Voice (818) 993- 
5217, BBS (818) 988-0547. 

Sacramento Chapter: Voice (916) 753- 
7354, BBS (916) 753-4066. 

San Francisco Chapter: Voice (415) 366- 
4560, BBS (415) 364-2658. 

• The Colorama BBS of Walerford is a 
CoCo oriented system with online games, 
downloading and many other features. Runs 
24 hours a day, seven days a week. Call (203) 
442-8187. 

Dee Ward 
Waterford, CT 

• We would like to announce the #6809E- 
XPERIENCEfl BBS. Our data line is (203) 
236-0709, 24 hours, 300 Baud, 8-N-l parity. 
The features we offer are what set us apart 
from many other BBSs. Give us a call. 

John M. Pozzato 
W. Hartford, CT 

• I'm announcing a new newsletter dedi- 
cated to CoCo BBSs. It will feature a list of 
CoCo BBSs around the world. If you have 
a BBS, please send me your information. 
This newsletter will also feature advertise- 
ments on where to purchase modems, termi- 
nal programs. BBS programs and more. 
There will be a mail section lor those who 
want to leave tips on Adventure games or 
anything else. To get this monthly newslet- 
ter, please send $2 plus your name and 
address to 301 Caravel Drive, 19701. 

Steve Slack 
Bear, DE 



• Announcing the start of a chain of 
Eagles Nest BBSs. Eagles Nesl headquarters 
is in N. Province, R.I. Call (401) 353-5034. 
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Eagles Nest #2 is in Hollywood, Fla. Call 
(305) 981-8173. Eagles Nest S3 is in Mem- 
phis, Tenn. Call (901) 744-3478. All three 
boards run on a greatly modified Colorama 
3.0 and run 24 hours a day. 

Dan Schoenhaum 
Hollywood, FL 

• The Jax Online BBS has been in service 
for over two years, runs 24 hours a day, 
seven days a week, has 300/1200 Baud 
capabilities. This BBS utilizes I28K, eight 
disk drives, 300/1200 Baud. Data line is 
(904) 737-2258, voice line is (904) 737-3640. 

Bill Dempsey 
Jacksonville, FL 

• I would like to announce the Brainchild 
BBS. The number is (404) 629-7197. We are 
online from 9 p.m. -6 a.m. seven days a week. 

Carl England 
Calhoun, GA 

• The Evansville Connection BBS is alive 
and well at (8 1 2) 476-9453. We operate at 300 
Baud, seven bits, even parity. The hours are 
9 p.m. Fridays till 9 p.m. Sundays. 

Brad Callahan 
Evansville, IN 

• I am happy lo announce another Colo- 
rama BBS online 24 hours a day, seven days 
a week. Features include message base, 
online programs and games, downloading, 
screen pause and other well-known Colo- 
rama options. The communications pro- 
tocol is 300 Baud, seven bit, even parity, one 
stop bit. Phone (3 1 7) 392-2769. 

Duke Norris 
Shelby ville, IN 

• I would like to inform all rainbow 
readers of a new BBS, The Computer Cellar. 
It is run on a 64K CoCo 2 and two double- 
sided drives. The BBS supports XMODEM 
up/downloads, online games, a number 
database, modem-pal section and much 
more. The board runs 24 hours a day, seven 
days a week. Phone (319) 277-0646. 

Kevin Langenwalter 
Cedar Falls, I A 

• I am pleased to announce the start of my 
BBS. The number is (502) 955-6184. We are 
a 24-hour BBS dedicated to the CoCo. 

Claude Napier 
Louisville. KY 



• Fast Trackin' BBS is online and cur- 
rency operating a 300 Baud with online 
storage exceeding 300K. with four 40-track 
drives. Give us a call around the clock at 
(502) 365-7771. 

David Guess 
Princeton, KY 

• A new BBS called The Asylum, 300/ 
1200 Baud, runs 24 hours a day, seven days 
a week. Call (504) 886-3713. 

Nolan Edward Lee 
Sun. LA 



• I would like to announce that a new BBS 
called CoCo Net is online 24 hours a dav. 
The number is (504) 654-9298. 

Dustin Maxfteld 
Zachary, LA 

• I would like to announce a new BBS. It 
will be online 24 hours a day, seven days a 
week. The number is (617) 889-0777. 

Robert Bolm 
Chelsea, MA 

• Benchboard BBS operates at 300 Baud, 
8/N/ 1, 24 hours each day. Call (517) 394- 
2447. All long distance callers must mail a 
post card or letter with their name, address, 
phone number, type of computer and de- 
sired password (up to eight characters). Mail 
information to Benchboard, P.O. Box 278, 
48842-0278. 

John C. Evans, Jr. 
Holt, Ml 

• 1 am pleased to announce that Kosci- 
usko now has a BBS. The A MUG (Attala 
Micro Users Group) BBS is online after 6 
p.m. (CST) Monday through Saturday and 
all day Sunday. Call (601) 289-5161. 

William Duncan 
Kosciusko, MS 

• The Colorama CoCo Users Groups BBS 
runs 24 hours a day, seven days a week. Fully 
supports XMODEM, up/downloading, 300 
Baud, no fee required. Call (314) 899-0611. 

Carl Eberhardi 
West Alton, MO 

• Our club has put together a BBS. The 
number is (712) 258-0234. If anyone would 
like to leave me a message on the board, my 
initials are ABP. 

Alan Pedersen 
South Sioux City, NE 

• 1 am pleased to announce that CCIE is 
now running TCBBS software. The Color 
Computer BBS is 100 percent machine 
language. Call (201) 725-5028. 300/1200 
Baud. A note to those interested in running 
BBSs: TCBBS requires 64K, a multipack, 
and a hardware pack that includes a UART 
(RS-232 port), parallel printer port and a 
real-time clock. More information is avail- 
able on the board. 

Darren Nye 
Man ville, NJ 

• Announcing two new BBSs in the New 
York area. Both are open 24 hours a day, 
both have many subboards. Call Switch- 
Board at (914) 429-5616, or Varsity BBS at 
(914)693-8551. 

Elliot Richman 
Ardsley, NY 

• Announcing the first (to my knowledge) 
public domain BBS system for the CoCo; it 
is the RS-BBS. It can be obtained through 
the RS-BBS H.Q., P.O. Box 901, 1 1710. To 
receive a copy just send three diskettes and 
$1 for postage and handling or $6 to covei 
the price of disks and postage and handling 



Call (516) 783-7506 24 hours a day, seven 
days a week. 

Joseph Castelli 
Bellmore, NY 

• This is to inform you of a new BBS in 
Queens. We are part of the TELE-NET BBS 
network. We currently have six BBSs and 
are willing to recruit more. If you would like 
to join or need more information on the 
network, send an SASE to 75-04 60 Place, 
1 1385. We currently operate at 300 Baud, a 
64K CoCo 2, two disk drives operating at 
6 ms. Call us at (718) 381-2209, 24 hours a 
day, seven days a week. We have up/down- 
loading, message bases and more. 

Mike Sileo, Jr. 
Glendale, NY 

• Colorama of Minot is online 24 hours a 
day supporting Tandy CoCo users in the 
area. Downloads, news, club news, message 
base, online games and more. Call (701) 839- 
7081. 

Pete Feiiig 
Minot, ND 

• Our BBS has about 300-400 Color Com- 
puter downloads, including OS-9 down- 
loads. There is a $10 fee. It is a TBBS 1.3 
system, running on a Model 4, one five meg 
hard drive, two double-sided 514-inch floppy 
drives and two single-sided 5'/i floppy 
drives. We offer many features and run 24 
hours a day, seven days a week at 300/ 1 200 
Baud. Call (513) 984-8705. 

Mike Kennedy 
Cincinnati, OH 

• The Tigers Den of Wetherford is now 
operating at 300/ 1200 Baud and is devoted 
to CoCo users and will be aimed at Adven- 
tures and war games, but all programs will 
be appreciated. Call (405) 772-7277 between 
5-11 p.m. 

David Miller 
Wetherford, OK 

• I would like to announce the existence 
of a Colorama BBS in Homer City. The BBS 
has message base, online games, magazine 
section, 24 download files, basement, adver- 
tising, hints and tips and much more. Online 
24 hours a day at 300 Baud. Call (412) 479- 
3786. 

Bruce Rummel 
Homer City, PA 



• I would like to announce the formation 
of a new BBS called The Glaxian. It has 
almost a meg of online storage and is 
inhabited by many different creatures. The 
number from any earth phone is (215) 752- 
9746. All computers and/or starships are 
welcome. 

Jay Kellett 
Langhorne, PA 

• The Colorama BBS of Cookeville is 
open from 10 p.m. to 6 a.m., seven days a 
week. The BBS supports up/ downloading, 
online games and much more. Call (615) 
528-2864. 

Pat Oakley 
Cookeville, 77V 

• Another BBS is online 24 hours a day, 
300 Baud unless used by the SysOp. Call 
(615) 496-3340. There is no lee but any 
donations are welcome. Send to Rt. 2, Box 
1036, Mapleton Drive, 37311. 

Brian S. Graham 
Cleveland. TN 



• 1 would like to take this opportunity to 
tell you about our new chain of BBSs. They 
run 24 hours a day, 300/ 1 200 Baud. We have 
up/downloading, online games, very user 
friendly Colorama system. Call (901) 743- 
2763 or (401) 353-5034. 

Jerry Maye 
Memphis, TN 

• Colorama BBS of Irving is now running. 
Call (214) 438-2412, 24 hours a day, seven 
days a week. 

Terry Luthell 
Irving, TX 

• Call the Peninsula CoCo BBS at (804) 
868-0922. We operate a CoBBS, the fastest 
growing CoCo BBS in the Tidewater area of 
Virginia. 

Bill Satterwhite 
Tabb, VA 

• We have a reliable 24-hour BBS (Colo- 
rama) aimed at providing total support to 
users. Call (206) 435-4308. 

Thomas B. Frey 
Arlington, WA 



• Announcing two BBSs in the valley. The 
first is at Skagit Valley Community College 
and runs 24 hours a day at (206) 428-1294. 
The second is a FIDO board and runs from 
1800 to 0800 at (206) 757-5233. 

Scott Honaker 
Mount Vernon, WA 

• I would like to announce Graphic Fan- 
tasy BBS is online Fridays 8 p.m. to Sunday 
10 p.m. CST It has up/downloads message 
base, online games and some great pictures 
in the download section. Call (414) 623-2496 
between advertised hours. 

Dennis Genz 
Columbus. Wl 



• Announcing a new BBS in the Kenosha- 
Salem area called Uncle Dave's BBS. Oper- 
ates at 300 Baud 24 hours a day, seven days 
a week. Supports up/downloading and 
various message bases. Mv address is 24607 
67th Street, 53168. 

David Buehn 
Salem, Wl 



• Would you please inform your readers of 
the new BBS called The Hackers Palace. It 
uses the ring-back system. Call and let the 
phone ring only once and then call back in 
50 seconds — I will flip the modem on. The 
hours are 9 a.m. to 9 p.m. Call (304) 287- 
2607. 

Mark Richards 
Carolina. WV 



• I would like to announce the grand 
opening of yet another Colorama BBS in the 
Tilbury-Chatham area. Open 24 hours a 
day, seven days a week. For members that 
join, there is a newsletter once a month. The 
number is 682-1309. 

Charlie Mizzi 
Tilbury, Ontario 

• The Le Club CoCo La Tuque Inc. has 
a BBS. Just leave a message at initial PMP. 
We operate 24 hours a day, seven days a 
week. The number is (819) 523-4329. Press 
ENTER when you get the link; it is in full 
French and the speed is 300 Baud. 

Pierre Lortie 
La Tuque. Quebec 



ASSEMBLY LANGUAGE PROGRAMMING for the TRS-80 COLOR COMPUTER 



At last - The book exclusively for you and your CoCo !! 
You've learned BASIC and are now ready to learn assembly 
language programming. This hands-on guide begins with the 
basics and progresses to the expert level; revealing 
programming conventions and techniques and all the 
internal capabilities of the TDP-100, CoCo 1 and 2. At 
every step of the way are illustrations, sample programs, 
and plain English explanations. All sample programs are 
shown as assembled with Radio Shack's EDTASM+ cartridge. 
Plus, a complete chapter explains how to use all EDTASM+ 
capabilities. This book describes how to write 
subroutines, interrupt handlers, programs that control 
the graphics display modes, cassette, disk, keyboard, 
sound, joysticks, serial I/O, interrupts, and use of ROM 
resident subroutines. Not only is the MC6809E 
microprocessor described, but also the video display 
generator (VDG), peripheral interface adapters (PIA), and 



how they all work together. This book is suitable as a 
high school or college textbook. 

CHAPTERS : The Binary Number System - Memory and Data 
Representation - Introduction to MC6809E Microprocessor - 
Addressing Modes of the MC6809E - MC6809E Instruction 
Set - Assembly Language Programming with EDTASM+ - 
Assembly Language Programming - Assembly Language and 
Extended Color BASIC - Internal Control and Graphics - 
Technical Details. 

289 pages TRS-80 & EDTASM+ are 

soft cover trademarks of Tandy Corp 

$16.00 U.S. plus a.1 .50 shipping. Check or money order. 

RI residents please add 6% sales tax. Volume discounts 

are avai lable. 

Published and TEPCO 

sold by 30 Water Street 

Portsmouth, RI 02871 
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THESE FINE STORES 
CARRY THE RAINBOW 

The retail stores listed below carry the rainbow on a regular basis and may have 
other products of interest to Tandy Color Computer users. We suggest you 
patronize those in your area. 



ALABAMA 

Birmingham 

Brewton 

Florence 

Greenville 

Huntsville 

Madison 

Montgomery 

ALASKA 

Fairbanks 

ARIZONA 

Phoenix 



Scottsdaie 
Tempe 

Tucson 

ARKANSAS 

Fayeltevllle 
Utile Rock 

CALIFORNIA 

Chula Vista 

Citrus Heights 

Downey 

ElCaJon 

Exton 

Grass Valley 

Halt Moon Bay 

Hesperio 

Hollywood 

Lompoc 

Los Angeles 

National City 

Pacific Beach 
Palo Alto 
Sacramento 
San Diego 



Santa Rosa 
Southgate 
Sunnyvale 

COLORADO 

Aurora 
Colorado 

Springs 
Grand 

Junction 

Montrose 
Westminster 
CONNECTICUT 

Danbury 

DELAWARE 

Mlddletown 

Mltford 

Wilmington 

FLORIDA 
Boca Raton 
Clearwater 
Cocoa 
Davie 
Ft Lauderdale 

Jacksonville 



Jetterson News Co. 
McDowell Electronics 
Anderson News Co. 
M & B Electronics 
Endicott Software 
Madison Books 
Trade 'N' Books 

Electronic World 

The Computer Shop 
Gemini Computers 
TRI-TEK Computers 
Dato Concepts 
Books Etc. 
Computer Library 
Anderson News Co. 
Mlnz Electronics 



Vaughn Electronlcs/Rodlo Shack 
Anderson News Co. 



R & R Software 
Software Plus 
The Floppl Disk 
Radio Shock 
Software City 
Advance Radio. Inc. 
Strawtlower Electronics 
Dessert Sound. Inc. 
Levity Distributors 
L&H Electronics Emporium 
E.D.C Industries 
Polygon Co. 
JAR8 Sottwore 
Willys Electronics 
Pro Am Electronics 
Printers. Inc. 
Tower Magazine 
The Computer Store 
Dimensional Software 
Disney's Electronics 
Radio Shack 
Sawyer's News, Inc. 
Color Computing 
Computer Literacy 



Melbourne 

Miami 

North Miami 

Beach 
Orlondo 
Panama Clfy 
Pensacola 
Pinellas Park 
Sarasota 
South 
Pasadena 



Aurora Newsland 

Hathawa/s Magazines 

Colorado Periodical 
Distributing Co. 
Montrose Mini Mall 
Software City 

Computer Serv. of Donbury 

Delmar Co. 

Mllford News Stand 

Normar, Inc.— The Smoke Shop 

Software. Software. Inc. 
Soenen 8c Wilmoth Books 
The Open Door 
Software Plus More 
Electronics Engineers 
Mike's Electronics Distributor 
Bill's CoCo Comer 
The Book Nook 
Book Town 
City Newsstand 
The Little Slore 
The News Rack 
Newsstand ot Cutler Ridge 

Almar Bookstore 
Book Mania 
Boyd-Ebert Corp. 
Anderson News Co. 
Wolfs Newsstand 
Family Computers 

Poling Place 



Stuart 


Cotronlcs, Inc. 


Sunrise 


Sunn/s at Sunset. Inc. 


Tallahassee 


Anderson News Co 


Tampa 


Fine Print Bookstore 




Sound Trader & Computer Center 


Tltusvllle 


Computrac 


GEORGIA 




Bremen 


Boogie Shoppe 


Columbus 


Muscogee News Co. 


Cummlngs 


Kent Radio Shack 


Jesup 


Kannon Music 




Radio Shack 


Marietta 


Act One Video 


St. Simons 




Island 


Radio Shack 


Toccoa 


Martin Music Radio Shack 


IDAHO 




Blacktoot 


F/M Systems Electronics 


Moscow 


Johnson News Agency 


ILLINOIS 




Aurora 


Krcch's & Brentano's 


Belleville 


Software or Systems 


Champaign 


Book Market 


Chlcogo 


B. Dalton Booksellers 




N, Walbash St. 




West Jackson St. 




Bob's In Newtown 




Bob's News Emporium 




Bob's Rogers Park 




Book Market 




East Cedar 




North Cicero 




West Dlversey 




E.B. Garcia 8t Associates 




Guild Books (x Periodicals 




Krcch's & Brentano's 




South Walbash 




West Jackson 




516 N. Michigan 




835 N. Michigan 




Parkway Drugs 




Parkwest Books 




Sandmeyer's Bookstore 




Univ. of Chicago Bookstore 




Univ. of Illinois Bookstoie 




Videomat, Inc. 


Chilllcothe 


Book Emporium 


Danville 


Book Market 


Decatur 


Book Emporium 




K-Mart Plaza 




Northgate Moll 


DeKalb 


Appletree Computers 


East Mollne 


Book Emporium 


Evanston 


Chicago-Main News 


Geneseo 


B & J Supply 


Kewanee 


Book Emporium 


Lisle 


Book Nook 


Newton 


Bill's TV Radio Shack 


Oak Brook 


Krcch's & Brentano's 


Oak Park 


Krcch's 8c Brentano's 


Paris 


Book Emporium 


Peoria 


Book Emporium 




Sheridan village 




Westlake Shopping Center 




Book Market 




Illinois News Service 


Schaumberg 


Krcch's fit Brentano's 


Skokle 


Kroch's 8t Brentano's 


Springfield 


Book Emporium 




Sangamon Center North 




Town 8c Country Shopping Ctr. 


Sunnyland 


Book Emporium 


West Frankfort 


Paper Place 


Wheeling 


North Shore Distributors 


INDIANA 




Berne 


White Cottage Electronics 


Columbus 


Micro Computer Systems. Inc. 


Garrett 


Finn News Agency. Inc. 


Greenwood 


The Computer Experience 


Highland 


Computer Health Consultants 


Indianapolis 


Booktand. Inc. 




Indiana News 


Jasper 


Elex Mart 


Modlson 


Arcs Office Supplies 


Martinsville 


Radio Shack 


Walbash 


Mining's Electronics 



IOWA 




Bettendort 


Cosmos Computers 


KANSAS 




Junction City 


III H's Stereo 


Topeka 


Palmer News, Inc. 




Town Crier of Topeka. Inc. 


Wichita 


Amateur Radio Equipment Co. 




Uoyd's Radio 


KENTUCKY 




Danville 


Boyle Electronics 


Georgetown 


Goodwin Electronics 


Hopklnsvllle 


Hobby Shop 


Louisville 


The Computer Store 


Paducah 


Radio Shack 


Paintsvllle 


Gus-Stan Enterprises 


Pikevllle 


Gus-Stan Enterprises 


Princeton 


Miller Electronics 


LOUISIANA 




Baton Rouge 


Acme Book Co. 


Crowley 


Acadlana Newsstand 


Gretna 


Computer Supply Store 


MAINE 




Brockton 


Voyager Bookstore 


Waterboro 


Radio Shock 


MARYLAND 




Silver Spring 


Layhill Newsstand 


MASSACHUSETTS 




Brockton 


Vogager Bookstore 


Cambridge 


Nlnis Comer. Inc. 




Out Of Town News 


Fitchburg 


Corners Book Shop 


Ipswich 


Ipswich News 


Littleton 


Computer Plus 


Lynn 


North Shore News Co. 


Quincy 


Soft Ware House 


Re ha both 


Arel Computer 8c Electronics 


MICHIGAN 




Allen Park 


Book Nook. Inc. 


Ann Arbor 


Community News Center 


Brooklyn 


Weatherwax Radio Shack 


Dearborn 


DSL Computer Products 


Durand 


Robblns Electronics 


Flint 


"IO" 


Greenville 


Robblns Electronics 


Harrison 


Harrison Radio Shack 


Kalamazoo 


John Rollins 


Lowell 


Curf s Sound & Home Arcade Center 


Mt. Clemens 


Key Book Shop 




Michigan Radio 


Muskegon 


The Eight Bit Corner 


Owosso 


C/C Computer Systems 


Perry 


Perry Computers 




Perry Oil & Gas 


Pontlac 


Computer Shack 


Rosevllle 


New Horizons 


Royal Oak 


Software City 


St. Johns 


Clinton Electronics 


Southfield 


Software City 


Sterling 




Heights 


Sterling Book Center 


Tecumseh 


White Electronics 


Wyoming 


Gerry's Book Co. 


MINNESOTA 




Minneapolis 


Read-More News 


Wlllmar 


The Photo Shop 


MISSISSIPPI 




Grenada 


Stereo Store of Grenodo. Inc. 


Starkville 


Stonehenge Computer Software Cen 


MISSOURI 




Farmlngton 


Ray's TV 8c Radio Shack 


Klrksvllle 


T8cR Electronics 


Moberly 


Audio Hut 


St. Louis 


Book Emporium 




Computer Xchange 




Softwalre Centre 




Software Center 


University City 


Final Edition 


MONTANA 




Whiteflsh 


The Computer Corral 


NEBRASKA 




Lincoln 


Hobby Town 


Omaha 


Computers 8c Components 
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NEVADA 




Philadelphia 


City Software Center 


Camrose 


Radio Shack Associated Stores 


Battle 






Newsy 


Claresholm 


Radio Shack Associated Stores 


Mountain 


Stewart's Radio Shack 


Phoenlxville 


Stevens Radio Shack 


Coaldale 


Coaldale Sight & Sound 


Las Vegas 


Hurley Electronics 


Pittsburgh 


All-Pro Souvenlers 


Drayton Valley 


Langard Electronics 


NEW HAMPSHIRE 


Pleasant Hills 


Pitt Computer ft Software 


Edmonton 


CMD Micro 


Peterborough 
Portsmouth 
West Lebanon 


BRW Electronics/Radio Shack 
Portsmouth Computers 
Verham News Corp. 


Shippensburg 
Temple 
Tunkhannock 
Wind Gap 


Rainbow Adventure 
Software Comer 
The Donna Comm Co. 
Micro World 


Edson 
Falrvlew 
Fox Creek 


Kelly Software Distributors 
Radio Shack 
D.N.R. Furnitures TV 
Fox City Color Br Sound 


NEW JERSEY 




York 


The Computer Center of York 


Ft. Macleod 


Fort Pharmacy 


Cedar Knolls 


village Computer & Software 


RHODE ISLAND 

Warwick 






Radio Shack 


Cherry Hill 
Clinton 


Software City 
Micro World II 


Software Connection 


Grande 
Cache 


The Stereo Hut 


Lawrenceville 


Micro Con Software Center 


SOUTH CAROLINA 


Grande 




Unwood 


Software City 


Charleston Hts. 


Software Haus. Inc 


Centre 


The Book Nook 


Marmora 


Outpost Radio Shack 


Gaffney 


Gaffney Book Store 


Grande Prairie 


Northern Computer Service 


Montvale 


Software City 


Greenville 


Palmetto News Co. 


Hanna 


Technics TV Ltd. 


Fennsvllle 


Dave's Elect. Radio Shack 


Hilton Head 


Megatron Corporation 


Innlsfall 


L & S Stereo 


River Edge 


Software City 


Spartanburg 


Software City 


Lacombe 


Tall Pine TV 


Rockaway 


Software Station 


Union 


Fleming's Electronics 


Leduc 


Radio Shock Associated Stores 


Summit 


Software City 


TENNESSEE 

Chattanooga 
Dickson 




Uoydmlnster 


Uoyd Radio Shack 


Villas 
NEW MEXICO 


Art's Electronics 


Anderson News Co. 
Highland Electronics 


Peace River 
Plncher Creek 


H 8c S Music Centre 

Radio Shack Associated Stores 

Thornton & Son's 


Alamogordo 


New Horizons Computer Systems 


Knoxville 


Anderson News Co. 


Redcllff 


Gale Distributing 
Computer World 
Roy's TV 
Tele-Logic 
Sundre Sound 


Albuquerque 


East-West Enterprises 




First Byte Computer Co. 


Red Deer 




Page One Newsstand 


Memphis 


Computer Center 


Rimbey 
St. Paul 




Salt of the Earth 




Software. Inc 


NEW YORK 




Nashville 


Mosko's Book Store 


Sundre 


Brockport 


Lift Bridge Book Shop. Inc 


Smyrna 


Delker Electronics 


Taber 


Pynewood Sight & Sound 


Brooklyn 


Micro Configurations, inc. 


TEXAS 




Valleyvlew 


Don's Radio Shop 


Elmlra Heights 


Southern Tier News Co.. Inc. 


Bay City 


Impulse Computers 


Vermilion 


Photoaaft Vermilion Ltd. 


Falrport 


Software City 


Elgin 


The Homing Pigeon 


Wetaskiwln 


Radio Shack 


Fredonla 


On Line: Computer Access Center 


Ft. Worth 


Software Terminal 


BRITISH COLUMBIA 


Hudson Falls 


G A West 8c Co. 


Houston 


MicroSolulions 


Bumaby 

Campbell 

River 


Compullt 


Johnson City 


Unicorn Electronics 


Orange 


Northway Books 8c News 


Mt. Kisco 


Software City 


Paris 


Software Solutions 


TRS Electronics 


New York 


Barnes & Noble— Sales Annex 


San Antonio 


CoCo Nuls 


Chllllwack 


M^W ».»<-Jwlit— 'J n c_ j 

Charles Parker 




Coliseum Books 


UTAH 




Dawson Creek 


Bell Radio 8c TV 




Eastern Newsstand 
Grand Central Station. Track 37 


Murray 


Deserel Book 


Ladysmllh 
Memt 


Ladysmlth Sound Center 
Merrtt Radio Shack 




200 Park Ave. (Pan Am #1) 


VIRGINIA 




N. Vancouver 


Mlcrowest Distributors 




55 Water Street 


Gafton 


Electronics Marketing 


Salmon Arm 


Matrix Computing 
Shuswap Electronics 




World Trade Center *2 


Norfolk 


l-O Computers 


Slcamous 




First Stop News 


Richmond 


Software City 


Sidney 


Sidney Electronics 




Idle Hours Bookstore 
International Smoke Shop 


WASHINGTON 




Williams Lake 


Norcom Software 




Jonll Smoke 


Mount Lake 




MANITOBA 






PennBook 


Terrace 


Emerald Computer Services 


The Pas 


Jodl's Sight 8i Sound 




State News 


Newport 


Nantronlcs 


Winnipeg 


J 8i J Electronics Ltd. 




Usercom Systems, Inc. 

Walden Books 

World Wide Media Services 


Renton 
Seattle 


Data Borne 

Adams News Co.. Inc. 


NEW BRUNSWICK 






Tocoma 


B 8c 1 Magazines & Books 


Moncton 


Jeffries Enterprises 


N. White Plains 


Software City 




Nybbles 'N Bytes 


NEWFOUNDLAND 


1 


Plattsburg 


Adirondack Computer Supplies 


WEST VIRGINIA 




Labrador City 


Sound 8c Vision 


Rochester 


village Green 


Huntington 


Nick's News 


NOVA SCOTIA 

["Vietnam irh 






World Wide News 


Logan 


Stan's Electronics & Radio Shack 


Sector Software 
Atlantic News 


Warrensburg 


M.R. Electronics 


Madison 


Communications. LTD 


L^w Mil IWU 1 1 1 

Halifax 


Woodhaven 


Spectrum Protects 


Parkersburg 


Valley News Service 


NORTH CAROLINA 

Aberdeen King Electronics 


WISCONSIN 

Appleton 


Badger Periodicals 


ONTARIO 

Angus 
Atikokam 


Micro Computer Service 
Gill's Furniture 


Cary 


Naaio Shock 

News Center In Cary Village 


Cudahy 
Lodysmlth 


Cudahy News & Hobby 
Electronics. Etc. 


Bowmanvllle 


Bowmanvllle Audio Vision LTD 
Smoke Shop 
Frederickhouse Sound 
Avlva Software 
NEPCOM 
Data man 


Charlotte 
Havlock 


Newsstand Int'l 
Papers & Paperback 
Computer Concerns 


Milwaukee 


Book Tree 
Booked Solid 
Booked Solid II 


Cochrane 
Concord 
Etoblcoke 
Hamilton 


Hickory 


C 2 Books & Comics 




Harvey Schwartz Bookshop 


Marion 


Boomers Rhythm Center 




Univ. of Wisconsin Bookshop 


Kingston 
Ottawo 


T.M. Computers 
National News Co., Ltd. 


NORTH DAKOTA 




Sturgeon Bay 


Door County Electronics 


Fargo 


Computer Associates 


WYOMING 




St. Catherine 


Smoke Shop-2 Stores 


OHIO 

Blanchester 




Casper 


The Computet Store 


South River 


Max TV 


JR Computer Control 


Worland 


Price Electronics 


Strathroy 


Downtown Sound 


Canton 


Little Professor Book Center 






QUEBEC 




Cincinnati 


Cinsofl 


ARGENTINA 




LoSalle 


Messcgerles de Presse Benjamin Enr. 


Coshocton 


Utopia Software 


Cordoba 


Informatlca Y Telecomunlcaclones 


Sherbrooke 


Scc.DeLoc 


Dayton 

Falrbom 

Kent 

Kenton 

Lakewood 

Lima 


Wilke News 

News-Reaaers 

The News Shop 

T.W. Hogan 8c Associates 

Lakewood International News 

Brunner News Agency 

Edu-Caterers 


AUSTRALIA: 
SYDNEY 

Kingsford 

CANADA: 
ALBERTA 


Paris Radio Electronics 


SASKATCHEWAN 

Assinlbola 

Nlplwan 

Reglna 

Saskatoon 
Fisdaie 


Telstar News 
Cornerstone Sound 
Reglna CoCo Club 
Software Supermarket 
Computertlme 
Paul's Service 


Mayfleld 




Athabasca 


McLeans Ltd. 






Heights 


Software City 


Banff 


Banff Radio Shack 


YUKON 




Mlamlsburg 


Wilke News 


Barrhead 


Barrhead Sound 1982 Ltd. 


Whltehorse 


Big Byte Computer Services 


Mount Orab 


Mount Orab Radio Shack 


Blalrrnore 


L 8c K Sports* Music 




H 8c O Holdings 


Rocky River 


Programs Unlimited 


Brooks 


Double "D" A.S.C Radio Shock 






Toledo 


Leo's Book 8c Wine Shop 


Calgary 


Billy's News 


PUERTO RICO 




Xenia 
OKLAHOMA 


fin Print Books 




Imperial Computer Ltd. 
Rainbow Software Services 


f UkntV nlW 

San Juan 


Software City 


Hobort 


Shortgrass Electronics 










Oklahoma 












City 


Merit Micro Software 










Tulsa 


Steve's Book Store 










OREGON 












Portland 
PENNSYLVANIA 


Fifth Ave. News 


















Allison Park 


Software City 










Altoona 
Brookville 


Newborn Enterprises 
Larry's Stereo Shop 
Harrisburg News Co. 
Personal Software 


Also available at all Coles Bookstores, B. Dalton Bookseller and 


Harrisburg 
Malvem 


Waldenbooks stores in the United 


States and Canada. 
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A D VER TISER 'S INDEX 

We encourage you to patronize our advertisers — all of whom support the 
Tandy Color Computer. We will appreciate your mentioning THE RAINBOW when 
you contact these firms. 



AMDT Stardancers 237 

Ark Royal Games 148 

B5 Software 16 

Cer-Comp 226, 227 

Challenger 89 

CinsofI 127 

Cir-Pak 9 

CNR Engineering 251 

CoCo Warehouse 145 

Cognitec 13 

Colorware 169, 170, 171, 172 

Computer Center 35 

Computer Island 90, 91 

Computer Plus 3 

Computerware 85, 87 

Computize, Inc 257 

Cosmos Computer Services Inc 61 

Cozy Software 81 

Custom Computer Products 247 

Dayton Associates of 

W. R. Hall, Inc 178 

Derby City Software 72 

Derringer Software 214, 215 

Didaktek 33 

Diecom 193 

Disto IBC 

Dragon User 14 

DYNACALC 153 

Dynamic Electronics, Inc 209 

E.D.C. Industries 248 

Elite Software 62, 63 

Federal Hill Software 82 

Four Star Software 49 

Group Technology 30 

H.A.K. Workshop 184 

H.D.R. Software 208 



Hard Drive Specialists IFC 

Hawkes Research Services 208 

Hazelwood Computer 196 

HJL div. of Touchstone 

Technology, Inc 52 

Frank Hogg Laboratory ... 241 , 243, 245 

Horizon 25 

Howard Medical 34, 258 

Incentive Software 47 

Inovative Systems 73 

J & M Systems BC 

J & R Electronics 137 

Johnson, D.P 246 

JTJ Enterprises 132 

Kelly Software Distributors 152 

Mark Data Products 22, 23, 219 

Metric Industries 119 

MichTron 143 

Micro Works, The 223 

Microcom Software 17 

Microtech Consultants Inc 55 

MicroWorld 210 

Mix, Tom Software 200 

Moreton Bay 78 

Novasoft 201 

Other Guys Software, The 36 

Owls Nest Software 140 

Owl-Ware 76,77 

PCM 194 

PD Software 1 82 

Perry Computers 68 

Polygon Co 237 

Dr. Preble's Programs 57 

Prickly-Pear Software 131 

Public Domain Software 249 

PXE Computing 15 



Radio Shack 11, 99, 186, 187 

Rainbow Adventure Book II 50 

Rainbow Binder 177 

Rainbow Bookshelf 126 

RAINBOWfest 234, 235 

Rainbow Gift Subscription 66 

Rainbow On Tape 183 

REM Industries 167 

Roberson, S.D 191 

Robotic Microsystems 203 

Saguaro Software 75 

Selected Software 29 

Software House, The 202 

Software Support, Inc 18, 19 

Spectrosystems 36 

Spectrum Projects Inc 105, 106, 107, 

109, 110, 111 

Speech Systems 38-45 

Sugar Software 146, 147 

Sunrise Software 88 

T & D Software 94 

TASC 154 

Tepco 253 

Tothian Software Inc 195 

True Data Products 134, 135 

Try-O-Byte 213 

Unified Software 239 

VCR 129 

Wasatchware 239 

Whice House Computer 250 

Woodstown Electronics 97 

Workbase Data Systems 133 

York 10 30 

Zebra Systems, Inc 192 

Zytek LTD 8 



ESJCaH: 

Cindy Shackleiord 
Director, West Coast Office 
Shirley Duranseau 
Advertising Representative 
12110 Meridian South, Suite 8 
P.O. Box 73-578 
Puyallup. WA 98373-0578 

(206) 848-7766 




Call: 

Kim Vincent 

Advertising Representative 
The Falsoft Building 
9509 U.S. Highway 42 
P.O. Box 385 
Prospect, KY 40059 
(502) 228-4492 



| Call: 

Jack Garland 
Garland Associates, Inc. 
10 Industrial Park Road 
Hingham, MA 02043 
(617) 749-5852 
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THE ULTIMATE PRINTER UTILITY 
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©1984WHITESmiTH VH.0 

ALL RIGHTS RESERVED 

HARDCOPY PRINT UTILITY $29.95 



ARE YOU LOOKING screen print dump? c 

HARDCOPY • Hardcopy is more than jusi a screen print dump, compare these features with any 
other graphic dump program on the market: 

• Full GRAPHICOM/GRAPH1COM PART II compatibility! Loads STANDARD 6K images. 
GRAPHICOM pictures, and COCO MAX pictures too! 

• BLACK & WHITE or GREY SCALE printing. In GREY SCALE printing, colors are printed as 
user definable patterns. Supports hl-res in all 4 GRAPHICOM display modes! 

• lx, 2k. 3x PRINTOUTS - Three menu options are reserved for the most frequently used prin- 
tout sizes, lx (quarter page). 2x (half page), and 3x (full page). 

• GRAPHIC LABELS - The label prinhng option allows the user to create custom mailing or disk 
labels with professional looking results 

■ GREETING CARDS - The greeting card option allows the user to custom design greeting cards 
using both text and graphics 

• GIANT POSTERS - The poster option provides the user with a means of reproducing a hi-res 
graphic (o a muld-sheet poster 

• SPECIAL EFFECTS - The special effects option allows ihc user to directly control the pnnling 
directives. ROTATION. X/Y SIZE. X/Y FLIP. X/Y GRID. X/Y FILL. TAB. WINDOW, POS/NEG 
IMAGE, and more 1 

• USER CALL • Have an application thai HARDCOPY doesn't quile match? HARDCOPY routines 
can be added to EXTENDED BASIC through the USR command' 

HARDCOPY" requires a 64K Color Computer or Color Computer II, and at least one disk drive. It supports 
I to 4 disk drives, keyboard or joystick Input. Please specify printer and cat. number when ordering. 

• Due to hardware differences, some features may function differently on certain printers. 
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Epson LX-BO 
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173WD 


DMP-110 


Cal 
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I80WD 


Okl 8ZA (Oklgraph) 
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No 


I79WD 


Epson MX-80 


Cal 
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I72WD 


DMP-120 


Cal 
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I76WD 


Okldma 92 


Cal 


No 


171 WD 


Epson RX 80 


Cat 


No 


173WD 


DMP-130 


Cal 


No 


I82WD 


Gemini IOX 


Cal 


No 


174WD 


Epson FX-80 


Cal 


No 


I73WD 


DMP-200 


Cal 


No 


I76WD 


Gemini SG 10/15 


. Cal 


Ni 


I78WD 


Rlleman PLUS 


Cal 


No 


I77WD 


CGP-220 


Cal 
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you could fssssstfuasffsr fi^roffi|T)mnf?finnnTl 

Eclipse (Zoom) SI9.95/Moreton Bay U| I fl j! g l " I - IlL-Tl I - LI U II II H I 

Super Paint (Paint) . S19.95/Mlchlron Texl Master (Hi-Rcs Text) S29 95/Dala Man L l|'l I I "Vm ?■,« "■"•l rTMTl . ■■■ J I ' 

Shr.nx (Reducer) S2l9S/Grafx G.C.U (Disk Utilities) SI9.95/tomputlz e f*/ \ jf ■ 

OR YOU COULD SPEND $24.95 FOR GRAPHICOM PART II AND GET: DISTRIBUTED BV CDMPUTIZE INC. 

a video proctii.ng package that provldci many function* that arc mining In Grephlcom. 
Here arc Jnfl a few of the features provided by Graphkom Part II: 

ENLARGE/REDUCE/ROTATE 'PPbTEI 

Enlarge or reduce any portion of a graphic screen, just like a photographic enlarged Roiate by any degree or W%\ j ! ji ::: ; W " :■■"";-"' ■fl 

fraction of a degree around any point on ihc screen ■■Lx^jE^/Jbb » ii . . . ** ■ ■■■'■ ■- : — ■'■ " -■ 

paint wHSSm 

Paint or 'fill-in" any irregular area on the screen 1 More than 50 different colored patterns available Addi- '■-. 1 

tional paint oalterns may be user-defined 

pan & zoom i B ;Iil.t V aM=M P—f lg l i . ' „■ 

"Zoom in' x2. \A. or x8 on any porlion of the screen to do fine pixel work Allows editing of Graphicum TWrTtTifrr 1 ■TjTTyT V Tj'a C /^^ IDISKB 

TYPESETTER ft FONT EDITOR WfTiD'^nT ™ *^4j BBJJJb ^SB ci B^H 

Add lext in 16 different sizes, also supports user definable foreground 01 backg'vo: : |Uj^,»>lll HL~ZZZTjA| ^ JMI KV- J , 'J 

Allows the user to easily substitute or remove colors Widen lines, swap BLUE & RED without effecting H^^I^^.^W?¥f HAliiit_i53H LUilJJ 1 1 1 .....K— ^al^LH 

GRAPHICOM PART II DOES NOT REQUIRE GRAPHICOM TO RUNI ©1984 W MITES ill ITU U- 1 . 

Gn.ph.eom Part U requires a 64K extended disk basic system, and supports 1 to 4 disk drives, keyboard or ALL RIGHTS RESERVED 

joystick (analog or switch type) input. It will load and save both Standard BIN files and Graph.com screens p TJ 71 'D'LTTP.CiTlrT PIT DT TT C *>/! QC 

All functions support color or Hi-Res operation, as well as ihe 4 screen display modes. LrKraJriilL.U'IVl f nKl IX »J 1 t i ±.yj 

NEW LOW PRICE! GRAPHICOM $24.95 mJEEEEEESP SBK SUPER BACK-UP 

CaUuog No II I GD Available from COMPUTI2E TTTTT f TV Cr\ 

flPQPVTTrTtM Slmolv ilaltd - On of the flnul .noble 4C - Artifact color palellc UllLUIiy 
UKflmil-UlH program, wriiwo Tor Ih, Color Compol.,1 5C - Urge charocler sets (from Derringer Soft- WITH S.B.U FROM COMPUTIZE - 
T.T.-TI'MlSla c I CO fin FEATURES ware) YOU LL NEVER NEED ANOTHER BACK- 
DIGITIZER $159.00 . SU-P-E-R U-S-E-R F-R-l-E-N-D-L-Y I 6C - Same as 5C bul sel up as stamp set ^I"-' T „ Y ,^ D Y ?,^ S3 C °u,', , . 

• Supports 4 Hi-Res display modes We™ Dt,« S« 1 S19.9S SUPER BACK-UP UTILITY WILL PER- 

Inpol directly lata Gr.phlcom for easy ' * P=S* animation mode 7 - Miscellaneous A.I Sel » I % f™ *"■ 0F THE ALLOWING FUNG 

enhancements, manipulation, stamping, ■ Color Palclle with over 15 color patterns B - Miscellaneous An Sel »2 Tape m -rape ,BB«,.Me« „r „,„., 

and storage Accepts composite video Tor use will, Hl-Res arlifact 9 . Miscellflncous Ads and ixm ^ a ' • ™JJ° J^,^ 

signal In (I. Ov p-p) from video camera, • Send/Receive pictures over modem picture Dlak S« 2 tiairc -. »«ii" .A HH ,.« <- — ,. 

VCR, video disc player, another con,: . Supplied u.ility allows capturing Hi-Res TtScdlfneousFonls , , ,„ r^Li, ' P 

puter, or other compatible video sources screens from mos. COCO arcade games '° KiSfS^h,,, , B35S ' D °B?or.TP <&. <*~. r*..*,. 

View "off air " or "VCR" digitized video al • Mulllple H,-Res character fonts (user re- ,w«« ™^ «L ? P YP ,„,, 3 ' *"° HT 'l^Z 

close lo real-lime Snapshot" video definable) ^ »^ , um.'-rVci.'rr^' programs thai conflict with Disk 

frames to Ihe digitizers Internal memory • Supplied utility for transferring I2C-AH demo from WHITESMITH ffiHfSSHSE'Sf ™, 

No slow data Serial manipulalSn Graphicom screens 10 Basic o, other 13C- GRAPHICOM PART II function demo * DISK TO TAPE (Place Disk programs 

Use with' your mulli.pak or a "Y" cable M/L programs McMl. Mu Sat 4 SM.9S S 1^™ in,,, «w.,f,,l Wi, N 

("Y" cable available al S 1 9.9S) • Supplied ulility for loading screens from 5. DISK TO DISK (Our powerful Sphl-N- 

Video Is input via a BNC" connector. Basic or other sources -«„- «,-„- Image Program. Copies regardless of 

Exlernal controls for HORIZONTAL POSI- ■ Built in Hi-Res SCREEN PRINT (compali- GC II FONT DISKS . EgmnSmSr ' 

TION, VERTICAL POSITION. HORIZON- We with EPSON C-1TOH GEMINI- 10. g^b ,11. t coal^o. 10 or more fool.. (4 v.c , „ „„A,,« BXTPNntn rorn 

BBiWassr* and C0N - ^msssrmssA izsssxisS"***^* ■ iilHSS, 
tt&gfa&sax.** • gtes^ ksSSS SSSSVars 

only digitizer lhal ' DIRECTLY "Inputs in- "Many additional features, operaling GRJIPHICOM PART II Foni m.l,. Sia»^ PROGRAMS COST1HG IN EXCESS OF 

lo Graphicom hints, hardware mods and suggestions. GRAPHICOB PART II Font Dlika ... $19.95 SI 00.00 

REQUIRES 64K COCO, 1 DISK DRIVE. etc DISK S49.95 .... Cat. No. 107CD 

AHD 2 ANALOG JOYSTICKS. FREE REQUIRES 64K COCO, 1 DISK DRIVE, __._. _ __ - .,-——_ 

GRAPHICOM PROGRAM. PICTURE AND 2 ANALOG JOYSTICKS TRIPLE TRANSFER 

DISK. AND GRAPHICOM UTILITY SUP- Tf XTt tTV (FN en T T »T Ilia f"tS (P\ 

PUBD WITH PURCHASE OF VIDEO „„.„ „_„_„., __,, .. T , UTILITY© SPIT-N-IMAGE © 

DIGITIZER (A SSO VALUE). NEW MASTER KEY II Transfer contents of disk to tape • M/L Disk Back-Up Ulility 

New Improved Version! A hardware product Transfer contents of tape lo disk ■ There is no need lo suffer Ihc heartbreak 

"V" rSBTBG that takes conlrol of any program regardless or Au,om , n '" : . a " Y „' e ° " ?. t ca 5 $e , " e pr T or crashed disks any longer Spit-N-lmage 

tiiDLfia j^ prolcclion Now use wilh RS Mulli-pak. "Y" 8 roms lhal c0 "" lc ,' w,lh lh 5. d,s ? °P era| - will create a mirror Image of your 

cable or optlomd extender cable. Captures Ing system • Displays machine language valuable disk programs which do not res- 

reglslcr contanls as Ihey were when Master Key Z"3'T ad , dres = cs * Copies ASCII Basic. pond ,o normal Back-up functions. Will 

II was engaged Complele disassembler. S Machine Language Programs • All con- also initialize and back-up In one pass 

memory save, and much more Requires some u,lncd '" i "Jgjg d """ n P'" 8 ''"" Oaa processing expcrls always insist on 

familiarity wilh Assembly Language REQUIRES 32K CC EXT. haulnD „ back-up - us good a practice 

*,. rt - ROM PAK Cat. No. I BOHR S 99.95 REQUIRES 32 K CC 

5iy.yt) Cat. No. 161HRWlto Eat. Cable ... S109.95 Dilfc $24.95 .... Cat. No. 105CD DISK $34.95 .... Cat. No. 101CD 




Check or M.O. 

Add S3. 00 

shipping 



(215) 946-7260 P.O. BOX 207 • LANGHORNE, PA 19047 



PA residents 
add 6% 
sales tax A 




SPECIALS = 

Howard Medical Computers 






Zenith 1 30 Color Monitor $1 59 




Medium resolution 2.5 MHz 240 x 200 dots 
Same as 131 except No RGB 
With 90 day Zenith warranty ^ 

Monitors require video controller See page 34 



*«£*; 



^ 



Was $399 
($14 shipping) 



Epson RX-80FT 




4» 



• Friction and tractor 80 column 

• Bidirectional dot addressable 100 CPS 

• Free Howard Printer tutorial included (a $29.95 value) 
RX100 $362 each 



$207 

Was $318 
($7 shipping) 



Zenith Green Monitor 



New! J&M Controller 




lenith 1 23A Green Screen is easy on the eyes 
High resolution: 640 dots x 200 dots, 

15M! 

Composite video monochrome 



$67 50 

*« bP^ Reg. $149 
4&J& * ($7 shipping) 



JFD-CP 
with J DOS 



Eliminates software compatibility problems 

Single switch lets you switch from J DOS to RS DOS 

Gold contacts & data sep 

New serial port so you don't need a serial 

interface for a parallel prin 



$128 

Reg. $149 
($2shippin 




RS DOS ROM 



ROM chip makes J&M compatible 

24 pin fits both versions of J&M controller 

Release 1. 1 

Howard Medicai Computers 



$20/ea. 

Reg. $40 
($2 shipping) 





icago, I L 60690 



Hours 8-4 Mon.-Fri 
10-3 Sat. 



(312)278-1440 



/are we a /ithin 30 ' 

limited a ■ -ttoavailabi . 




SUPER CONTROLLER 



y 



*:x 



^9 




FEAT 

• Gold contacts on all conni 

• Shielded metal box for low RF n 

• 4 28-pin sockets tor software expandabili 
•Uses 2764 or 27128 EPROMS. 

• EPROMS are software selectable. 

• Internal Mini-Expansion Bus interface for; 

- 80 Columns 

- Real Time Clock and/or 

- Parallel Printer or 

- EPROM Programmer or 

- User Projects. 

• Complete Radio Shack compatibility. 

• New technology, no adjustments needed. 

• Very Accurate 16mhz High Speed Master Clock, 
sds + 5 volts only, works on all COCOs or COCO lis 

EXPANSION ADD-ONS: 



f'T'THHTii 



time when the Computer is off, retreive and set the time by using 
simple Basic POKES. Also available with the Real Time Clock 
is the optional Centronics Compatible Parallel Printer adapter. 
Software to set the clock and printer driver included. 

MPROM 



rogrammer that attaches to the disk controller. A must for the 
ISTO Super Controller. Program those often used utilities 
ito EPROM and plug them directly into your controller. Will 

program 2764s or 27128's, a perfect mate for the DISTO Super 

Controller. 

DISPLAY80 

The fourth is a real knock-out. This is a three in one card. It' 



, ., .„..„ „,..„ nu , n o u „ „„ uuuuo „■ UU uu ,». major func , j0n js , add an m 24 djsp|ay fQ your compu , er 

EXPANSION ADD-ONS: A ,ealure Packed package also includes RTIME and PPRINT. 

There are currently tour add-ons available from DISTO for S'io" E? a L5!!£S? ^Snlfrmn'Si^rmH"' 

this controller - 0S9 sonware available. Call for more information. 

PPRINT CREDITS: 

Tho lirct im « !*«..««..,;... n nnnn «;i,i n D n ».ii.i o.;_. j„_»». Tne DIST0 Su P er Controller, add-ons and all its documental 

The first is a Centronics Compatible Parallel Printer adapter. an d designed by Tony Disteiano. The disto Super Coi 



PPRINT ^T " CREDITS. 

Tho fire-i im « p„„,,„„:„ n- n „ n „tiui n q„.„ii„i o.;_. j__... Tne D I ST Super Controller, add-ons and all its documentat 

The first is a Centronics Compatible Parallel Printer adapter. and designed by Tony Disteiano. The disto Super coi 

This adapter will allow you to connect a Centronics compatible manufactured and distributed by; c.r.c. computer L 

printer directly to your controller, leaving the serial port of your 10802 Lajeunesse, Montreal, Quebec, Canada H3L 2E8 1-514-383- 

computer tree for your modem. Printer driver software included . , D)ST0 an(l CRC CompuIers are regislered lrade marks The D|ST0 Sup 

Controller and add-ons are copywriled by OISTO. 




HEAT UP YOUR COCO ! 







HARD DRIVES 



Besides the obvious advantage of increased disk access 
speeds and a vast amount of storage, our COCO hard 
drives boast many innovative features. For instance, 

you may boot OS/9 

directly from 
JDOS - no 
intermediate 
l i □ boot floppy is 

• !fj£ s£' ; Hl SSJ re ^ uired ' 0ur 

i j jl .ff HUM software can 

"*"^^ run with virtually 
any Winchester with a 
ST412 type interface. Our drives have capacities of 5, 
10, or 20 MBytes (formatted), and may be either 
partitioned into up to 7 logical units or left as one 
large logical unit. Our COCO hard drive systems are 
complete with case, power supply, cables, OS/9 
drivers, and instructions. Prerequisite: OS/9, JFD-CP 
controller. 

5 'A" 5 MByte full size $495 

5 'A " 10 MByte Vz size $650 

3W 20 MByte (shown above) $795 

JFD-CP DISK CONTROLLER 

Our new JFD-CP, compatible with both the original 
COCO and the COCO 2, features a parallel port to 
iiib —| support a 

Centronics 
, compatible 
printer or our 
hard drive, 
and an 

external ROM 
switch, which 
allows you to 
select JDOS or 
an optional RS 
DOS-type ROM. It comes in 
a case and includes JDOS 1.2 and manual. JDOS 
implements all RS DOS commands, plus many 
more, including auto line numbering, error 
trapping, baud rate selection, OS/9* boot from 
floppy or hard drive, and Memory Minder**, our 
disk drive analysis program (Precision Alignment 
Disk not included). 
JFD-CP Disk Controller with JDOS $ 1 39 



- H\\ 






JP$ 'ft 



COCO-CLASSIC 

Our old JFD-COCO controller remains a strong 
seller. Some people just like old "classics" best! So 
we have brought it back at the lowest price ever! 

JFD-COCO Disk Controller with JDOS $99 



One-year warranty on parts & labor; 30-day money 
back guarantee (except shipping) if not totally 
satisfied. Items must be returned in like new 
condition. 

Free shipping via UPS in continental United States 
for payment by VISA, MasterCard, or cashiers check. 
COD requires 10% prepayment by bank card plus 
3% shipping. Blue Label and foreign shipping extra. 




DRIVE SYSTEMS 

Upgrade your Color Computer by adding our new 
JFD-CP disk controller, supercharged with JDOS 1.2 

operating 
system, and a 
top quality 
drive with case 
and power 
, supply. Comes 
complete with 
cable and JDOS 
manual. 



Drive System with one single side drive $279 

Drive System with one double side drive $349 

Drive 0, 1 System with two single side drives $389 

Drive 0,1 System with two double side drives $489 



MEMORY MINDER** 

Memory Minder 
is a disk drive 
^test program now 
included in 
JDOS. Used 
with a 
Precision 
Alignment 
Disk, 
Memory 
Minder allows 
|/^V you to check 

your drives for speed, 
alignment, sensitivity, hysteresis, 
and more! You can actually align or adjust the drives 
while viewing the graphics on the screen. No special 
equipment needed! 

PRECISION ALIGNMENT DISKS (From Dysan) 
P AD-40X 1 : Tests single side disk drives $26 

PAD-40X2: Tests double /single disk drives $33 

Memory Minder is available on diskette for those 
who don't own a JFD-CP controller with JDOS. 
Includes Precision Alignment disk. 
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Memory Minder: single side package 
Memory Minder: single /double side package 

*OS/9 is a registered rrademark of Microware, Inc. 

**Memory Minder is a registered trademard of J&M Systems, Ltd. 



$59 

$75 



J&M SYSTEMS, LTD. 

151 00- A CENTRAL SE 

ALBUQUERQUE, NEW MEXICO 87123 

505/292-4182 



